walaupun printernya sama2x LX-300 pasti ada perdaan penamaan pada saat
instalasi, misal :
1. untuk printer yang pake kertas PO nama printernya LX-300-PO
2. printer yang pake kertas BON nama printernya LX-300-BON
nah ini sample kode untuk memilih printer pada saat ingin mencetak (tidak
tergantung dg printer default)
Dim prnPrinter As Printer
Private Sub Command1_Click()
For Each prnPrinter In Printers
If prnPrinter.DeviceName = "LX-300-PO" Then
Set Printer = prnPrinter
Exit For
End If
Next
Printer.Print "test print"
Printer.EndDoc
End Sub
Private Sub Command2_Click()
For Each prnPrinter In Printers
If prnPrinter.DeviceName = "LX-300-BON" Then
Set Printer = prnPrinter
Exit For
End If
Next
Printer.Print "test print"
Printer.EndDoc
End Sub
jika nama printer tidak ditemukan dalam perulangan (For Each prnPrinter In
Printers) otomatis yang dipake adalah printer default
selamat mencoba :)
Ronal Baharuddin Hutagaol <[EMAIL PROTECTED]> wrote:
Dear VB Mania...
Kami punya 2 printer, yang satu Printer LX-300 untuk format PO (kertas A5) dan
yang satu lagi LX-300 untuk format BON CASH (kertas A6)
Nah, semua sudah terinstall di komputer, tp kalau dalam proses Print, kondisi
Salah satu Printer adalah DEFAULT, nah printer yang DEFAULT ini adalah yang
siap cetak.
Pertanyaan saya, kalau tanpa DEFAULT apakah kita bisa memilih-milih printer
yang sudah terinstall di komputer. (lebih dari 1 printer)
Thx atas bantuannya
[Non-text portions of this message have been removed]
---------------------------------
Shape Yahoo! in your own image. Join our Network Research Panel today!
[Non-text portions of this message have been removed]
