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

Страница 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

Точно это для дельфи

Я забыл что это в лазарусе не работает