pinter为何打印不完整？ ( 积分: 100 )

程序如下：
procedure Tformqre.Button1Click(Sender: TObject);
var
i, j : integer;
x, y : integer;
begin

x := 360;
y := 300;
if Pntset1.Execute then
begin
printer.begin
Doc;
if printer.printers.Count = 0 then
begin
ShowMessage('请首先安装打印机');
Printer.Abort;

end;


for i := 0 to 144do
begin
if (i mod 3 = 0) and (i <> 0) and (i <> 144) then
printer.Canvas.Pen.Style := psdot;
printer.Canvas.MoveTo(y, i * 15 + x);
printer.Canvas.LineTo(1540 + y, i * 15 + x);
if (i mod 3 = 0) and (i <> 0) and (i <> 144) then
printer.Canvas.Pen.Style := pssolid;
end;

with printer.Canvasdo
begin
Font.Name := '宋体';
Font.Size := 10;
Font.Style := [];
end;
printer.Canvas.TextOut(y-100, x-100, '这是测试行！');
for j := 0 to 11do
begin
printer.Canvas.MoveTo(j * 140 + y,x );
printer.Canvas.LineTo(j * 140 + y,2160 + x );
end;
printer.EndDoc;
end;
end;
问题：打印后只出来一半多的线条就停止了，用的A3纸，还有出来的文字如何能转90度呢？谢谢！

程序如下：
procedure Tformqre.Button1Click(Sender: TObject);
var
i, j : integer;
x, y : integer;
begin

x := 360;
y := 300;
if Pntset1.Execute then
begin
printer.begin
Doc;
if printer.printers.Count = 0 then
begin
ShowMessage('请首先安装打印机');
Printer.Abort;

end;


for i := 0 to 144do
begin
if (i mod 3 = 0) and (i <> 0) and (i <> 144) then
printer.Canvas.Pen.Style := psdot;
printer.Canvas.MoveTo(y, i * 15 + x);
printer.Canvas.LineTo(1540 + y, i * 15 + x);
if (i mod 3 = 0) and (i <> 0) and (i <> 144) then
printer.Canvas.Pen.Style := pssolid;
end;

with printer.Canvasdo
begin
Font.Name := '宋体';
Font.Size := 10;
Font.Style := [];
end;
printer.Canvas.TextOut(y-100, x-100, '这是测试行！');
for j := 0 to 11do
begin
printer.Canvas.MoveTo(j * 140 + y,x );
printer.Canvas.LineTo(j * 140 + y,2160 + x );
end;
printer.EndDoc;
end;
end;
问题：打印后只出来一半多的线条就停止了，用的A3纸，还有出来的文字如何能转90度呢？谢谢！

没错阿
我打印出的效果就是全是线阿，有什么问题
还有字体旋转的：你一行打一个字不就的了

TO:guofengdelphi
你打印出的是整张的吗？横线可以全部出来，竖线只有3/4的出来呀，然后纸就停止不动了。
一行打一个字的话我的低是横的，出来的字就会是倒着的呀[]

你横向，竖向那里设置对了没有？

To:woainin
横向与竖向在弹出的打打印设置中可以设置，但不论横竖都不正常，如果设置为竖向的话打出来的线就只有几条了[]

已经解决了，A3有两个，那个写了纸张大小的打出来就不正常[]

晕，分错了