如何使用标志XPS_PASS将数据直接发送到德尔福的XPS打印机

Question

需要使用 https://support.microsoft.com/en-us/help/2779300/v4-print-drivers-using-raw-mode-to-send-pcl-postscript-directly-to-the 中提到的标志XPS_PASS将数据直接发送到Windows 7及更高版本中的XPS打印机，但是此标志未在Delphi中定义。

Answer 1

XPS_PASS不是标志。它是指示文档类型的字符串。另一个可能的值是RAW，它也是一个字符串。

下面是Microsoft如何在如何将数据直接发送到XPS打印机中提供的示例代码的快速直接翻译(已编译，但未经测试(

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;

由你来查找要作为PrinterName传递的XPS打印机驱动程序的正确名称，并将要打印的数据放入TBytes数组中，以作为Data传递给函数。DataCount是该数据的长度。想必你已经明白了，因为你在这里的问题只是如何通过'XPS_PASS'.