W
wgw158
Unregistered / Unconfirmed
GUEST, unregistred user!
with Printerdo
begin
begin
Doc;
Canvas.Refresh ;
canvas.Font.Name :='宋体';
canvas.Font.Charset :=GB2312_CHARSET;
canvas.Font.Size :=8;
for i:=0 to text_strings.Count -1do
Canvas.TextOut(TransformX(2), TransformY(i*40), text_strings);
NewPage;
EndDoc;
end;
打印完后为什么不能自动切纸,在线等待
begin
begin
Doc;
Canvas.Refresh ;
canvas.Font.Name :='宋体';
canvas.Font.Charset :=GB2312_CHARSET;
canvas.Font.Size :=8;
for i:=0 to text_strings.Count -1do
Canvas.TextOut(TransformX(2), TransformY(i*40), text_strings);
NewPage;
EndDoc;
end;
打印完后为什么不能自动切纸,在线等待