Visual Basic 6 ( print out )

[kinrara]

salam,

saya ingin mengetahui bagaimana cara buat coding untuk print out report dari microsof access kenara saya buat tidak memjadi

nama report dalam access : MyTable1

coding:

private sub cmd_print()
show print.Mytable1
end sub

:">

 

[akecema]

mane boleh mcm tu bos
coding die mcm ni la simple

Dim kirabaris, bil As Integer 'untuk mula baris cetak

Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open("C:\BackupV2\backuptemplete.xls")' kalo ade templete nak bukak
xlApp.Application.Visible = True
xlApp.Parent.Windows(1).Visible = True
kirabaris = 8
bil = 1
Do Until adoLog.Recordset.EOF

xlBook.Worksheets(sheet).Range("A" & (kirabaris)) = bil
xlBook.Worksheets(sheet).Range("B" & (kirabaris)) = txtName.Text
xlBook.Worksheets(sheet).Range("D" & (kirabaris)) = txtBackupType.Text
xlBook.Worksheets(sheet).Range("E" & (kirabaris)) = txtBackupStart.Text
xlBook.Worksheets(sheet).Range("F" & (kirabaris)) = txtBackupFinish.Text
xlBook.Worksheets(sheet).Range("G" & (kirabaris)) = txtStatus.Text
kirabaris = kirabaris + 1
adoLog.Recordset.MoveNext
bil = bil + 1
Loop

xlApp.ActiveWorkbook.SaveAs ("C:\BackupV2\log.xls")'save file
xlApp.Quit'close object

code ni cetak dari database

 

[kinrara]

Visual Basic 6 ( print out ) Reply to Thread

salam

coding yang saya maksudkan ialah report tu dah siap dari dalam microsoft access ( nama report tu dalam microsoft access ialah MyTable )saya mahu keluarkan report ( print out report microsoft access ) ...sebab seting2 sudah di buat dalam format report dalam microsoft access...:">:">

 

[kinrara]

dia tulis subscript out of range..kenapa ya?