Menurut pengalaman saya, perintah-perintah yang telah diberikan oleh rekan-rekan dibawah sudah sangat lengkap, tinggal bagaimana pengaplikasiannya aja. Memangnya ingin huruf yang kecilnya seberapa?
Coba pake printah ini : Open "LPT1" For Output As #1 Print #1, Chr(15) & "Tulisannya" Print #1, Chr(15) & text10.text Close #1 itu setingan yang biasa saya peke untuk cetak struk pada program pos dengan mengatur huruf menjadi draft condensed pada LX-300. Hasil hurufnya kurang lebih sebesar struk yang biasa dipake di Indomaret (coba minta struk yang gak kepake di toko yang deket anda). Oh ya, setingan itu (dan setingan yang diberikan rekan-rekan yang laen) berjalan normal pada printer Epson LX 300 (yang biasa maupun yang plus), kalo di LX 800 aku sendiri belum pernah nyoba dan mungkin bisa berbeda. Aku pernah nyoba setingan itu pada printer LQ-1150, dan hasilnya memang berbeda. Semoga membantu :-) ----- Original Message ----- From: "widay nila" <[EMAIL PROTECTED]> To: "indoprog-vb" <[email protected]>; "Programmer-VB" <[email protected]> Sent: Wednesday, February 07, 2007 12:08 AM Subject: [indoprog-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 > >
