Thanks buat masukannya.. tapi kalo kyk gitu prognya gak flexible dong? harus berubah terus..
1.Gimana ya caranya supaya kita tau port mana yg sedang di pake oleh printer (via VB) supaya kita bisa set open "port" as .... ? 2.Trus saya juga punya masalah baru nih, porg yg saya buat akan not responding jika printer nya gak terpasang di PC..., saya sudah coba pake error trap tapi gak bisa, tetap aja error. help me urgent.. Ronald Irawan <[EMAIL PROTECTED]> wrote: coba di lihat di control panel --> printer nah printernya di click kanan, nanti kan ada folder ports,, lihat portnya berapa.. ganti open "lpt1:" jadi Open "Port nya yg diliath tadi" as ..... belum dicoba, mudah2an bisa Thanks Ronald Irawan http://www.Foodinvestment.com/?id=ronald_delgeano http://www.agloco.com/r/BBDK9147 Jakarta "eris_015" <[EMAIL PROTECTED]> Sent by: [email protected] 24/05/2007 12:48 PM Please respond to [email protected] To [email protected] cc Subject [Programmer-VB] Re: Cara Nge-PRINT di Printer DOTMATRIKS 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. > --------------------------------- Be a PS3 game guru. Get your game face on with the latest PS3 news and previews at Yahoo! Games.
