Справочник функций и процедур Delphi: Printer

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

Printer
Функция
Возвращает ссылку к глобальному объекту Printer unit
  function Printer : TPrinter;

Google  
 
Описание
Функция Printer возвращает ссылку на глобальный объект принтера (TPrinter).

Этот объект имеет много методов и свойств, которые Вы можете использовать, чтобы управлять печатью. В особенности:

BeginDoc : Начинает печать
EndDoc : Заканчивает печать
NewPage : Начинает новую страницу
PageHeight : Высота холста страницы в пикселях
PageWidth : Ширина холста страницы в пикселях
Canvas.Font : Используется для установки размера/цвета и т.д. шрифта
Canvas.Draw : Рисует графический объект на странице
Canvas.TextOut : Пишет текст на странице

Вы должны использовать TPrintDialog, чтобы показать пользователю диалог выбора и конфигурации принтера перед печатью, как показано в примере.
Похожие команды
TObject  Тип базового класса, который является предком для всех других классов

 
Пример кода : Печать страницы с строками текста ширины и высоты
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;
Страница будет напечатана с большим синим текстом, слева наверху:

Ширина страницы = 2400
Высота страницы = 3357
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook