还有其它方法能实现无限长无缝打印（象DOS那样不分页的连续打印）？ (100分)

memo1.lines.save('c:/temp.txt');
copy c:/temp.txt prn

to hfghfghfg:
这种DOS命令方法也算？！

头痛的问题。

1、将打印内容输出到文本文件a.txt
2、生成一个批处理文件a.bat，内容如下：
type a.txt>prn
3、在程序中执行如下命令：
WinExec('a.bat', SW_HIDE);
4、打印完毕！
5、请给分！

我记得使用Delphi带的Printer类打印，在Printer.begin
Doc和Printer.EndDoc之间，在循环中，如果要换页，必须加入Printer.NewPage，你把这一句去了应该可以吧
比如
procedure TForm1.Button1Click(Sender: TObject);
var
i,x,y,LineSpace:integer;
begin
x := 20;
y := 20;
LineSpace := 20;
Printer.begin
Doc;
for i := 0 to 400do
begin
Printer.Canvas.TextOut(x,y,'Your Text');
y := y + LineSpace;
end;
Printer.EndDoc;
end;

你自己试过吗？