Delphi World - Изменение свойств печати во время ее выполнения

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Изменение свойств печати во время ее выполнения

Как разрешить изменения свойств принтера (например, лоток с бумагой, ориентация и др.) между страницами печати одного документа в шести шагах.

(В совете также приведен пример изменения поддона с бумагой...)

*** ШАГИ ***

Создайте копию модуля Printers.pas и переименуйте его в NewPrint.pas.

***НЕ делайте изменения в самом модуле Printers.pas, если вы сделаете это, то получите во время компиляции приложения ошибку "Unable to find printers.pas" (не могу найти printer.pas). (Я уже получае ее, поэтому и упоминаю об этом здесь...)***
Переместите модуль NewPrint.pas в директорию Lib.
(Используйте "C:\Program Files\Borland\Delphi Х\Lib" )
Измените ИМЯ МОДУЛЯ на NewPrint.pas
с:

unit Printers

на:

unit NewPrint

Добавьте декларацию следующего PUBLIC метода класса TPrinter в секции Interface модуля NewPrint.pas:

procedure NewPageDC(DM: PDevMode);

Добавьте следующую процедуру в секцию реализации NewPrint.pas:

procedure TPrinter.NewPageDC(DM: PDevMode);
begin
  CheckPrinting(True);
  EndPage(DC);
  {Проверяем наличие новых установок для принтера}
  if Assigned(DM) then
    ResetDC(DC,DM^);
  StartPage(DC);
  Inc(FPageNumber);
  Canvas.Refresh;
end;

Вместо добавления "Printers" в секцию USES вашего приложения (список используемых модулей), добавьте "NewPrint".

Теперь вдобавок к старым методам (таким как BeginDoc, EndDoc, NewPage и др.), у вас появилась возможность изменения свойств принтера "на лету", т.е. между страницами при печати одного и того же документа. (Пример приведен ниже.)

Вместо вызова:

Printer.NewPage;

напишите:

Printer.NewPageDC(DevMode);

Вот небольшой пример:

procedure TForm1.Button1Click(Sender: TObject);
var
  ADevice, ADriver, APort: array[0..255] of char;
  ADeviceMode: THandle;
  DevMode: PDevMode;
begin
  with Printer do
  begin
    GetPrinter(ADevice, ADriver, APort, ADeviceMode);
    SetPrinter(ADevice, ADriver, APort, 0);
    GetPrinter(ADevice, ADriver, APort, ADeviceMode);
    DevMode := GlobalLock(ADeviceMode);
    if not Assigned(DevMode) then
      ShowMessage('Не могу установить принтер.')
    else
    begin
      with DevMode^ do
      begin
        {Применяем здесь любые настройки, необходимые для изменения установок печати}
        dmDefaultSource := DMBIN_UPPER;
        {этот код приведен в "Windows.pas"}
      end;
      GlobalUnlock(ADeviceMode);
      SetPrinter(ADevice, ADriver, APort, ADeviceMode);
    end;
  end;

  Printer.BeginDoc;
  Printer.Canvas.TextOut(50, 50, 'Эта страница печатается из ВЕРХНЕГО ЛОТКА.');

  with DevMode^ do
  begin
    {Применяем здесь любые настройки, необходимые для изменения установок печати}
    dmDefaultSource := DMBIN_LOWER;
    {этот код приведен в "Windows.pas"}
  end;

  Printer.NewPageDC(DevMode);

  Printer.Canvas.TextOut(50, 50, 'Эта страница печатается из НИЖНЕГО ЛОТКА.');
  Printer.EndDoc;
end;

{*************************************************************

Примечание от автора:

Я использовал это во многих своих программах, поэтому я уверен в работоспособности кода.

Данный кода был создан в Delphi Client/Server 2.01 под WinNT 4.0, но впоследствии был
проверен на других версиях Delphi, а также под Windows95.
Правда я еще не поробовал его под Delphi 4... Если вы имеете любые комментарии или улучшения,
не постесняйтесь отправить их мне...

************************************************************}