Delphi 6 -программирование



 

20.3. PRINTER

Объект Printer автоматически создается, если в программе указана ссылка на модуль printers. Этот объект предоставляет программисту все необходимое для того, чтобы научить программу выводить данные на один из подключенных к ПК принтеров.

Вывод на принтер в Windows ничем не отличается от вывода на экран: в распоряжение программиста предоставляется свойство сап-vas объекта printer, содержащее набор чертежных инструментов и методы, свойственные классу TCanvas. Размер листа бумаги в пикселях принтера определяют свойства Height и Width, а набор принтерных шрифтов - свойство Fonts.

Свойства объекта printer:

property Aborted: Boolean;

Содержит True, если выполнение предыдущего задания на печать было досрочно прекращено

property Canvas: TCanvas;

 

 

Канва принтера - основной инструмент создания изображения на листе бумаги

type TPrinterCapability =

(pcCopies, pcOrientation, pcCollation) ; TPrinterCapabilities = set of

TPrinterCapability;

property Capabilities: TPrinter

Capabilities;

Содержит возможности текущей настройки драйвера принтера: pcCopies - может печататься несколько копий документа; pcOrien tation -драйвер поддерживает разную ориентацию листа бумаги; pcCollation -документ печатается в подбор по экземплярам

property Copies: Integer;

 

Указывает требуемое количество копий документа

property Fonts: TStrings;

Содержит список всех доступных принтеру шрифтов

TPrinterOrientation =

(poPortrait, poLandscape) ;

property Orientation: TPrinterOrientation;

Определяет ориентацию листа бумаги:

poPortrait вертикальная; poLandscape -

горизонтальная

property PageHeight: Integer;

 

Содержит высоту листа бумаги в пикселях принтера

property PageNumber: Integers;

 

Содержит номер печатаемой страницы документа (начинается с 1)

property PageWidth: Integer;

 

Содержит ширину листа бумаги в пикселях принтера

property Printerlndex: Integer;

Содержит индекс умалчиваемого принтера в списке Printers

property Printers: TStrings;

Содержит список всех доступных принтеров

property Printing: Boolean;

 

Содержит True, если принтер занят печатью документа

property Title: String;

Содержит имя задания на печать

Методы объекта printer:

procedure Abort;

Досрочно прекращает печать документа

procedure BeginDoc;

Начинает печать документа

procedure EndDoc;

Завершает печать документа

procedure NewPage;

Начинает печать новой страницы документа

Вот как, например, можно напечатать текст, содержащийся в редакторе Memo 1:

procedure TFor.gif" >

Рис. 20.1 . Окно просмотра печатного документа

Назад Начало Вперед