Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
Printer
Функция
Возвращает ссылку к глобальному объекту Printer unit
  function Printer : TPrinter;
Описание
Функция 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
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия