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