Secara default Crystal Report akan "menganggap" printer yang di "set as default printer" menjadi tujuannya. Hal ini tidak menjadi masalah jika printer yang dipakai untuk mencetak hanya satu dengan tipe/ukuran kertas yang sama.
Akan menjadi suatu masalah jika laporan atau Report yang dihasilkan ternyata membutuhkan lebih dari satu printer untuk mencetak laporan tersebut karena berbeda jenisnya. Jika kita tidak bisa memilih printer pada saat akan melakukan pencetakan maka akan menjadi hal yang menjenuhkan karena harus bolak-balik set default printer. Alangkah baiknya sebelum melakukan pencetakan ada pilihan printernya.
Kali ini saya akan berbagi code atau trik sederhana dalam Visual Basic 6.0 supaya dapat menentukan printer yang diinginkan untuk mencetak laporan saat aplikasi running.
Pada kesempatan kali ini saya menggunakan komponen Crystal Report Control untuk mencetak laporannya. Tambahkan Crystal Report Control ke dalam Form, sebuah command Button. Beri nama Crystal Report Controlnya dengan nama CR.
Jika sudah ketikan kode dibawah ini, untuk nama laporannya silahkan disesuikan dengan nama laporan masing-masing.
Akan menjadi suatu masalah jika laporan atau Report yang dihasilkan ternyata membutuhkan lebih dari satu printer untuk mencetak laporan tersebut karena berbeda jenisnya. Jika kita tidak bisa memilih printer pada saat akan melakukan pencetakan maka akan menjadi hal yang menjenuhkan karena harus bolak-balik set default printer. Alangkah baiknya sebelum melakukan pencetakan ada pilihan printernya.
Kali ini saya akan berbagi code atau trik sederhana dalam Visual Basic 6.0 supaya dapat menentukan printer yang diinginkan untuk mencetak laporan saat aplikasi running.
Pada kesempatan kali ini saya menggunakan komponen Crystal Report Control untuk mencetak laporannya. Tambahkan Crystal Report Control ke dalam Form, sebuah command Button. Beri nama Crystal Report Controlnya dengan nama CR.
Jika sudah ketikan kode dibawah ini, untuk nama laporannya silahkan disesuikan dengan nama laporan masing-masing.
Private Sub Command1_Click() CR.Reset CR.Destination = crptToPrinter CR.ReportFileName = App.Path & "\Report.rpt" CR.RetrieveDataFiles CR.PrinterSelect If Not CR.PrinterName = "" Then CR.Action = 1 Else Exit Sub End If End Sub
Demikian tutorial yang singkat ini semoga dapat dipahami dengan jelas dan bermanfaat. semoga dapat bermanfaat. Jika ada yang kurang jelas silahkan memberikan komentarnya.
Tags:
Cara Memilih Printer Di vb 6, Cara menampilkan dialog printer untuk mencetak laporan, Cara menampilkan Printer dialog untuk print laporan, Memilih Printer Untuk Mencetak Laporan Crystal Report, cara memilih printer pada saat cetak laporan crystal report,
No comments:
Post a Comment