Skip to main content

AccessTr.neT


Vb projemde yazdırma problemi

Vb projemde yazdırma problemi

Çözüldü #1
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
Son Düzenleme: 12/04/2010, 12:48, Düzenleyen: ibojan_63.
Cevapla
Çözüldü #2
örneğini eklemelisin böyle olmz kurallara dikkat et örneklere bak
Cevapla
Çözüldü #3
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
Çözüldü #4
arkdaşlar yardımcı olacak kimse yok mu?
Cevapla
Çözüldü #5
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
Çözüldü #6
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:
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:
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.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Son Düzenleme: 26/06/2010, 10:32, Düzenleyen: ogulcan92.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task