Uses Printers;

begin
Printer.BeginDoc;
Printer.Canvas.Rectangle(200,-200,5000,-3000);
Printer.EndDoc;
end;