susah sih jawabnya soalnya enggak ada printer yg bisa d coba, tapi aq punya
beberapa koleksi kodenya mungkin bisa di coba :
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
selamat mencoba :)
Toni Rahayu <[EMAIL PROTECTED]> wrote:
Dear All,
Mau tanya bagaimana caranya mengatur properties Font (bold, size, italic, etc)
didalam methode "Open "LPT1:" For Output As #1".
Makasih Sebelumnya
Salam
---------------------------------
Don't get soaked. Take a quick peak at the forecast
with theYahoo! Search weather shortcut.
[Non-text portions of this message have been removed]
