udah pernah dibahas sih, tapi tak copas aja
Print #1, Chr$(&H1B); "!"; Chr$(24); "test ..." 'mode bold on, kalo enggak mau
coba 24 -> 8
Print #1, Chr$(&H1B); "!"; Chr$(64); "test print" 'mode italic
Print #1, Chr$(&H1B); "!"; Chr$(128); "test print" 'mode underline
'kalo mau normal lagi set aja nilainya menjadi 0
Print #1, Chr$(&H1B); "!"; Chr$(0); "test print" 'mode off
Dim i As Byte
'ini untuk test ukuran font
For i = 1 To 35
Print #1, Chr$(&H1B); "!"; Chr$(i); "test print"
Next
Ronal Baharuddin Hutagaol <[EMAIL PROTECTED]> wrote:
Tanya dong para VB-Mania
Saya punya source untuk cetak di Kertas NCR:
---------------------------------------
Open "LPT1:" For Output As #1
'On Error GoTo 200
Print #1, Tab(1); " "
Print #1, Tab(1); " "
Print #1, Tab(1); "Nomer PO : " + Form1.No_PO.Caption
...
...
...
close #1
---------------------------------------
Nah, saya ada kendala nih, gimana caranya untuk pengaturan Fonts (besar kecil
dan Jenis Huruf) dalam source code ini.
Terima Kasih atas Bantuan Rekan2 sekalian
[Non-text portions of this message have been removed]
---------------------------------
Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s user panel
and lay it on us.
[Non-text portions of this message have been removed]
