Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

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

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

*** ШАГИ ***

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

не постесняйтесь отправить их мне...

Взято из Советов по Delphi от Валентина Озерова

Сборник Kuliba