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，故商品名切去部分。  

//打印机无硬字库时
Unit

Printers

function Printer: TPrinter;

  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;