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 einen weiß ich nicht wie ich die Selektion für 'Selection.ExportAsFixedFormat Type:=xlTypePDF' hinterlegen soll, es sollen die ersten 4 Reiter selektiert werden...Zum anderen funktioniert der 'OpenAfterPublish - Befehl' auch nicht...
Habt Ihr eine Idee?
Vielen Dank und Gruß
Addi