哪位有小票打印的实用代码供我参考一下，谢谢！(30分)

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

给个最简单的办法,做个窗口,放上label,把背景改为纯白,然后打印窗口就可以了,调整也方便.

用quick report

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

asignfile;
writeln('line1');
closefile;

给你一段代码 看看啊
！不晓得那位兄弟 有进销存 方面的文档资料啊
也给兄弟一份
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;

to 153141271:
怎么全是乱码，看不清楚！麻烦再贴一次吧，谢了。