Pakai ini sudah blm ? open "LPT1" for output as #1 Print #1, Chr(27) & Chr(33) & Chr(5) print #1, text10.text close #1
Thanks Ronald Irawan http://www.Foodinvestment.com/?id=ronald_delgeano Jakarta widay nila <[EMAIL PROTECTED]> Sent by: [email protected] 07/02/2007 03:08 PM Please respond to [email protected] To indoprog-vb <[email protected]>, Programmer-VB <[email protected]> cc Subject [Programmer-VB] print struk 3 hurufnya masih besar2 help tolong dong hurufnya masih besar2 aku dah coma di priter lain ( sama2 lx-800 ) fontnye tetep gak mau berubah THX =========================================== trimakasih dah pada ngebantuin nih jadi untuk masalah kertas udah beres tapi ada satu masalah lagi nih yg timbul kalo aku pakek perintah open "LPT1" for output as #1 print #1, text10.text close #1 itu hasil fontnya kenapa jadi besar banget ( hasil di kertas fontnya seperti pakek FontSize 18 tapi waktu aku pakek perintah Printer.FontName = "Arial" Printer.FontSize = "8" Printer.Print Text10.Text Printer.EndDoc dengan font gak ada masalah printer yg di pakek lx-800 =========================================================== Open "LPT1" For Output As #1 'Print #1, Chr$(27) + Chr$(15) + " " & lCmp '(65)Normal BOLD Print #1, Chr$(27) + Chr$(15) + " " & LAlm 'Kecil Print #1, text10.text Close #1 =========================================================== coba pakai perintah di bawah ini sebelum perintah print #1, text10.text Open "LPT1" For Output As #1 'Print #1, Chr(18); 'huruf normal Print #1, Chr(15); 'huruf kecil 'Print #1, Chr(27) + Chr(69); 'tebal 'Print #1, Chr(27) + Chr(70); 'batal tebal 'Print #1 Chr(27) + Chr(87) + Chr(1); 'lebar 'Print #1 Chr(27) + Chr(87) + Chr(0); 'batal lebar Print #1, text10.text Close #1 ====================================================================== Open "LPT1" For Output As #1 CPI0 = Chr(27) & Chr(64) ' RESET PRINTER CPI12 = Chr(27) & Chr(33) & Chr(1) ' 12 Cpi ESC ! CPI20 = Chr(27) & Chr(33) & Chr(5) ' 20 Cpi ESC ! CPI17 = Chr(27) & Chr(33) & Chr(4) ' 17 Cpi ESC ! CPI15 = Chr(27) & Chr(103) ' 15 Cpi ESC g Print #1, Chr(27) & Chr(33) & Chr(5) '--> Sesuaikan kebutuhan Print #1, text10.text Close #1 Don't be flakey. Get Yahoo! Mail for Mobile and always stay connected to friends.
gifGchXNi9aWO.gif
Description: GIF image
gifCSxpj5C39Y.gif
Description: GIF image
