Imprimir en "Microsoft to PDF" pasando nombre del archivo

[LDD]

Muy bien, muchas gracias. Funciona a la perfección

Sólo he tenido que hacer un ajuste.
Si le paso el nombre del fichero en una variable (vNombrePDF) la he de convertir a pWIDECHAR

Printer.SetPrinter(Device, Driver, pWideChar(vNombrePDF), 0);

[seccion_31]

Para otras aplicaciones desde Impresoras, conectas el microsoft print pdf a un puerto local, donde indicas la ruta completa y el nombre de un archivo.pdf por ejemplo c:\mispdfs\archivo.pdf y listo.

[LDD]

Muchas gracias, pero ...

Es muy raro . En mi ordenador funciona perfectamente pero al instalar mi programa en otros ordenadores me dice "Printer is not printing"

[Garada]

Ni idea.

El código nunca lo había probado, es de esas cosas que me apunto cuando lo veo por si hace falta algún día. 😅

Lo he probado en Delphi 2010, he hecho las mismas adaptaciones que tú (el widechar) y funciona bien en un equipo con W11 y otro con W10.
Revisa en los otros equipos si la impresora está instalada, se llama igual, etc.
Prueba también con un código más simple, como el ejemplo, por si hay algo que cause el error en otra parte del código de tu aplicación.

El código de mi prueba, un form y un botón:

Código Delphi [-]
uses
  Printers, ShellAPI;

procedure TForm1.btn1Click(Sender: TObject);
var
  PrtIndex: Integer;
  DeviceMode: Cardinal;
  Device,
  Driver,
  Port: array [0..255] of WideChar;
  PdfFileName: string;
begin
  PdfFileName := ExtractFilePath(Application.ExeName) + 'p.pdf';

  PrtIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');
  if PrtIndex < 0 then
      raise Exception.Create('Printer not found');

  Printer.PrinterIndex := PrtIndex;
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, PWideChar(PdfFileName), 0);
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'Hello World ' + DateTimeToStr(Now));
  Printer.EndDoc;

  ShellExecute(0, 'open', PWideChar(PdfFileName), nil, nil, 0);
end;