Selamat Siang......... Sori nech...... jadi keseringan nanya....... Pada Program saya, saya menampilkan isi suatu file TXT pada MEMO, nah... padasaat di tampilkan..... tulisan terlihat rapih karena diseting jenis fontnya "Courier New", tapi pada saat saya print kok jadi berantakan tidak beraturan spasinya yach...., saya melakukan perintah printnya menggunakan writeln seperti list dibawah ini : procedure TForm1.Button3Click(Sender: TObject); var PrintBuf: TextFile; i : byte; begin PrintDialog1.Execute; AssignPrn(PrintBuf); Rewrite(PrintBuf); try for i := 0 to Memo1.Lines.Count-1 do WriteLn(PrintBuf, Memo1.Lines[i]); finally CloseFile(PrintBuf); end; end; Ada yang bisa bantu nggak.... gimana supaya data dapat dicetak sesuai dengan tampilan..... Thk's......

Wah.... thk's mas infonya..... tapi ada yang punya komponen TRawPrint Nggak.....? atau saya bisa dapat darimana yach.....?

@fissas TRawPrinter http://delphindo.wordpress.com/2006/03/28/direct-text-printing/ salah satu thread yg bahas http://pascal-id.org/dpr/PNphpBB2-viewtopic-t-3483-highlight-rawprinter.pas

Mas ImanD and cyber hacker..... saya sudah coba TRawPrinter...... Tapi kok ndak bisa keprint yach.... padahal diprinter log nya sudah masuk.......... saya pake printer HP1020..... thk's

Dari blognya...

Kemudian saya kembangkan sedemikian rupa sehingga bisa digunakan lebih mudah dan mendukung pencetakan ke IBM Passbook dan Epson LX series printer secara built-in.

Dan kalo bener2 dirasa perlu, Anda juga bisa mengganti kode2 ESC yg digunakan komponen, misalnya untuk jenis printer lain selain Epson dan IBM. Anda cukup membuat turunan dari class ini dan mendefinisikan ulang kode2 ESC yg sesuai dgn printer Anda.

Kalo solusi raw printing bukan yg Anda inginkan, silakan gunakan dan pelajari class TPrinter. Di class itu, kita bisa definisikan font yg akan digunakan untuk pencetakan. Mudah dan gampang kok. ;)