我的程序中使用TPrinter类控制Epson的TM-T88Ⅲp打印机,普通打印时没有报错,但是有时(必须大量不停的打印)会出现打印机停止,但是重启又好了。(我想不会是缓存的问题)
程序如下
try
printer.BeginDoc;
with Printer do
begin
canvas.Font.Size :=11;
canvas.Font.Name:='宋体';
Canvas.Pen.Width :=1;
for i:=0 to sList.Count -1 do
Canvas.TextOut(0,i*Canvas.TextHeight(sList.Strings[i]),sList.Strings[i]);
end;
printer.EndDoc;
except
ShowMessage('打印异常('+inttostr(i)+'行)');
//上面的那句我忘了有没有了,还有是否一定要 Printer.Abort;
end;
程序如下
try
printer.BeginDoc;
with Printer do
begin
canvas.Font.Size :=11;
canvas.Font.Name:='宋体';
Canvas.Pen.Width :=1;
for i:=0 to sList.Count -1 do
Canvas.TextOut(0,i*Canvas.TextHeight(sList.Strings[i]),sList.Strings[i]);
end;
printer.EndDoc;
except
ShowMessage('打印异常('+inttostr(i)+'行)');
//上面的那句我忘了有没有了,还有是否一定要 Printer.Abort;
end;
beginDoc;
abort;
……
……
enddoc;
上面那种情况下起作用,问一下:delphi控制打印机
怎么设置自定义纸张?A4纸太长了!!!