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