问如何在delphi中使用XPS_PASS标志将数据直接发送到XPS打印机

EN

uses
  Winapi.WinSpool;

function RawDataToXpsPrinter(PrinterName: String; Data: TBytes; DataCount: Cardinal): Boolean;
var
  hPrinter: NativeUInt;
  DocInfo: DOC_INFO_1;
  PrintJob: Cardinal;
  BytesWritten: Cardinal;
begin
  Result := OpenPrinter(PChar(PrinterName), hPrinter, nil);
  if Result then
  begin
    DocInfo.pDocName := PChar('My Document');
    DocInfo.pOutputFile := nil;
    DocInfo.pDatatype := PChar('XPS_PASS');

    PrintJob := StartDocPrinter(hPrinter, 1, @DocInfo);
    if (PrintJob > 0) then
    begin
      Result := WritePrinter(hPrinter, Data, DataCount, BytesWritten);
      EndDocPrinter(hPrinter);
      if Result then
        Result := ClosePrinter(hPrinter);
      Result := Result and (BytesWritten = DataCount);
    end;
  end;
end;