Vb projemde yazdırma problemi
Tarih
12/04/2010 12:02
Konu Sahibi
ibojan_63
Yorumlar
6
Okunma
2037
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ibojan_63
Üye
Kullanici Avatari
Üye
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
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,14:13
Çözüldü 
örneğini eklemelisin böyle olmz kurallara dikkat et örneklere bak
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
Çö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 


Cevapla


ibojan_63
Üye
Kullanici Avatari
Üye
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
Cevapla


fox35
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
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.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İ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.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


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


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya