Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Как программно изменить текущий порт принтера?

Как программно изменить текущий порт принтера?

Используйте метод 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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru