
JackFrost
-
Contador de contenido
0 -
Unido
-
Última visita
Todo se publica por JackFrost
-
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