Delphi-Help

Описание

function Printer : TPrinter;

Функция Printer возвращает ссылку на глобальный объект принтера (TPrinter).

Этот объект имеет много методов и свойств, которые Вы можете использовать, чтобы управлять печатью. В особенности:

BeginDoc : Начинает печать
EndDoc : Заканчивает печать
NewPage : Начинает новую страницу
PageHeight : Высота холста страницы в пикселях
PageWidth : Ширина холста страницы в пикселях
Canvas.Font : Используется для установки размера/цвета и т.д. шрифта
Canvas.Draw : Рисует графический объект на странице
Canvas.TextOut : Пишет текст на странице

Вы должны использовать TPrintDialog, чтобы показать пользователю диалог выбора и конфигурации принтера перед печатью, как показано в примере.

Пример кода

var
printDialog : TPrintDialog;
myPrinter   : TPrinter;

begin
// Создание диалога выбора принтера
printDialog := TPrintDialog.Create(Form1);

// Если пользователь выбрал принтер (или значение по умолчанию), то печатаем!
if printDialog.Execute then
begin
// Используйте функцию Printer, чтобы получить доступ к
// глобальному объекту TPrinter

myPrinter := Printer;
with myPrinter do
begin
// Начало печати
BeginDoc;

// Установка большого синего шрифта
Canvas.Font.Size   := 20;
Canvas.Font.Color  := clBlue;

// Выписываем размер страницы
Canvas.TextOut(20,  20, 'Ширина страницы = '+IntToStr(PageWidth));
Canvas.TextOut(20, 150, 'Высота страницы = '+IntToStr(PageHeight));

// Конец печати
EndDoc;
end;
end;
end;

Страница будет напечатана с большим синим текстом, слева наверху:

Ширина страницы = 2400
Высота страницы = 3357

Примечание