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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ibojan_63

Üye
 33
 2
 5
 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

Uzman
Me.... B.....
 46
 71
 3.180
 29/10/2008
983
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,00:34
Çözüldü 
örneğini eklemelisin böyle olmz kurallara dikkat et örneklere bak



Kullanici Avatari

benremix

Onursal Üye
Ra.... So....
 52
 127
 4.442
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 17/01/2019,08:09
Çö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

Üye
 33
 2
 5
 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

Aktivasyon Bekleyen
 25
 120
 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

Aktif Üye
 54
 154
 1.159
 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.689 12/01/2011, 13:29
Son Yorum: Coskun0559
Çözüldü filecopy uzantısını database yazdırma ancyra 1 1.781 14/08/2009, 12:34
Son Yorum: Bilgisayarcı

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