Selection speichern als PDF
13.05.2020 08:17:33
addi
ich hatte gestern schon mal dieses Anliegen vorgebracht - leider ohne nennenswerten Erfolg für mich. Ich nutze Office 10 und möchte 4 definierte Reiter (von insgesamt 5) in einem pdf-file speichern.
Folgendes Coding habe ich mir dazu erstellt, aber irgendwo hakt es...
Sub SaveAsPDF()
'Formatierung Tabellenblätter
Dim intCounter As Integer
For intCounter = 1 To Worksheets.Count
With Worksheets(intCounter).PageSetup
.Orientation = xlLandscape
.Zoom = False
.FitToPagesTall = 999
.FitToPagesWide = 1
End With
Next intCounter
'Speichern Unter...
Selection.ExportAsFixedFormat Type:=xlTypePDF
Filename = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Quality = xlQualityStandard
IncludeDocProperties = True
IgnorePrintAreas = False
OpenAfterPublish = True
End Sub
Zum anderen funktioniert der 'OpenAfterPublish - Befehl' auch nicht...
Habt Ihr eine Idee?
Vielen Dank und Gruß
Addi
Anzeige