Mas Mawardi, Untuk ubah font pencetakan jadi kecil tetap gunakan chr(15) untuk 130 kolom dan chr(18) untuk 80 kolom. Tapi hasil cetakannya dalam bentuk draft. Open "LPT1" For Output As #1 'Printer.Font = Arial (tidak usah dipakai) 'Printer.FontSize = 6 (tidak usah dipakai) Print #1, chr(18)+" NAMA TOKO" Print #1, " Nama :"; cboNama Print #1, " No Trans :"; Text1(0) Print #1, chr(15)+" ============================================" Thanks, Arif -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Mawardi Sent: 11 April 2006 01:21 To: '[email protected]' Subject: [indoprog-vb] Code Print Untuk LX-800 Sore semua, Gimana caranya ngeprint di printer Dotmatrik LX-800. Supaya Hurufnya jadi kecil, karena saya gunakan Script seperti berikut ini hasilnya masih tetap sama. Dulu jaman DOS (ana lupa scripnya, karena pakai Clipper, pakai perintah CHR(...))
Thanks Mawardi Open "LPT1" For Output As #1 Printer.Font = Arial Printer.FontSize = 6 Print #1, " NAMA TOKO" Print #1, " Nama :"; cboNama Print #1, " No Trans :"; Text1(0) Print #1, " ============================================" Print #1, " Keterangan Qty Harga Disc Total " Print #1, " --------------------------------------------" Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Ikuti juga forum diskusi VB.net dengan mengirim email kosong ke [EMAIL PROTECTED] SPONSORED LINKS Computer <http://groups.yahoo.com/gads?t=ms&k=Computer+internet+security&w1=Compu ter+internet+security&w2=Computer+internet+business&w3=Computer+internet +access&w4=Computer+internet+privacy+securities&w5=Computer+internet+hel p&w6=Computer+internet+connection&c=6&s=198&.sig=V04yaONvhRiZX9V-9vaMcA> internet security Computer <http://groups.yahoo.com/gads?t=ms&k=Computer+internet+business&w1=Compu ter+internet+security&w2=Computer+internet+business&w3=Computer+internet +access&w4=Computer+internet+privacy+securities&w5=Computer+internet+hel p&w6=Computer+internet+connection&c=6&s=198&.sig=QEM5QXY5E4yokvfp8I9OxA> internet business Computer <http://groups.yahoo.com/gads?t=ms&k=Computer+internet+access&w1=Compute r+internet+security&w2=Computer+internet+business&w3=Computer+internet+a ccess&w4=Computer+internet+privacy+securities&w5=Computer+internet+help& w6=Computer+internet+connection&c=6&s=198&.sig=GvFjo1UJpzPMTQeQeWH-9Q> internet access Computer <http://groups.yahoo.com/gads?t=ms&k=Computer+internet+privacy+securitie s&w1=Computer+internet+security&w2=Computer+internet+business&w3=Compute r+internet+access&w4=Computer+internet+privacy+securities&w5=Computer+in ternet+help&w6=Computer+internet+connection&c=6&s=198&.sig=2cAxh4C_HeZYn GK5pWGQjg> internet privacy securities Computer <http://groups.yahoo.com/gads?t=ms&k=Computer+internet+help&w1=Computer+ internet+security&w2=Computer+internet+business&w3=Computer+internet+acc ess&w4=Computer+internet+privacy+securities&w5=Computer+internet+help&w6 =Computer+internet+connection&c=6&s=198&.sig=XyuTAshDdmCMqHSTUW6r1Q> internet help Computer <http://groups.yahoo.com/gads?t=ms&k=Computer+internet+connection&w1=Com puter+internet+security&w2=Computer+internet+business&w3=Computer+intern et+access&w4=Computer+internet+privacy+securities&w5=Computer+internet+h elp&w6=Computer+internet+connection&c=6&s=198&.sig=PWZ1Hrcj8Yl7bPjnNBOES g> internet connection _____ YAHOO! GROUPS LINKS * Visit your group "indoprog-vb <http://groups.yahoo.com/group/indoprog-vb> " on the web. * To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> * Your use of Yahoo! Groups is subject to the Yahoo! <http://docs.yahoo.com/info/terms/> Terms of Service. _____ [Non-text portions of this message have been removed] Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Ikuti juga forum diskusi VB.net dengan mengirim email kosong ke [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
