Imprimir en PDF con DoPDF desde Excel

hola, Jorge !

Mostrar la cita

... tengo instalado el DoPDF porque me parece muy sencillo y practico y no pesa nada
pero o he podido hacer una macro que automaticamente pueda hacer que se imprima en una ruta con un nombre en particular para el pdf.
He ensayado lineas de codido que he visto de discusiones pasadas pero no lo logro. Alguien me puede ayudar con esto? ...

prueba activando la grabadora de macros y realizando "a mano" las acciones de impresion con el DoPDF

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Hola Héctor, de nuevo gracias por la colaboración de siempre.

te cuento que grabando la macro, da como resultado:

Application.ActivePrinter = "doPDF v6 en DOP6:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"doPDF v6 en DOP6:"


pero resulta que el programa, solicita una ruta y nombre del archivo para
luego dar [Aceptar] por lo que no he podido hacer que funcione

Me cuentas si es posible hacer eso

Gracias

Jorge M

"Héctor Miguel" wrote:

Mostrar la cita

hola, Jorge !

> ... tengo instalado el DoPDF porque me parece muy sencillo y practico y no pesa nada
> pero o he podido hacer una macro que automaticamente pueda hacer que se imprima en una ruta con un nombre en particular para el pdf.
> He ensayado lineas de codido que he visto de discusiones pasadas pero no lo logro. Alguien me puede ayudar con esto? ...

prueba activando la grabadora de macros y realizando "a mano" las acciones de impresion con el DoPDF

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola. Jorge !

Mostrar la cita

te cuento que grabando la macro, da como resultado:

Application.ActivePrinter = "doPDF v6 en DOP6:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"doPDF v6 en DOP6:"

pero... solicita una ruta y nombre del archivo para luego dar [Aceptar] por lo que no he podido hacer que funcione ...

prueba con algo +/- como lo siguiente:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
ActivePrinter:="doPDF v6 en DOP6:", Collate:=True, PrintToFile:=True, _
PrToFileName:="c:uta y sub\carpetas a\tu archivo.pdf"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Nada Amigo, sigue pidiendo la ruta y además al darle cancelar, siempre se
bloquea Excel... yo creo que no se puede

creo que mejor que ingresen a mano la ruta y den Aceptar.

Te pregunto entonces, cómo hago que un texto quede en el portapapeles para
que el usuario sólo de pegar y Aceptar y listo.

Gracias

"Héctor Miguel" wrote:

Mostrar la cita

hola. Jorge !

> te cuento que grabando la macro, da como resultado:
>
> Application.ActivePrinter = "doPDF v6 en DOP6:"
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
> "doPDF v6 en DOP6:"
>
> pero... solicita una ruta y nombre del archivo para luego dar [Aceptar] por lo que no he podido hacer que funcione ...

prueba con algo +/- como lo siguiente:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
ActivePrinter:="doPDF v6 en DOP6:", Collate:=True, PrintToFile:=True, _
PrToFileName:="c:uta y sub\carpetas a\tu archivo.pdf"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, Jorge !

Mostrar la cita

Nada Amigo, sigue pidiendo la ruta y ademas al darle cancelar, siempre se bloquea Excel... yo creo que no se puede
creo que mejor que ingresen a mano la ruta y den Aceptar.

=> te aseguraste de especificar exactamente la ruta y nombre para "tu" archivo ?
o solo transcribiste la misma ruta-ejemplo de la propuesta de macro ("c:uta y sub\carpetas a\tu archivo.pdf") ???

Mostrar la cita

... entonces, como hago que un texto quede en el portapapeles para que el usuario solo de pegar y Aceptar y listo.

=> cualquier cosa que copies (por codigo o a mano) va al portapapeles hasta ser reemplazado por el siguiente copiar/cortar
entonces... que es (exactamente) lo que quieres que se quede en el portapapeles (???)

saludos,
hector.

__ previos __
Mostrar la cita

Mostrar la cita

Mostrar la cita

te cuento que grabando la macro, da como resultado:

Application.ActivePrinter = "doPDF v6 en DOP6:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"doPDF v6 en DOP6:"

pero... solicita una ruta y nombre del archivo para luego dar [Aceptar] por lo que no he podido hacer que funcione ...

prueba con algo +/- como lo siguiente:

ActiveWindow.SelectedSheets.PrintOut Copies:=1, _
ActivePrinter:="doPDF v6 en DOP6:", Collate:=True, PrintToFile:=True, _
PrToFileName:="c:uta y sub\carpetas a\tu archivo.pdf"

si cualquier duda (o informacion adicional)... comentas ?