const
ActualHeight=18800;
var
Hei,i,PageNum:Integer;
begin
Hei:=Printer.PageHeight;
PageNum:=Round(ActualHeight/Hei+0.5);
with Printer,Canvas do
for i:=0 to PageNum-1 do begin
BeginDoc;
MoveTo(0,-i*Hei);
LineTo(2200,ActualHeight-i*Hei);
EndDoc;
end;
end;
