print #1,chr(15) print #1,dst
________________________________ From: ipoen6 n44m <[email protected]> To: [email protected] Sent: Monday, February 23, 2009 11:56:37 AM 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
