PDF per VBA auskoppeln
27.05.2015 18:19:06
Jakob
habe folgenden Code zum auskoppeln von Blättern als PDF.
Bekomme fehler 400.
Sub aaa()
Dim wks As Worksheet
Application.ScreenUpdating = False
For Each wks In Worksheets
wks.Copy
With ActiveWorkbook
.ExportAsFixedFormat xlTypePDF, "d:\test\" & wks.Name
.Close False
End With
Next
End Sub
Kann mir da jemand helfen ?
Gruß Jakob
Anzeige