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

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

    Остальная часть этой главы ссылается на пример программы PrnTest, записанной на ваших дистрибутивных дискетах под именем PRNTEST.PAS. PrnTest считывает текстовый файл в набор строк, а затем по команде печатает документ. Объект PrnTest описывается следующим образом:

     type
       PTextPrint = ^TTextPrint;
       TTextPrint = object(TPrintout);
         TextHeight, LinesPerPage, FirstOnPage, LastOnPage:
            Integer;
         TheLines; PCollection;
         constructor Init(ATitle: PChar;
                          TheText: PPCharCollection);
         function GetDialogInfo(var Pages: Intger): Boolean;
                          virtual;
         function HasNextPage(Page: Word): Boolean; virtual;
         procedure SetPrintParams(ADC: HDC; ASize: TPoint);
                          virtual;
         procedure PrintPage(Page: Word; var Rect: TRect;
                          Flags: Word); virtual;
     end;

     function TTextPtint.GetDialogInfo(var Pages: Integer):
                                       Boolean);
     begin
       Pages:= TheLines^.Count div LinesPerPage + 1;
       GetDialogInfo := True { вывод перед печатью диалогового
         блока }
     end;

    При написании методов PrintPage следует иметь в виду следующее:

    * Независимость от устройств. Убедитесь, что в вашем коде не делается предположений относительно масштаба, коэффициента относительного удлинения или цветах. Для различных устройств видеоотображения и печати эти характеристики могут отличаться, так что в программе следует избегать такой зависимости.

    * Возможности устройств. Хотя большинство видеоустройств поддерживают все операции GDI, некоторые принтеры этого не делают. Например, многие устройства печати (такие как графопостроители) совсем не воспринимают графических изображений. При выполнении сложных задач вывода в программе следует вызывать функцию API Windows GetDeviceCaps, которая возвращает важную информацию о данном устройстве вывода.

    Убедитесь, что HasNextPage возвращает в некоторой точке значение False. Если HasNextPage всегда возвращает True, то процесс печати попадет в бесконечный цикл.

    Часто возникает необходимость в том, чтобы окно само создавало свою распечатку, возможно в ответ на команды меню:

     procedure TSomeWindow.CMPrint(var Msg: TMessage);
     var P: PPrintout;
     begin
       P := New(PWindowPrintout, Init('Дамп экрана', @Self));
{ передать образ на экран }
       Dispose(P, One);
     end;

    TWindowPrintout не предусматривает разбивки на страницы. При печати документа вам нужно печатать каждую страницу отдельно, но так как окна не имеют страниц, вам нужно напечатать только один образ. Окно уже знает, как создать этот образ - оно имеет метод Paint. TWindowsPrintout печатается путем вызова метода Paint окна объекта с контекстом устройства печати вместо контекста дисплея.

    В этом случае порождающее окно - это окно, к которому будут присоединены все всплывающие диалоговые блоки (например, состояния принтера или сообщений об ошибках). Обычно это будет окно, генерирует команду печати, такое как основное окно со строкой меню. В процессе печати для предотвращения передачи множественных команд печати это окно запрещается.

    Предположим, у вас есть приложение, основное окно которого является экземпляром TWidGetWindow. В меню этого окна вы можете выбрать команду меню для печати содержимого окна, генерирующую команду cm_Print. Метод реакции на сообщения может иметь следующий вид:

     procedure TWidgetWindow.CMPrint(var Msg: TMessage);
     var P: PPrintout;
     begin
       P := New(PWindowPrint, Init('Widgets', @Self));
       Printer^.Print(@Self, P);
       Dispose(P, Done);
     end;

    Одна из командных кнопок в диалоге выбора принтера позволяет пользователям изменить конфигурацию конкретного принтера. Кнопка Setup выводит диалоговый блок конфигурации, определенной в драйвере принтера. Ваше приложение не может управлять внешним видом или функциями диалогового блока конфигурации драйвера.