|
Hola, imagino que utilizas la opcion de Excel 2007 "Guardar como PDF" pues pones esta instruccion en un boton y le pulsas cuando quieras para que te lo guarde, cambia la ruta a tu necesidad:
nombre = Range("A2").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\****\Desktop\" & nombre & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Si te ha servido puntua y finaliza la consulta.Gracias.
Si necesitas alguna aclaracion me lo dices.
>Un saludo
>Julio
|