coba yang ini
Dim i As Byte
Open "LPT1:" For Output As #1
For i = 1 To 10
Print #1, Chr$(&H1B); "!"; Chr$(4);
Print #1, "Test print"
Next
Close #1
Arif Yulianto <[EMAIL PROTECTED]> wrote:
Mas Mawardi,
Untuk ubah font pencetakan jadi kecil tetap gunakan chr(15) untuk 130
kolom dan chr(18) untuk 80 kolom.
Tapi hasil cetakannya dalam bentuk draft.
Open "LPT1" For Output As #1
'Printer.Font = Arial (tidak usah dipakai)
'Printer.FontSize = 6 (tidak usah dipakai)
Print #1, chr(18)+" NAMA TOKO"
Print #1, " Nama :"; cboNama
Print #1, " No Trans :"; Text1(0)
Print #1, chr(15)+" ============================================"
Thanks,
Arif
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Mawardi
Sent: 11 April 2006 01:21
To: '[email protected]'
Subject: [indoprog-vb] Code Print Untuk LX-800
Sore semua,
Gimana caranya ngeprint di printer Dotmatrik LX-800. Supaya Hurufnya
jadi
kecil, karena saya gunakan Script seperti berikut ini hasilnya masih
tetap
sama.
Dulu jaman DOS (ana lupa scripnya, karena pakai Clipper, pakai perintah
CHR(...))
Thanks
Mawardi
Open "LPT1" For Output As #1
Printer.Font = Arial
Printer.FontSize = 6
Print #1, " NAMA TOKO"
Print #1, " Nama :"; cboNama
Print #1, " No Trans :"; Text1(0)
Print #1, " ============================================"
Print #1, " Keterangan Qty Harga Disc Total "
Print #1, " --------------------------------------------"
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
SPONSORED LINKS
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+internet+security&w1=Compu
ter+internet+security&w2=Computer+internet+business&w3=Computer+internet
+access&w4=Computer+internet+privacy+securities&w5=Computer+internet+hel
p&w6=Computer+internet+connection&c=6&s=198&.sig=V04yaONvhRiZX9V-9vaMcA>
internet security
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+internet+business&w1=Compu
ter+internet+security&w2=Computer+internet+business&w3=Computer+internet
+access&w4=Computer+internet+privacy+securities&w5=Computer+internet+hel
p&w6=Computer+internet+connection&c=6&s=198&.sig=QEM5QXY5E4yokvfp8I9OxA>
internet business
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+internet+access&w1=Compute
r+internet+security&w2=Computer+internet+business&w3=Computer+internet+a
ccess&w4=Computer+internet+privacy+securities&w5=Computer+internet+help&
w6=Computer+internet+connection&c=6&s=198&.sig=GvFjo1UJpzPMTQeQeWH-9Q>
internet access
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+internet+privacy+securitie
s&w1=Computer+internet+security&w2=Computer+internet+business&w3=Compute
r+internet+access&w4=Computer+internet+privacy+securities&w5=Computer+in
ternet+help&w6=Computer+internet+connection&c=6&s=198&.sig=2cAxh4C_HeZYn
GK5pWGQjg> internet privacy securities
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+internet+help&w1=Computer+
internet+security&w2=Computer+internet+business&w3=Computer+internet+acc
ess&w4=Computer+internet+privacy+securities&w5=Computer+internet+help&w6
=Computer+internet+connection&c=6&s=198&.sig=XyuTAshDdmCMqHSTUW6r1Q>
internet help
Computer
<http://groups.yahoo.com/gads?t=ms&k=Computer+internet+connection&w1=Com
puter+internet+security&w2=Computer+internet+business&w3=Computer+intern
et+access&w4=Computer+internet+privacy+securities&w5=Computer+internet+h
elp&w6=Computer+internet+connection&c=6&s=198&.sig=PWZ1Hrcj8Yl7bPjnNBOES
g> internet connection
_____
YAHOO! GROUPS LINKS
* Visit your group "indoprog-vb
<http://groups.yahoo.com/group/indoprog-vb> " on the web.
* To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* Your use of Yahoo! Groups is subject to the Yahoo!
<http://docs.yahoo.com/info/terms/> Terms of Service.
_____
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
New Yahoo! Messenger with Voice. Call regular phones from your PC and save big.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
