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



         

20 3 PRINTER



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



Содержание Назад Вперед