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

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 World Is Wonderful!');
    Printer.EndDoc;
  end;
end;

Статья Как программно изменить текущий порт принтера раздела ОС и Железо Принтеры и Печать может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2009-08-10 20:20:04 :: re:Как программно изменить текущий порт принтера

пользователь: Vadim.

Может, конечно, поздновато, но все же: Я пробовал и у меня не вышло на usb (определяется как usb001). Может примерчик какой покажите? Сам то я программирую недавно...

:: 2009-08-10 22:19:03 :: re:Как программно изменить текущий порт принтера

пользователь: kan.

По идее этот пример должен работать, главное:
- что бы драйвера принтера были установлены в системе,
- наименование порта принтера было указано верно (для твоего примера нужно писать \"USB001\")

:: Главная :: Принтеры и Печать ::