[Garada]

En mis notas tengo esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
    PrtIndex   : Integer;
    DeviceMode : THandle;
    Device,
    Driver,
    Port       : array [0..255] of Char;
begin
    // Warning: The printer name is case sensitive
    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, 'C:\Temp\TestPrintToPdf.pdf', 0);
    Printer.BeginDoc;
    Printer.Canvas.TextOut(100, 100, 'Hello World');
    Printer.EndDoc;
end;

Desde //stackoverflow.com/questions/64063302/set-default-folder-when-print-to-a-pdf-file>