Imprimir pdf desde aplicación

[surGom]

Hola foro, lo que necesito es que al imprimr un remito (impresora matricial) me imprima en segundo plano en una impresora laser, archivos que estan en pdf y que previamente guarde en una dbf como maestro\archivos\analisis.pdf, necesito que se ejecute sin necesidad de visualizar el pdf, por que se tiran muchos remitos seguidos y así se agiliza la operatoria.

Gracias a todos


Luis

[Manuel Aranda]

Hola Luís:

Puedes mirarte pdftk, que tiene muchas posibilidades, entre ellas poder fusionar varios pdf,s en uno solo. Luego podrías imprimirlo.
Es sólo una idea.

[surGom]

Gracias Manuel lo estoy bajando. Pero lo que yo quiero es algo así:

Cuando acepto el remito imprimir el remito y que se dispare la impresión con algo como esto

For z = 1 to len cantidad de pdf

imprimir pdf[z] // sería con shellexecute??

next

No sé bien como implementarlo y si se puede


Luis

[Manuel Aranda]

Hola Luis:

Desconozco que se pueda imprimir directamente un fichero PDF sin antes visualizarlo. Lo que te comentaba en el post anterior es que con pdftk puedes fusionar todos los pdf,s en una solo, después visualizarlo y enviarlo a imprimir. Así por ejemplo:
//fusionas todos lo pdf,s de la carpeta en uno solo
WaitRun("pdftk.exe *.pdf cat output todos.pdf",0 )
//después lo visualizas y lo mandas a imprimir
ShellExecute( ,"open", "todos.pdf",,,1 )

Espero te sirva.

[Carlos Mora]

Hola amigos,

se puede imprimir directamente si se cambia el "open" por el "print" en el shellexecute()

Un saludo,

Carlos.

[Manuel Aranda]

Gracias Carlos. Efectivamente, así es. Con esto, quizá nuestro amigo Luis haya encontrado lo que busca.
Por cierto, doblemente gracias por ponerme sobre la pista de pdftk , está excelente. Ya he logrado fusionar un pdf con datos utilizándolo. Estoy dándole los últimos toques y subiré un ejemplo sencillo al foro por si alguien lo quiere utilizar.

[surGom]

Gracias, eso es lo que quería saber ya que estoy en mi casa y no tenfo impresoras, para probar, mañana lo pruebo en la oficina que tengo las dos impresoras para probarlo.

Gracias a ambos

Luis

[surGom]

Bueno lo pude hacer y funcionó perfecto... en mi oficina, ya que en la empresa, no me imprime el pdf.
La impresora está conectada a la red individualmente, hay que poner algún parámetro para que la identifique?, está declarada como predeterminada.


STATIC FUNCTION impdf( aAfile )

for z = 1 to len( aAfile )
ShellExecute( ,"print", (oApp:dirpdf + aAfile[z,1]),,,1 )
next
return nil

Si cambio print por open lo abre perfecto.

Gracias