Ini yang saya pakai :
procedure PrintItem( cItem: String; );
var
F: TextFile;
begin
assignfile( F, 'LPT1' );
rewrite(F);
writeln( F, cItem );
CloseFile(F);
end;
Best regards,
Sobari Tanuwijaya
ICQ # 141027563
-------------------------------------------------
"It is often merely for an excuse that we say things are impossible."
Francois de La Rochefoucauld (1613 - 1680); French author.
On Wednesday, December 1, 2004, 8:48:13 PM, Ahmad Hasby wrote:
> Rekan-rekan, ada yang tahu nggak cara bikin printeran
> untuk struk dengan delphi, maksudnya printer berhenti
> langsung pada akhir data, bukan satu lembar dulu.
> Maksud saya menggunakan kertas gulung yang panjang itu
> lho, tolongin donk, sebelumnya saya ucapkan terima
> kasih
> Ahmad Hasby
> __________________________________
> Do you Yahoo!?
> Yahoo! Mail - You care about security. So do we.
> http://promotions.yahoo.com/new_mail
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
> Yahoo! Groups Links
------------------------ Yahoo! Groups Sponsor --------------------~-->
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/i7folB/TM
--------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
<*> 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/
