Как вывести форму на печать? печатается маленькая-маленькая.

[Lifter]

Lazarus. Хочу вывести на печать главную форму Form1

Код: Выделить всё

Printer.BeginDoc;
Form1.PaintTo(Printer.Canvas.Handle, 10, 10);
Printer.EndDoc;

Печатает, но очень маленького размера. Как бы ее сделать нормального размера при печати?

[tema]

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.PrintScale := poPrintToFit;
Form1.Print;
end;

[Lifter]

identifier idents no member "PrintScale"
identifier not found "poPrintToFit"

В lazarus это не работает. Или чего подключить надо?

[tema]

Точно это для дельфи
Я забыл что это в лазарусе не работает