Secara default Crystal Report akan "menganggap" printer yang di "set as default printer" menjadi tujuannya. Bukanlah suatu masalah jika printer yang digunakan mencetak Report hanya satu dengan tipe kertas/kebutuhan yang sama.
Tetapi akan jadi suatu masalah apabila Report yang dihasilkan ternyata membutuhkan beberapa macam printer untuk mencetak report yang memang berbeda jenisnya, misalnya untuk mencetak Slip Gaji diperlukan Printer berjenis pita dan mencetak laporan bulanan menggunakan printer yang berbeda. Akan menjadi pekerjaan yang amat membosankan apabila harus bolak-balik set printer di control panel.
Nah... saya akan berbagi code sederhana dalam Visual Basic 6.0 (-hasil pengalaman pribadi saya-) agar dapat memilih printer tujuan untuk mencetak report saat aplikasi dijalankan.
Kali ini saya menggunakan component Crystal Report Control untuk mencetak Reportnya. Tambahkan kedalam Form, sebuah command, sebuah label, dan sebuah Crystal Report Control. Berikan nama Crystal Report Control dengan Crt1 Kemudian Copy-Paste Code dibawah ini :
Private Sub Command1_Click()
On Error Resume Next
Crt1.Reset
Crt1.ReportFileName = "C:\Data\Report.rpt"
'SelectionFormula
Private Sub Command1_Click()
On Error Resume Next
Crt1.Reset
Crt1.ReportFileName = "C:\Data\Report.rpt"
'SelectionFormula
Crt1.RetrieveDataFiles
Crt1.Destination = crptToPrinter
Label1.Caption = ""
Label1.Caption = ""
Crt1.PrinterSelect
Label1.Caption = Crt1.PrinterName
Label1.Caption = Crt1.PrinterName
If Not Label1.Caption = "" Then
Crt1.Action = 1
Else
Exit Sub
End If
End sub
Run Program (F5), kemudian klik command1, sehingga akan muncul Form Dialog Printer,
Nah, sekarang tinggal memilih printer yang mana untuk mencetak report kita, sederhana bukan? Selamat mencoba. Bila ada yang punya jalan lain mohon untuk bisa Sharing disini, terima kasih.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :