VB'ers saya sudah coba ngeprint pake cara
Open "LPT1" For Output As #1 bla..bla nah waktu prog yg saya buat mau di pake di laptop, kan gak ada port lpt so printernya pake konektor usb to lpt (konektor konversi). nah program saya error n gak mau ngeprint.... ada ide gak? gimana caranya kita detek printer itu pake usb ato lpt? thanks b4 Hery --- In [email protected], widay nila <[EMAIL PROTECTED]> wrote: > > ini kumpulan jawaban dr rekan2 yg telah membantu saya > Oh ya dengan mengkombinasikan dr beberapa jawaban dr rekan2 sekalian > print struknya telah berhasil THX > ============ ========= ========= ========= ========= ========= == > Open "LPT1" For Output As #1 > Print #1, Space(21) + Chr(15) "Nama" > Close #1 > ============ ========= ========= ========= ========= ========= == > Open "LPT1" For Output As #1 > Print #1, Chr(15) & "Tulisannya" > Print #1, Chr(15) & text10.text > Close #1 > ============ ========= ========= ========= ========= ========= == > > Open "LPT1" For Output As #1 > > 'Print #1, Chr$(27) + Chr$(15) + " " & lCmp '(65)Normal BOLD > > Print #1, Chr$(27) + Chr$(15) + " " & LAlm 'Kecil > > Print #1, text10.text > > Close #1 > > ============ ========= ========= ========= ========= ========= == > > coba pakai perintah di bawah ini sebelum perintah print #1, text10.text > > Open "LPT1" For Output As #1 > > 'Print #1, Chr(18); 'huruf normal > > Print #1, Chr(15); 'huruf kecil > > 'Print #1, Chr(27) + Chr(69); 'tebal > > 'Print #1, Chr(27) + Chr(70); 'batal tebal > > 'Print #1 Chr(27) + Chr(87) + Chr(1); 'lebar > > 'Print #1 Chr(27) + Chr(87) + Chr(0); 'batal lebar > > Print #1, text10.text > > Close #1 > > ============ ========= ========= ========= ========= ========= ========= ==== > > Open "LPT1" For Output As #1 > > CPI0 = Chr(27) & Chr(64) ' RESET PRINTER > > CPI12 = Chr(27) & Chr(33) & Chr(1) ' 12 Cpi ESC ! > > CPI20 = Chr(27) & Chr(33) & Chr(5) ' 20 Cpi ESC ! > > CPI17 = Chr(27) & Chr(33) & Chr(4) ' 17 Cpi ESC ! > > CPI15 = Chr(27) & Chr(103) ' 15 Cpi ESC g > > Print #1, Chr(27) & Chr(33) & Chr(5) '--> Sesuaikan kebutuhan > > Print #1, text10.text > > Close #1 > > > > > > Dear VB ManiaMinta bantuan nih untuk ngeprint di printer Epson LX-800 (Dotmatrik) portnya LPT1: dengan code Visual Basic 6.Terima kasih untuk bantuannya > > > > > > > > > > > > > --------------------------------- > Expecting? Get great news right away with email Auto-Check. > Try the Yahoo! Mail Beta. >
