Total PDF PrinterX — uma solução prática de servidor para imprimir arquivos PDF

C escuro
Definir C=CreateObject("PDFPrinter.PDFPrinterX")
C.Print "c:\test\source.PDF", "Nome da impressora", "-log c:\test\PrintPDF.log"
conjunto C = nada

Exemplo PHP:
$src="C:\\teste\\teste.pdf";
$Printer="Nome da minha impressora";
se (file_existe($dest)) unlink($dest);
$c= new COM("PDFPrinter.PDFPrinterX");
$c->Imprimir($src, $Impressora, "-ps A4 -NumCopy 2");
se ($c->ErrorMessage=="") eco "OK"; senão eco "falha:".$c->ErrorMessage;

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

src="C:\\teste\\teste.pdf";
dest="Nome da impressora";

c.Print(origem,destino, "-log c:\\teste\\PDFPrinter.log");

se não File.exist?(dest)
  coloca c.ErrorMessage
fim

importar win32com.client
importar os.path

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

src="C:\\teste\\teste.pdf";
dest="Nome da impressora";

c.Print(origem, dest, "-log c:\\teste\\PDFPrinter.log");

se não os.path.exists(file_path):
  imprimir(c.ErrorMessage)

usa Diálogos, Vcl.OleAuto;

var
  c: OleVariant;
  Fonte: String;
começar
  c:=CreateOleObject('PDFPrinter.PDFPrinterX');
  Fonte:='c:\test\source1.pdf';
  C.Print(Fonte, 'Nome da impressora', '-log c:\teste\PDFPrinter.log');
  SE c.ErrorMessage<> Então
    MostrarMensagem(c.ErrorMessage);
fim;

usar Win32::OLE;

meu $src="C:\\test\\test1.pdf";
meu $dest="Nome da impressora";

meu $c = CreateObject Win32::OLE 'PDFPrinter.PDFPrinterX';
$c->Imprimir($src,$dest, "-log c:\\teste\\PDFPrinter.log");
imprimir $c->ErrorMessage se -e $dest;