Total PDF PrinterX

dim C
Set C=CreateObject("PDFPrinter.PDFPrinterX")
C.Print "c:\test\source.PDF", "Name of Printer", "-log c:\test\PrintPDF.log"
set C = nothing

Пример PHP:
$src="C:\\test\\test.pdf";
$Printer="My Printer Name";
if (file_exists($dest)) unlink($dest);
$c= new COM("PDFPrinter.PDFPrinterX");
$c->Print($src, $Printer, "-ps A4 -NumCopy 2");
if ($c->ErrorMessage=="") echo "OK"; else echo "fail:".$c->ErrorMessage;

require 'win32ole'
c = WIN32OLE.new('PDFPrinter.PDFPrinterX')

src="C:\\test\\test.pdf";
dest="Name Of Printer";

c.Print(src,dest, "-log c:\\test\\PDFPrinter.log");

if not File.exist?(dest)
  puts c.ErrorMessage
end

import win32com.client
import os.path

c = win32com.client.Dispatch("PDFPrinter.PDFPrinterX")

src="C:\\test\\test.pdf";
dest="Name Of Printer";

c.Print(src, dest, "-log c:\\test\\PDFPrinter.log");

if not os.path.exists(file_path):
  print(c.ErrorMessage)

uses Dialogs, Vcl.OleAuto;

var
  c: OleVariant;
  Source: String;
begin
  c:=CreateOleObject('PDFPrinter.PDFPrinterX');
  Source:='c:\test\source1.pdf';
  C.Print(Source, 'Name Of Printer', '-log c:\test\PDFPrinter.log');
  IF c.ErrorMessage<> Then
    ShowMessage(c.ErrorMessage);
end;

use Win32::OLE;

my $src="C:\\test\\test1.pdf";
my $dest="Name Of Printer";

my $c = CreateObject Win32::OLE 'PDFPrinter.PDFPrinterX';
$c->Print($src,$dest, "-log c:\\test\\PDFPrinter.log");
print $c->ErrorMessage if -e $dest;