打印收据(100分)

编写一个程序，按固定格式打印一个收据，收据包括4项，同时将此数据保存在一个数据库
文件中。

你用QReport控件联接数据控件就可以了。

我也做过这么一个程序!打印固定格式的东西!你只要用QUICKREP连接数据源
排列好打印的东西就行了!要程序的话!给我MAIL!zylxm@263.net

建议用ereport模版随时可以改不用动exe

fast report也不错丫！！

你把打印样本寄给我，我给你原代码。

你就直接使用PRINTERS打印就得了。小的打印工作何必劳QUICKREP的大驾。
procedure PrinterData;
var
f:TextFile;
begin

Assignprn(f);
Rewrite(f);
Printer.Canvas.Font.size := 10;

writeln(f,' '+Table_oper_tmpT3.AsString);// +' '+ table_oper_tmpyear_mon.AsString);
writeln(f,' '+Table_oper_tmpT1.AsString +'('+ Table_oper_tmpT0.AsString+')');
writeln(f,' '+table_oper_tmpT5.asstring+ ' '+DateToStr(now)+'开单');
writeln(f,'');
writeln(f,'');
writeln(f,' 费用1 '+ table_oper_tmpDH.AsString + ' 市话费 '+ table_oper_tmpshf.AsString+ ' 费用3 '+table_oper_tmpckch.AsString);
writeln(f,' 费用2 '+ table_oper_tmprgct.AsString+' 农话费 '+ table_oper_tmpnhf.AsString+ ' 其他费 '+table_oper_tmpqt.AsString);
writeln(f,'');
writeln(f,' '+SendMessage.ChineseMoney(table_oper_tmptotal.Asfloat+table_oper_tmpDelay_fee.AsFloat)+ ' '+FloatToStr(table_oper_tmptotal.Asfloat+table_oper_tmpDelay_fee.AsFloat)+'元');
System.Close(f);

end;

多人接受答案了。