Automatische PDF-Erstellung Seitenformate
14.06.2017 08:53:24
Carsten
ich sitze gerade daran, automatisch PDFs generieren zu lassen, klappt auch prima, allerdings bekomme ich es nicht hin, dass er die Skallierung auf "Alle Spalten auf einer Seite darstellen" stellt und das für jedes Worksheet mit dem Namen Zusammenfassung*.
'-----------------------Hier wird für jedes Sheet eine PDF erstellt----------------------------- _
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
If wks.Name Like "Zusammenfassung*" Then
With ActiveSheet
With .PageSetup
.Orientation = xlLandscape
.FitToPagesTall = False
.FitToPagesWide = 1
.Zoom = False
With wks
.Select
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
AWS & .Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False
End With
End With
End With
End If
Next wks
Normal sollte Fit to Pages Wide = 1 ja passen denke ich :(Denke hab es falsch platziert oder so :(
Vielen Dank schonmal!