POS小票打印[转]

// 向LPT口打印一个文本文件
procedure TPosFrm.PrintFile(AFileToPrint: string);
var
Port, FileToPrint: TextFile;
ALine: string;
begin
AssignFile(FileToPrint, AFileToPrint);
Reset(FileToprint);
AssignFile(Port, 'LPT1 ');
Rewrite(Port);
while not Eof(FileToPrint) do
begin
Readln(FileToPrint, ALine);
Writeln(Port, ALine);
end;
CloseFile(Port);
CloseFile(FileToPrint);
end;

// 打印小单
// 输出到文本，稍后再输出到LPT1端口；
OutFile:=ExtractFilePath(Application.ExeName)+ 'output.txt ';
AssignFile(F, OutFile);
Rewrite(F);
CompanyTitle:=SysParms.CompanyTitle+ '购物清单 ';
CompanyTitle:=StringOfChar( ' ', (32-Length(CompanyTitle)) div 2)+CompanyTitle;
Writeln(F, CompanyTitle);
Writeln(F, '-------------------------------- ');
// Writeln(F, '收银机: '+EdPosID.Text+ ' 单号: '+EdSaleID.Text);
// Writeln(F, '收银员: '+EdOpID.Text+ ' 日期: '+EdSaleDate.Text);
Write(F, '收银员: ', Format( '%-10s ', [STOpID.Caption]));
Writeln(F, '单号: '+STSaleID.Caption);
Writeln(F, '日期: '+STSaleDate.Caption+ ' 时间: '+FormatDateTime( 'hh:mm:ss ', Now));
Writeln(F, '-------------------------------- ');
// 12345678901234567890123456789012
Writeln(F, '商品名称 数量 单价 金额 ');

ADSSaleList.DisableControls;
ADSSaleList.First;
while not ADSSaleList.Eof do
begin
MerName:=ADSSaleList.FieldValues[ 'MerName '];
len:=Length(MerName);
if len < 18 then
MerName:=MerName+StringOfChar( ' ', 18-len);
if (len mod 2) = 0 then
Write(F, Copy(MerName, 1, 18))
else
Write(F, (Copy(MerName, 1, 17)+ ' '):18);
Write(F, ADSSaleList.FieldValues[ 'Qty ']:2);
Write(F, FormatFloat( '0.0 ', ADSSaleList.FieldValues[ 'Price ']):6);
Writeln(F, FormatFloat( '0.0 ', ADSSaleList.FieldValues[ 'Amount ']):6);
ADSSaleList.Next;
end;
ADSSaleList.EnableControls;

Writeln(F, '-------------------------------- ');
Writeln(F, '合计: ',STHj.Caption:8, ' 让利: ', STRl.Caption:8);
Writeln(F, '实收: ',STSs.Caption:8, ' 金卡: ',
FormatCurr( '0.00 ', CardPayment):8
);
Writeln(F, '现金: ',
FormatCurr( '0.00 ', StrToCurr(EdCash.Text)-CardPayment):8,
' 找补: ', STBack.Caption:8
);
Writeln(F, ' '); //空行，添加或减少空行即可控制出纸多少。
...
PrintFile(Outfile); // 输出文件到打印口

输出如下例：

XX化妆品世界购物清单
--------------------------------
收银员:01 单号:000000329
日期:2003-07-16 时间:17:53:28
--------------------------------
商品名称 数量 单价 金额
8g华美健强力消痘乳 4 16.0 64.0
小口红 1 5.0 5.0
180g隆力奇蛇胆不紧 3 20.8 62.4
速效脱毛露 2 7.5 15.0
美容海藻面膜 3 18.0 54.0
蕾琪唇彩 1 12.0 12.0
.....
--------------------------------
合计: 2058.40 让利: 0.00
实收: 2058.40 金卡: 0.00
现金: 2100.00 找补: 41.60

因宽度只有58mm，故商品名切去部分。