Функция Printer возвращает ссылку на глобальный объект принтера (TPrinter).
Этот объект имеет много методов и свойств, которые Вы можете использовать, чтобы управлять печатью. В особенности:
BeginDoc : Начинает печать EndDoc : Заканчивает печать NewPage : Начинает новую страницу PageHeight : Высота холста страницы в пикселях PageWidth : Ширина холста страницы в пикселях Canvas.Font : Используется для установки размера/цвета и т.д. шрифта Canvas.Draw : Рисует графический объект на странице Canvas.TextOut : Пишет текст на странице
Вы должны использовать TPrintDialog, чтобы показать пользователю диалог выбора и конфигурации принтера перед печатью, как показано в примере.
Похожие команды
TObject Тип базового класса, который является предком для всех других классов
Пример кода : Печать страницы с строками текста ширины и высоты
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;
Страница будет напечатана с большим синим текстом, слева наверху: