Imprimir PDF silencioso

[edufloriv]

Saludos amigos,

Hace un tiempo se publico algo similar, pero me gustaría saber si se encontró la solución. Tengo problemas para imprimir los archivos .PDF directamente a la impresora de forma silenciosa.

Hasta hace unas semanas usaba esto:

Code: Select all

PROC ProtoUnCliePrintPdf1
PARA cQueFile

   cQueFile := RutaProt+cQueFile

   SHELLEXECUTE( 0 , "print" , cQueFile , , 0 )

RETURN

Aparentemente estaba funcionando bien, mientras NO actualice el Acrobat Reader a la versión XI, por lo que deje en todas las pcs la version X

Sin embargo hace un par de semanas también comenzó a fallar con esta versión NO ME IMPRIME NADA. Solo aparece minimizado el acrobat reader en la barra de tareas con la lista de todos los .pdf que supuestamente debería imprimir.

Investigando trate con esta procedure:

Code: Select all

PROC ProtoUnCliePrintPdf2
PARA cQueFile

   cQueFile := RutaProt+cQueFile
   cRunLine := 'AcroRd32.exe /N /T "'+RTRIM(cQueFile)+'" "\\FARMACOMDOMINIO\\FARMACOMMAIL\MP 201 PCL 6"'

   delete file c:\printpdf.bat
   MEMOWRIT( 'c:\printpdf.bat' , cRunLine )

   SHELLEXECUTE( 0 , , "c:\printpdf.bat" , , 0 , 0 )

RETURN

Pero TAMPOCO FUNCIONA. Lo extraño es que cuando abro el archivo printpdf.bat y copio y pego la línea de comando directamente en INICIO - EJECUTAR... SORPRESA !!! SI FUNCIONA !!! Es como si el acrobat reader se negara a ejecutar la sentencia desde dentro del programa.

Este tema me va a volver loco. Por favor si alguien lo resolvió que me heche una mano.


Mil gracias por su gentil atención y reciban mis cordiales saludos.



Att.



Eduardo Flores Rivas
LIMA- PERU

[andyglezl]

Hola Eduardo

Yo tengo Acrobat Reader XI, lo estoy manejando de la siguiente forma:
-------------------------------------------------------------------------------------
Hello Eduardo

I have Acrobat Reader XI, I'm driving as follows:

Code: Select all

ShellExecute( 0, "Printto", CHR( 34 ) + cNomArc + CHR( 34 ), CHR( 34 ) + GetDefaultPrinter() + CHR( 34 ), 0, 0 )

el unico detalle, es que despues de imprimir queda presente la ventana de Acrobat.
----------------------------------------------------------------------------------------------------
the only detail is that after printing is present the Acrobat window.

AcrobatReader.jpg (116.64 KiB) Viewed 3597 times

[Pablo César]

Gracias Eduardo por compartir.

Se podria mandar cerrar la ventana, detectandose el titiulo de la ventana.

[edufloriv]

Amigo Andrés,

Me salvaste la vida, esta genial, funciona perfecto !!! Gracias por tu gentil ayuda.

Solo una pregunta más, como ya no funciona el ActiveX para mostrar los .pdf estoy usando esto:

Code: Select all

PROC ProtocoloMostrarPDF
PARA cQuePDF

   cQueFile := cPathJpgs+cQuePDF

   SHELLEXECUTE( 0 , "open" , cQueFile , , 0 )

RETURN

Y me funciona muy bien, pero antes de abrir me sale una ventana solicitando confirmación si se desea abrir "¿ Desea abrir este archivo ?" - Hay forma de evitar esta confirmación ?.

Mil gracias por tu valioso tiempo.


Saludos cordiales,


Eduardo Flores Rivas
LIMA - PERU

[andyglezl]

Eduardo, en algunos casos yo manejo el Acrobat como "vista previa" y desde ahí se manda a imprimir si se desea.

Code: Select all

SHELLEXECUTE( 0, "open" , "AcroRd32.exe", cNomArc )

A menos que el mensaje que te aparece sea del mismo Windows por motivos de seguridad.