关于打印问题！请各位xdjm进来探讨！

[yanhuizen]

现在做一系统，需求，打印的时候数据有多少，打印就应打多少，类似于超市post打印。
xdjm 请说高见。

问题解决立马给分结贴。

[darkliu]

你的问题是什么？

这种报表打印的例子很多啊

[yanhuizen]

就是在打印完数据后停纸

[chenylin]

procedure TForm1.ButtonPrintClick(Sender: TObject);
var
PText:TextFile;
i:integer;
begin
Printer.Canvas.Font.Charset:=GB2312_CHARSET;
AssignPRN(PText);
Rewrite(PText);
Printer.Canvas.Font.Name:='黑体';
Printer.Canvas.Font.Size:=10;
writeln(Ptext,'POS 票据');
writeln(Ptext,'');
writeln(Ptext,'品名 单价 数量 小计');
For i:=1 to ADODataSetPJ.RecordCount do
writeln(Ptext,ADODataSetPJ.FieldByName('pm').asString+
ADODataSetPJ.FieldByName('dj').asString+
ADODataSetPJ.FieldByName('sl').asString+
ADODataSetPJ.FieldByName('hj').asString);
writeln(Ptext,'');
CloseFile(Ptext);
end;

[psp2003]

顶一把

[yanhuizen]

我用的是FastReport建的报表能实现吗?

[Heyongfeng]

是即打即停吧
学

[li_1975]

学习一下

[yanhuizen]

没有关注了,自己UP