Kalau belum bisa juga, coba setting di printernya. Tahan tombol Paper out/Pause selama 3 detik. Setelah itu pilih font yg sesuai dengan melihat indicator lampu yang menyala
-----Original Message----- From: Dennis Sitohang [mailto:[email protected]] Sent: 24 February 2009 09:37 To: [email protected] Subject: Bls: [Programmer-VB] Cetak Struk 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/ ------------------------------------ Wahana Programmer Groups Links
