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

Форум для изучающих FPC и их учителей.

Модератор: Модераторы

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

Сообщение Lifter » 19.04.2012 02:24:39

Lazarus. Хочу вывести на печать главную форму Form1
Код: Выделить всё
Printer.BeginDoc;
Form1.PaintTo(Printer.Canvas.Handle, 10, 10);
Printer.EndDoc;
Печатает, но очень маленького размера. Как бы ее сделать нормального размера при печати?
Lifter
новенький
 
Сообщения: 21
Зарегистрирован: 19.04.2012 02:17:24

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

Сообщение tema » 19.04.2012 13:43:32

Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.PrintScale := poPrintToFit;
Form1.Print;
end;
tema
постоялец
 
Сообщения: 375
Зарегистрирован: 24.03.2011 20:19:27

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

Сообщение Lifter » 20.04.2012 11:11:20

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

В lazarus это не работает. Или чего подключить надо?
Lifter
новенький
 
Сообщения: 21
Зарегистрирован: 19.04.2012 02:17:24

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

Сообщение tema » 20.04.2012 12:43:03

Точно это для дельфи :D
Я забыл что это в лазарусе не работает :(
tema
постоялец
 
Сообщения: 375
Зарегистрирован: 24.03.2011 20:19:27


Вернуться в Обучение Free Pascal

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 18

Рейтинг@Mail.ru
cron