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