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

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

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

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

   ***НЕ делайте изменения в самом модуле Printers.pas, если вы сделаете это, то получите во время компиляции приложения ошибку "Unable to find printers.pas" (не могу найти printer.pas). (Я уже получае ее, поэтому и упоминаю об этом здесь...)***

    

2. Переместите модуль NewPrint.pas в директорию Lib.

   (Используйте "C:Program FilesBorlandDelphi ХLib" )

    

3. Измените ИМЯ МОДУЛЯ на NewPrint.pas

   с:

unit
 Printers

на:

unit
 NewPrint

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

procedure
 NewPageDC(DM: PDevMode);

5. Добавьте следующую процедуру в секцию реализации 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
;

6. Вместо добавления "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... Если вы имеете любые комментарии или улучшения,
не постесняйтесь отправить их мне...

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

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати