Карта сайтаСсылкиКонтакты

Как изменить порт, используемый принтером

PDF Печать
Статьи

Можно использовать метод SetPrinter объекта TPrinter для изменения порта.

Пример, показанный ниже демонстрирует изменение порта, чтобы печатать в файл.


uses Printers;

 {$IFNDEF WIN32}
  const MAX_PATH = 144;
 {$ENDIF}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   pDevice : pChar;
   pDriver : pChar;
   pPort   : pChar;
   hDMode : THandle;
   PDMode : PDEVMODE;
 begin
   if PrintDialog1.Execute then begin
     GetMem(pDevice, cchDeviceName);
     GetMem(pDriver, MAX_PATH);
     GetMem(pPort, MAX_PATH);
     Printer.GetPrinter(pDevice, pDriver, pPort, hDMode);
     Printer.SetPrinter(pDevice, PDriver, 'FILE:', hDMode);
     FreeMem(pDevice, cchDeviceName);
     FreeMem(pDriver, MAX_PATH);
     FreeMem(pPort, MAX_PATH);
     Printer.BeginDoc;
     Printer.Canvas.TextOut(100, 100, 'Delphi Is RAD!');
     Printer.EndDoc;
   end;
 end;
 

 

Комментарии   

 
0 #1 http:// 20.03.2014 19:24
Heya i am for the first time here. I found this board and I
find It truly useful & it helped me out a lot. I hope to give
something back and aid others like you helped me.
Цитировать
 

Добавить комментарий


Защитный код
Обновить