uses Winapi.WinSpool; procedure TForm1.Button1Click(Sender: TObject);varpi2: PRINTER_INFO_2;hPrinter: THandle;Jobs: array [0 .. 1000] of TJobInfo2;BytesNeeded, NumJobs: Dword;beginpi2.pPrinterName := 'Microsoft XPS Document Writer';if OpenPrinter(pi2