Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Настройки принтера

Юзeру надоел его принтер: то бумагу зажуёт, то расходники кончатся, то текст размажет... Решил юзeр от принтера избавиться. Но как? Продать - никто не купит. Подарить - врагов нет, а друзей оскорблять неохота. Выбросить из окна - а вдруг на чью-то голову... и т.п. Наконец придумал утопить. Бросил в реку, а он поверху плавает. Топил, топил - всплывает! "Вот чёрт! А ведь правду говорят - д@рьмо не тонет!"

Ниже приведены некоторые участки кода, позволяющие изменять настройки принтера. Тот код, который позволяет менять установки, позволяет также вам узнать принцип управления настройками. Смотри документацию по структурам ExtDeviceMode, TDEVMODE и escape функциям принтера GETSETPAPERBINS и GetDeviceCaps().

Один из путей изменения установок принтера перед печатью документа - изменение devicemode (режим устройства) принтера.

Пример:


 var
   Device: array[0..255] of char;
   Driver: array[0..255] of char;
   Port: array[0..255] of char;
   hDMode: THandle;
   PDMode: PDEVMODE;
 begin
   Printer.PrinterIndex := Printer.PrinterIndex;
   Printer.GetPrinter(Device, Driver, Port, hDMode);
   if hDMode <> 0 then
   begin
     pDMode := GlobalLock(hDMode);
     if pDMode <> nil then
     begin
       pDMode^.dmFields := pDMode^.dmFields or DM_COPIES;
       pDMode^.dmCopies := 5;
       GlobalUnlock(hDMode);
     end;
     GlobalFree(hDMode);
   end;
   Printer.PrinterIndex := Printer.PrinterIndex;
   Printer.BeginDoc;
   Printer.Canvas.TextOut(100, 100, 'Тест 1');
   Printer.EndDoc;
 

Другой путь - изменение TPrinter. Это позволит изменять установки во время работы. Вы можете изменять настройки МЕЖДУ страницами.

Чтобы сделать это:

Прежде чем поступит команда startpage() (см. модуль printers.pas в каталоге Source\VCL), вы можете передать принтеру следующий код:


 DevMode.dmPaperSize:=DMPAPER_LEGAL
 {сброс настроек}
 
 Windows.ResetDc(dc,Devmode^);
 

Это также сбросит настройки, связанные с размером бумаги. Вы можете обратиться к описанию DEVMODE, чтобы узнать все доступные размеры бумаги.

Но это решение потребует перекомпиляции исходного кода vcl с добавлением пути к новому модулю (tools..options.. library...libaray). Если вы все-таки на это решились, не забудьте после этого перезагрузить Delphi и помните, что после этого ваш исходный код становится несовместимым со стандартной версией Delphi.

Маленькое замечание...

При замене исходного принтера на другой помните, что размеры шрифтов не всегда могут правильно масштабироваться. Чтобы гарантировать соответствующий масштаб, устанавите свойство шрифта PixelsPerInch.

Вот два примера:


 uses Printers;
 var
   MyFile: TextFile;
 begin
   AssignPrn(MyFile);
   Rewrite(MyFile);
   Printer.Canvas.Font.Name := 'Courier New';
   Printer.Canvas.Font.Style := [fsBold];
   Printer.Canvas.Font.PixelsPerInch :=
     GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
   Writeln(MyFile, 'Печатаем этот текст');
   System.CloseFile(MyFile);
 end;
 


 uses Printers;
 
 begin
   Printer.BeginDoc;
   Printer.Canvas.Font.Name := 'Courier New';
   Printer.Canvas.Font.Style := [fsBold];
   Printer.Canvas.Font.PixelsPerInch:=
   GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
   Printer.Canvas.Textout(10, 10, 'Печатаем этот текст');
   Printer.EndDoc;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS