coba pakai ini
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 gMisal sub cetak_Bill open "namaport" for output as #1 print #1 , Chr(27) & Chr(33) & Chr(1) --> coba taro disini print #1, "TOKO ABC" print #1, "Tgl : 30/11/2005" print #1, "Pembelian : Kecap ABC" print #1, "Harga : Rp.7500" print #1, "PROMO : Dapatkan hadiah sebuah jam unik kalo beli 10 buah kecap" close #1 end sub namaport = lpt1/com1 Thanks It is bike tobe important,but it is more important tobe bike Memang bike menjadi orang penting, tapi lebih penting lagi untuk menjadi orang bike, Ronald Irawan Kalbe Nutritionals Jakarta -------------------------- Powered by Xero BlueBerry® ipoen6 n44m <[email protected]> Sent by: [email protected] 23/02/2009 10:56 AM Please respond to [email protected] To [email protected] cc Subject [Programmer-VB] Cetak Struk saya untuk cetak struk saya gunakan seperti contoh di milis(dibawah), printer yang saya gunakan epson lx-300. utk ngeprint tdk ada mslh. tapi font yang keluar fontsize=12 dan kebesaran. kira2 kawan milis ada yang tau cara merubah fontsize & jenis font? thanks bro... sub cetak_Bill open "namaport" for output as #1 print #1, "TOKO ABC" print #1, "Tgl : 30/11/2005" print #1, "Pembelian : Kecap ABC" print #1, "Harga : Rp.7500" print #1, "PROMO : Dapatkan hadiah sebuah jam unik kalo beli 10 buah kecap" close #1 end sub namaport = lpt1/com1
<<image/gif>>
