Problema con PrintOut Hola amigos
Desde VB uso una página de exel como base de datos y en un momento de la aplicación doy la opción de imprimir la página de excel en un pdf de esta manera:
Preview = Sheets("Hoja1").PrintOut(Copies:=1, Preview:=False, ActivePrinter:="Acrobat PDFWriter")
Hasta aquí sin problema, pero no quiero que me salga el cuadro de diálogo "Guardar Como...", con lo que añado lo siguiente al código:
Preview = Sheets("Hoja1").PrintOut(Copies:=1, Preview:=False, ActivePrinter:="Acrobat PDFWriter", printtofile:=True, prtofilename:="C:\" & nombre & ".pdf")
y, efectivamente, me encuentro un fichero pdf en C:\ con el nombre de la variable "nombre", pero de ¡0 Kb! y mal grabado, evidentemente.
Sabe alguien qué puede estar pasando?
Gracias por vuestro tiempo
__________________ |