急！！　寻　打印pos机小票的程序或方法(100分)

　作了一个超市管理软件，急！！寻　打印pos机小票的程序或方法。用 FastReport3.03 可以实现吗？

可以吧。操作系统可以支持的打印，使用fastreport就可以。

?email,代码比较多

TO zywcd.
fastreport 选什么样的纸张呀，要是用自定义，纸张高度怎么定义呀，　每一小票的高度是可变长度，而且打印完之后，就停止。不需要，输出全部纸张大小的纸。

这样会打印超慢的。

前台打印必须是在线打印:即收完一个商品就必须立即打出一行，不能等到全部完成后再生成打印。这样客户会骂人的。

直接打印就是了。还用的着什么控件吗？
AssignPrn(Prn);
Rewrite(Prn);
Printer.Canvas.Font.Size :=10;
Writeln(prn,SetStringCenter(UserInfo.UserName ));
Writeln(prn,'地址'+ UserInfo.UserAddr);
Writeln(prn,'------------------------------------');
Writeln(Prn,'货号 名称 单价 数量 折扣 金额');
Writeln(Prn,SetStringCenter('**谢谢惠顾**'));
System.CloseFile(prn);

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.Eofdo
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

我的邮箱： china9707133@163.com

直接往打印机端口仍数据就可以了,没什么新鲜的

fastreport 可以随意定义纸张。

直接扔数据，应该怎么做呢？chujian请能给一个例子出来吗？

收藏一下，正需要
网上有思微pos的不错，可以看一下，里面有pos小票打印的，很详细

to:yjhbeer
就是上面写的那些例子,直接发往打印端口的.不过发送过程中要控制,最好发送一段等一下,然后再发送,再等待,要不然会溢出

用RM控件很容易做的

赞成用RM

使用fastreport就可以

谢谢各位的热情 帮助。

多人接受答案了。