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;
|