Buscar por:

Mudando impressora padrão pelo nome

Código

Procedure SetDefaultPrinter(PrinterName: String); 

var 

  I: Integer; 

  Device : PChar; 

  Driver : Pchar; 

  Port : Pchar; 

  HdeviceMode: Thandle; 

  aPrinter : TPrinter; 

begin 

  Printer.PrinterIndex := -1; 

  getmem(Device, 255); 

  getmem(Driver, 255); 

  getmem(Port, 255); 

  aPrinter := TPrinter.create; 

  for I := 0 to Printer.printers.Count-1 do 

  begin 

  if Printer.printers[i] = PrinterName then 

  begin 

  aprinter.printerindex := i; 

  aPrinter.getprinter 

  (device, driver, port, HdeviceMode); 

  StrCat(Device, ','); 

  StrCat(Device, Driver ); 

  StrCat(Device, Port ); 

  WriteProfileString('windows', 'device', Device); 

  StrCopy( Device, 'windows' ); 

  SendMessage(HWND_BROADCAST, WM_WININICHANGE, 

  0, Longint(@Device)); 

  end; 

  end; 

  Freemem(Device, 255); 

  Freemem(Driver, 255); 

  Freemem(Port, 255); 

  aPrinter.Free; 

end;