Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/04/2010 12:02
Konu Sahibi
ibojan_63
Yorumlar
6
Okunma
2598
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ibojan_63


 32
 5
 2
 07/04/2010
0
 Bolu
 
 Ofis XP
 13/04/2010,10:55
Çözüldü 
meraba arkadaşlar vb hazırladığım projeyi exe olarak kaydettim ancak yazdırma işlemini yaparken formun hepsini yazdırıyor ancak ben texboxlardaki bilgileri yazdırmak istiyorum yardımcı olursanız sevinirim...


vb projelerim 2006.rar


ibojan_63, 07-04-2010 tarihinden beri AccessTr.neT

Kullanici Avatari

C*e*l*o*y*c*e


ME.... B.....
 46
 3.148
 66
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,11:17
Çözüldü 
örneğini eklemelisin böyle olmz kurallara dikkat et örneklere bak


Celosoft Yazılım

Kullanici Avatari

benremix


RA.... SO....
 51
 4.441
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,20:16
Çözüldü 
Sn ibojan_63 öncelikle sitemize hoşgeldiniz. Site Kurallarını okuyup uygulayarak bize yardımcı olun bizlerde size yardımcı olalım. Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

ibojan_63


 32
 5
 2
 07/04/2010
0
 Bolu
 
 Ofis XP
 13/04/2010,10:55
Çözüldü 
arkdaşlar yardımcı olacak kimse yok mu?


ibojan_63, 07-04-2010 tarihinden beri AccessTr.neT

Kullanici Avatari

fox35


 120
 25
 30/04/2009
 İzmir
 
 Ofis 2003
 26/07/2015,23:08
Çözüldü 
sayın ibojan_63;
bilgisayarımda şu an vb yüklü olmadığından projenize bakamadım ancak vbde de Access teki gibi raporlama olayı var.formu yazdırınca form yazdırılır.rapor oluşturup yazdırmanız gerekir.vb de data report adında activex nesnesi var standart olarak yüklenmemişse bileşenler yada araçlaradan yükleyiniz.bu sihirbaz sayesinde rapor oluşturunuz.



Kullanici Avatari

ogulcan92


 54
 1.159
 154
 06/05/2009
480
 İzmir
 
 Ofis 2003
 07/08/2015,11:50
Çözüldü 
Sn:ibojan_63
Projenizi indirip incelediğimde içerisinde Vb6 ile yapılmış olanı tamamen hatalı ve birde Vb.Net var siz yazdırma işlemini hangisinde istiyorsunuz belli değil ayrıca proje içerisinde bir sürü gereksiz dosyalar (Dll, Ocx türü) var.Projenizi tekrar gözden geçirip hangi programda yapılacaksa (Vb.Net, Vb6) onu ekleyiniz.

MsFlex üzerindeki bilgileri yazdırma.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub cmdYazdir_Click()
Call GridPrint(Datagrid1)
End Sub


Public Sub GridPrint(gridQuery As DataGrid)
Dim I         As Integer
Dim J         As Integer
Dim PTab      As Integer
   For I = 0 To gridQuery.ApproxCount - 1
      PTab = 20
      If Printer.CurrentY + Printer.TextHeight(gridQuery.Text) > Printer.ScaleHeight - 0 Then
         Printer.NewPage
      End If
      On Error Resume Next
      gridQuery.Row = I
      On Error GoTo 0
      For J = 0 To gridQuery.Columns.Count - 1
         gridQuery.Col = J
         Printer.Print Trim$(gridQuery.Text); Tab(PTab);
         PTab = PTab + 20
      Next
      Printer.Print
   Next
Printer.EndDoc
End Sub


Veya Excel'e aktararak yazdırma

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
Private Sub excel_Click()
Dim I As Integer
If Adodc2.Recordset.RecordCount = 0 Then
'&&&&&&&&&& MESAJ
 FrmMsgBox.Label1.Caption = "Kayıt Yok."
 FrmMsgBox.Show vbModal, FrmAna
 Exit Sub
End If
Dim ExcelNesne As Object
Set ExcelNesne = CreateObject("Excel.SHEET")
ExcelNesne.Application.Visible = True
'_________________________________________________________
ExcelNesne.Application.Cells(1, 1).Font.size = 20
ExcelNesne.Application.Cells(1, 1).Font.Bold = True
'ExcelNesne.Application.Cells(1, 1).Font.Underline = True
ExcelNesne.Application.Cells(1, 1).Font.color = vbBlue
'ExcelNesne.Application.Cells(1, 1).ColumnWidth = 60
ExcelNesne.Application.Cells(1, 1).Value = "ÖDEME RAPORU"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 1).Font.color = vbRed
ExcelNesne.Application.Cells(2, 1).ColumnWidth = 20
ExcelNesne.Application.Cells(2, 1).Value = "Adı Soyadı"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 2).Font.color = vbRed
ExcelNesne.Application.Cells(2, 2).ColumnWidth = 12.5
ExcelNesne.Application.Cells(2, 2).Value = "Tc Kimlik No"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 3).Font.color = vbRed
ExcelNesne.Application.Cells(2, 3).ColumnWidth = 12
ExcelNesne.Application.Cells(2, 3).Value = "Ödeme Tarihi"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 4).Font.color = vbRed
ExcelNesne.Application.Cells(2, 4).ColumnWidth = 10
ExcelNesne.Application.Cells(2, 4).Value = "Belge No"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 5).Font.color = vbRed
ExcelNesne.Application.Cells(2, 5).ColumnWidth = 11
ExcelNesne.Application.Cells(2, 5).Value = "Ödeme Türü"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 6).Font.color = vbRed
ExcelNesne.Application.Cells(2, 6).ColumnWidth = 11
ExcelNesne.Application.Cells(2, 6).Value = "Ödeme Tipi"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 7).Font.color = vbRed
ExcelNesne.Application.Cells(2, 7).ColumnWidth = 20
ExcelNesne.Application.Cells(2, 7).Value = "Kart Sahibi"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 8).Font.color = vbRed
ExcelNesne.Application.Cells(2, 8).ColumnWidth = 12.5
ExcelNesne.Application.Cells(2, 8).Value = "Kart No"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 9).Font.color = vbRed
ExcelNesne.Application.Cells(2, 9).ColumnWidth = 12
ExcelNesne.Application.Cells(2, 9).Value = "Son Kul.Tarihi"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 10).Font.color = vbRed
ExcelNesne.Application.Cells(2, 10).ColumnWidth = 12
ExcelNesne.Application.Cells(2, 10).Value = "Aidat Tutarı"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 11).Font.color = vbRed
ExcelNesne.Application.Cells(2, 11).ColumnWidth = 12
ExcelNesne.Application.Cells(2, 11).Value = "Ödeme Miktarı"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 12).Font.color = vbRed
ExcelNesne.Application.Cells(2, 12).ColumnWidth = 20
ExcelNesne.Application.Cells(2, 12).Value = "Ödemeyi Alan Kişi"
'__________________________________________________________
ExcelNesne.Application.Cells(2, 13).Font.color = vbRed
ExcelNesne.Application.Cells(2, 13).ColumnWidth = 20
ExcelNesne.Application.Cells(2, 13).Value = "Açıklama"

I = 2
Adodc2.Recordset.MoveFirst
Do While Not Adodc2.Recordset.EOF = True
I = I + 1

ExcelNesne.Application.Cells(I, 1).Value = Adodc2.Recordset.Fields("Adi_Soyadi")
ExcelNesne.Application.Cells(I, 2).Value = Adodc2.Recordset.Fields("Tc_Kimlik_No")
ExcelNesne.Application.Cells(I, 3).Value = Adodc2.Recordset.Fields("Odeme_Tarihi")
ExcelNesne.Application.Cells(I, 4).Value = Adodc2.Recordset.Fields("Belge_No")
ExcelNesne.Application.Cells(I, 5).Value = Adodc2.Recordset.Fields("Odeme_Turu")
ExcelNesne.Application.Cells(I, 6).Value = Adodc2.Recordset.Fields("Odeme_Tipi")
ExcelNesne.Application.Cells(I, 7).Value = Adodc2.Recordset.Fields("Kart_Sahibi")
ExcelNesne.Application.Cells(I, 8).Value = Adodc2.Recordset.Fields("Kart_No")
ExcelNesne.Application.Cells(I, 9).Value = Adodc2.Recordset.Fields("Son_Kul_Tarihi")
ExcelNesne.Application.Cells(I, 10).Value = Adodc2.Recordset.Fields("Aidat_Tutari")
ExcelNesne.Application.Cells(I, 11).Value = Adodc2.Recordset.Fields("Odenen_Miktar")
ExcelNesne.Application.Cells(I, 12).Value = Adodc2.Recordset.Fields("Odemeyi_Alan_Kisi")
ExcelNesne.Application.Cells(I, 13).Value = Adodc2.Recordset.Fields("Aciklama")

Adodc2.Recordset.MoveNext
Loop

End Sub


Sn:ibojan_63
Benim verdiğim kodlar Vb6 için geçerlidir.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Vb de yazdırma problemi alpakin 1 1.657 12/01/2011, 13:29
Son Yorum: Coskun0559
Çözüldü filecopy uzantısını database yazdırma ancyra 1 1.736 14/08/2009, 12:34
Son Yorum: Bilgisayarcı

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444