Ini sih thread lama, di ulang-ulang.
Paling gampang nih :
-----
Var a : Tstringlist;
begin
a := Tstringlist.create;
a.add('Hallo world');
a.savetofile('COM1'); --> LPT1 kalau printer pararel.
--> \\Server\LX-300 kalau printer sharing
a.free;
End;
Kelemahan, karakter #0 nggak bisa karena di anggap
terminate string. (Kadang karakter #0 dipakai sbg
printer control).
Jadi bisa pakai file open.. Duh sudah lupa sintaks-nya,
tahu sendirilah mungkin spt dibawah ini.
procedure SendDirectPrn(str : string);
var fPrn : TextFile;
begin
AssignFile(fPrn, '\\Server\LX-300');
Rewrite(fPrn);
Write(fPrn, str);
System.CloseFile(fPrn);
End;
> -----Original Message-----
> From: Dipa Pamitrapati [mailto:[EMAIL PROTECTED]
>
> Gw juga pernah ngalamin hal yg sama. Kalo pake assignprn itu
> sebenarnya dia nulis ke API Windows, ujung2nya jadi grafik
> juga yg dikirim ke printer. Jadi bahasa printer nggak kayak
> ESC/2 nggak bisa ke kirim. Cara lain ya lempar langsung ke
> portnya. Jadi direct. Kalo dulu bikin Program pake pascal yg
> baca file teks trus isinya di print ke printer. Jadi
> delphinya ngisi file teks, trus manggil program print yg gw
> bikin pake pascal tadi.
>
> Ada yg punya cara lebih baik? Share donk.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
