Tambahkan kode berikut pada baris pertama untuk perintah cetak. Kalau masih belum bisa silahkan cari informasi code ascii yang tepat untuk mengontrol font size pada printer yang dimaksud
Print #1, Chr(27) & "@" + Chr(27) & "2" + Chr(27) & "x" & Chr(0) + Chr(27) & "k" & Chr(1) + Chr(27) & "M" + Chr(15) ' set to 1 space -Salam- --- Pada Ming, 22/2/09, ipoen6 n44m <[email protected]> menulis: > Dari: ipoen6 n44m <[email protected]> > Topik: [Programmer-VB] Cetak Struk > Kepada: [email protected] > Tanggal: Minggu, 22 Februari, 2009, 7:56 PM > 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 Menambah banyak teman sangatlah mudah dan cepat. Undang teman dari Hotmail, Gmail ke Yahoo! Messenger sekarang! http://id.messenger.yahoo.com/invite/
