
JackFrost
-
Contador de contenido
0 -
Unido
-
Última visita
JackFrost's Achievements
Novato (1/14)
0
Reputación de la comunidad
-
Tengo estas líneas, solo quiero que al final el archivo pdf que se genera, se guarde en el escritorio de mi pc. Ahora mismo se guarda por defecto en mis documentos.
ActiveSheet.Select
Range("B1:AB" & uf).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ru & Range("C9") & " - " & Format(Range("C6"), "dd-mm-yyyy") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub