Kenapa ngak mau pake assignprn bawaan dari delphi sendiri aja
Procedure TForm1.BtnClick(sender : TObject);
Begin
AssignPrn(MyFile);
Rewrite(MyFile);
Writeln(MyFile, ' S T R U K B E L A N J A');
Writeln(MyFile, '------------------------------------');
While not DM.POS_Detail.Eof do
Begin
Writeln(MyFile,DM.POS_DetailITEM.AsString+' '+
FormatFloat('###,###.##',DM.POS_DetailQTY.AsFloat)+
DM.POS_DetailSATUAN.AsString+'='+
'Rp. '+FormatFloat('###,###.##',DM.POS_DetailUPRICE.AsFloat));
DM.POS_Detail.Next;
end;
Writeln(MyFile, '-------------------------------------');
Writeln(MyFile, 'Sub Total
Rp.'+FormatFloat('###,###.##',DM.POS_HeaderSUBTOTAL.AsFloat));
Writeln(MyFile, 'Disc %'+FormatFloat('###',DM.POS_HeaderDISC.AsFloat));
Writeln(MyFile, 'T o t a l
Rp.'+FormatFloat('###,###.##',DM.POS_HeaderTOTAL.AsFloat));
Writeln(MyFile, EmptyStr);
Writeln(MyFile, 'Bayar
Rp.'+FormatFloat('###,###.##',DM.POS_HeaderBAYAR.AsFloat));
Writeln(MyFile, 'Kembali
Rp.'+FormatFloat('###,###.##',DM.POS_HeaderKEMBALI.AsFloat));
Writeln(MyFile, '--------------############-----------');
System.CloseFile(MyFile);
end;
----- Original Message -----
From: "Squid" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, October 16, 2003 10:59
Subject: Re: [Delphindo] Re: Help buat Point Of Sales Program (POS)
> Kalo print seperti DOS itu (draft?) bukannya memang mengikut jenis font
yang
> di-setting di printer?
>
> Salam,
> Sintar.
>
> ===========
>
> ----- Original Message -----
> From: "Hidayat" <[EMAIL PROTECTED]>
> To: <[EMAIL PROTECTED]>
> Sent: Wednesday, 15 October 2003 4:52 PM
> Subject: RE: [Delphindo] Re: Help buat Point Of Sales Program (POS)
>
>
> > Sorry, malah nambah pertanyaan.
> > VCL yg open source semisal component apa mas ? Kebanyakan user yg pakai
> > program kita mintanya kalau ngeprint secepat seperti pada Dos mode. Jadi
> > kita juga binggung untuk developnya. Apalagi kalau cetak slip gaji atau
> form
> > yg sudah ada cetakan-nya....kita mesti set line spacing dan ukuran font
> juga
> > dipermasalahkan...kalau tidak sesuai pasti melenceng semua dan cetaknya
> > lambat....
> > lah ada nggak component print text yang semua jenis font-nya (dari 10
> cpi -
> > 20 cpi - condensed) ngikuti printer yg kita pakai (misal Epson LQ-2170)
> ???
> >
> > Terima kasih
> >
>
>
>
>
>
> 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/
>
>
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs from home.
Over 14,500 titles. Free Shipping
& No Late Fees. Try Netflix for FREE!
http://us.click.yahoo.com/mk9osC/hP.FAA/3jkFAA/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/
