Советы по Delphi
         

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


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

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

*** ШАГИ ***

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

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

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

    (Используйте &quotC:\Program Files\Borland\Delphi Х\Lib&quot )

  • Измените ИМЯ МОДУЛЯ на 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;

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

    Теперь вдобавок к старым методам (таким как 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; {этот код приведен в &quotWindows.pas&quot} end; GlobalUnlock(ADeviceMode); SetPrinter(ADevice,ADriver,APort,ADeviceMode); end; end;
    Printer.BeginDoc; Printer.Canvas.TextOut(50,50,'Эта страница печатается из ВЕРХНЕГО ЛОТКА.');
    with DevMode^ do begin {Применяем здесь любые настройки, необходимые для изменения установок печати} dmDefaultSource := DMBIN_LOWER; {этот код приведен в &quotWindows.pas&quot} end;
    Printer.NewPageDC(DevMode);
    Printer.Canvas.TextOut(50,50,'Эта страница печатается из НИЖНЕГО ЛОТКА.'); Printer.EndDoc; end;

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

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

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

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

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

    [000216]



    Содержание раздела