Problema con Printer.PrinterIndex

[ecfisa]

Hola newtron

La verdad es que no me he topado con WS 2016, pero prueba este ejemplo a ver si te funciona:

Código Delphi [-]
....
implementation

uses Printers;

function GetDefaultPrinter(prnName : PAnsiChar; var bufSize : DWORD ) : BOOL;
  stdcall; external 'winspool.drv' name 'GetDefaultPrinterA';

function GetDefaultPrinterName(): string;
var
  lpName: PChar;
  szBuff: DWORD;
begin
  GetDefaultPrinter(nil, szBuff);
  GetMem(lpName, szBuff);
  try
    GetDefaultPrinter(lpName, szBuff);
    Result := lpName;
  finally
    FreeMem(lpName);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Items     := Printer.Printers; // (*)
  ComboBox1.ItemIndex := -1;
  ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(GetDefaultPrinterName());
end;

(*) Para obtener la lista de impresoras se podría usar la función EnumPrinters pero si no recuerdo mal, es la que usa la propiedad Printers así que no creo que se gane mucho...

Saludos

[[newtron]]

Hola ecfisa, me alegra saber de ti.

Efectivamente este código parece que funciona, gracias. Es una cosa muy extraña que solamente me ha pasado con la combinación WS 2016+Thingstuff+Delphi 2007.

Gracias de nuevo y un saludo