Private Sub Command1_Click()
Print chr(27) + "D0180,0960,0180" + chr(13) +
chr(0)
Print chr(27) + "AX;+000,+000,+00" + chr(13) +
chr(0)
Print chr(27) + "AY;+01,0" + chr(13) + chr(0)
Print chr(27) + "C" + chr(13) + chr(0)
' POSISI LABEL
Print chr(27) +
"PC000;0035,0025,05,05,C,+00,00,B,+0000000000" +
chr(13) + chr(0)
Print chr(27) +
"PC001;0035,0158,10,05,C,+02,00,B,+0000000000" +
chr(13) + chr(0)
Print chr(27) +
"PC002;0035,0049,10,05,A,+00,00,B,+0000000000" +
chr(13) + chr(0)
Print chr(27) +
"PC003;0068,0049,10,05,A,+00,00,B,+0000000000" +
chr(13) + chr(0)
Print chr(27) +
"PC004;0086,0049,10,05,A,+00,00,B,+0000000000" +
chr(13) + chr(0)
Print chr(27) +
"XB00;0035,0065,9,3,02,0,0058,+0000000000,008,1,00" +
chr(13) + chr(0)
' Format Data
Print chr(27) + "RB00;" + "01234567890" + chr(13)
+ chr(0)
Print chr(27) + "RC00;" + "NAMABARANG1" + chr(13)
+ chr(0)
Print chr(27) + "RC02;" + "HARGA" + chr(13) +
chr(0)
Print chr(27) + "RC03;*" + chr(13) + chr(0)
Print chr(27) + "RC04;" + "KODE LAGI" + chr(13) +
chr(0)
Print chr(27) + "RC01;Rp." + "10,000 + chr(13) +
chr(0)"
Print chr(27) + "XS;I," + cQty + ",0001C5200" +
chr(13) + chr(0)
End Sub
____________________________________________________
Sell on Yahoo! Auctions no fees. Bid on great items.
http://auctions.yahoo.com/
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-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/
