Страница 1 из 1
Как вывести форму на печать? печатается маленькая-маленькая.
Добавлено: 19.04.2012 02:24:39
Lifter
Lazarus. Хочу вывести на печать главную форму Form1
Код: Выделить всё
Printer.BeginDoc;
Form1.PaintTo(Printer.Canvas.Handle, 10, 10);
Printer.EndDoc;
Печатает, но очень маленького размера. Как бы ее сделать нормального размера при печати?
Re: Как вывести форму на печать? печатается маленькая-малень
Добавлено: 19.04.2012 13:43:32
tema
Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.PrintScale := poPrintToFit;
Form1.Print;
end;
Re: Как вывести форму на печать? печатается маленькая-малень
Добавлено: 20.04.2012 11:11:20
Lifter
identifier idents no member "PrintScale"
identifier not found "poPrintToFit"
В lazarus это не работает. Или чего подключить надо?
Re: Как вывести форму на печать? печатается маленькая-малень
Добавлено: 20.04.2012 12:43:03
tema
Точно это для дельфи
Я забыл что это в лазарусе не работает
