Open "LPT1" For Output As #1
Print #1, Chr(27) & Chr(33) & Chr(4) 'ubah ubah nilai Chr(4) utk
mengubah ukurab font
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
smoga bisa membantu
--- On Mon, 2/23/09, ipoen6 n44m <ipoen6_n...@yahoo.com> wrote:
From: ipoen6 n44m <ipoen6_n...@yahoo.com>
Subject: [Programmer-VB] Cetak Struk
To: Programmer-VB@yahoogroups.com
Date: Monday, February 23, 2009, 10:56 AM
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
