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.
