Класс TPrinter
Delphi имеет стандартный объект для доступа к принтеру - TPRINTER,
находящийся в модуле PRINTERS. В этом модуле имеется переменная Printer:Tpinter,
что избавляет от необходимости описывать свою. Он позволяет выводить данные на
печать и управлять процессом печати. Правда, в некоторых версиях Delphi1 он
имеет "глюк" - не работают функции Draw и StrethDraw. Но эта проблема поправима
- можно использовать функции API. Далее приведены основные поля и методы объекта
Printers :
PROPERTY
- Aborted:boolean - Показывает, что процесс печати прерван
- Canvas:Tcanvas - Стандартный Canvas, как у любого графического объекта. Он
позволяет рисовать на листе бумаге графику, выводить текст ... . Тут есть
несколько особенностей, они описаны после описания объекта.
- Fonts:Tstrings - Возвращает список шрифтов, поддерживаемых принтером
- Handle:HDS - Получить Handle на принтер для использования функций API (см.
Далее)
- Orientation:TprinterOrientation - Ориентация листа при печати : (poPortrait,
poLandscape)
- PageHeight:integer - Высота листа в пикселах
- PageNumber:integer - Номер страницы, увеличивается на 1 при каждом NewPage
- PageWidth:integer - Ширина листа в пикселах
- PrinterIndex:integer - Номер используемого принтера по списку доступных
принтеров Printers
- Printers:Tstrings - Список доступных принтеров
- Printing:boolean - Флаг, показывающий, что сейчас идет процесс печати
- Title:string - Имя документа или приложения. Под этим именем задание на
печать регистрируется в диспетчере печати
METODS
- AssignPrn(f:TextFile) - Связать текстовый файл с принтером. Далее вывод
информации в этот файл приводит к ее печати. Удобно в простейших случаях.
- Abort - Сбросить печать
- BeginDoc - Начать печать
- NewPage - Начать новую страницу
- EndDoc - Завершить печать.
Пример :
Procedure TForm1.Button1Click(Sender: TObject);
Begin
With
Printer do
Begin
// Начало печати
BeginDoc;
// Задали шрифт
Canvas.Font:=label1.font;
// Печатаем текст
Canvas.TextOut(100,100,'Delphi World - лучше всех !!! :) ');
// Конец печати
EndDoc;
end;
end
;
Другое по теме: