记账软件版1楼: 只要能打印标题及某个表中的记录就行，关键是实际可用的，我想参考一下，谢了！

2楼: 给个最简单的办法,做个窗口,放上label,把背景改为纯白,然后打印窗口就可以了,调整也方便. 如车辆信息管理软件

3楼: 用quick report

4楼: 不使用用报表控件(如qr,rm),那样打印速度太慢，直接使用Printers单元打印的。

5楼: asignfile;
writeln(＇＇line1＇＇);
closefile;

6楼: 给你一段代码 看看啊
！不晓得那位兄弟 有 如进销存 方面的文档资料啊
也给兄弟一份
Port: TextFile;
printStr,outfile : string;
outfile:=＇＇LPT1＇＇;
AssignFile(Port, OutFile);
REWRITE(Port);
WRITELN(Port,chr(27)+＇＇@＇＇);
Writeln(Port,Chr(28)+＇＇!＇＇+Chr(8));
Writeln(Port, Title);
Writeln(Port,Chr(28)+＇＇!＇＇+Chr(0));
WRITELN(Port,＇＇＇＇);
Writeln(Port,＇＇＇＇,auto,＇＇±àÂë:＇＇:6,windowno:3,＇＇²¿ÃÅ:＇＇:6,winname:4);

Writeln(Port,＇＇---------------------------------------＇＇);
Writeln(Port,Chr(28)+＇＇!＇＇+Chr(4));
writeln(Port,＇＇ÏÖ½ð¶î:＇＇:0,cost:6,＇＇Ôª＇＇);
Writeln(Port,Chr(28)+＇＇!＇＇+Chr(4));
writeln(Port,＇＇´ú½ðȯ:＇＇:0,ticket:6,＇＇Ôª＇＇);
Writeln(Port,Chr(28)+＇＇!＇＇+Chr(0));
writeln(Port,＇＇¸¶¿îÃ÷ϸ:＇＇:0,＇＇ ＇＇,rema);
Writeln(Port,＇＇---------------------------------------＇＇);
Writeln(Port,＇＇´ËƱµ±ÈÕÓÐЧ£¡»¶Ó­Ôٴλݹˣ¡＇＇);
Writeln(Port,＇＇ÈÕÆÚ:＇＇,Stime);
Writeln(Port,＇＇ÖØ´òʱ¼ä:＇＇,DateTimeToStr(Now));
writeln(Port,char(10));
writeln(Port,＇＇＇＇);
writeln(Port,＇＇＇＇);
writeln(Port,＇＇＇＇);
writeln(Port,char(27)+＇＇i＇＇); // ÇÐÖ½
CloseFile(Port);
end;

记账软件版7楼: to 153141271:
怎么全是乱码，看不清楚！麻烦再贴一次吧，谢了。