Liebe Excel-Gemeinde,
ich möchte einem Makro, welches aus mehreren Excel Tabellenblättern ein PDF erstellt, einen zusätzlichen Code beifügen. Dieser soll die Namen der Tabellenblätter im PDF als Lesezeichen / Bookmark darstellen. Da die MS Office Anwendungen keine Lesezeichen ausgeben können, habe ich ein PDF Programm installiert, dass diesen Vorgang umsetzen kann. Es heißt Foxit Phantom PDF bislang habe ich die PDF Umwandlung immer "manuell" durchgeführt. Nun möchte ich es mittels einem Makro erledigen.
Da ich den untenstehenden Code auch nur aus einem Forum kopiert habe und diesen für meine Zwecke umgeschrieben habe, stoße ich bei der zusätzlichen Ausgabe der Lesezeichen im ausgebenden PDF an meine Grenzen.
Mit der Bitte um Hilfestellung und liebe Grüße
Thomas
Sub Drucken_Umsatz()
'Einen dynamischen String-Array deklarieren:
Dim arrBlätter() As String
'Diesen Array zB. auf 4 Elemente festlegen:
ReDim arrBlätter(1 To 4)
arrBlätter(1) = "Umsatz_Nord"
arrBlätter(2) = "Umsatz_West"
arrBlätter(3) = "Umsatz_Ost"
arrBlätter(4) = "Umsatz_Sued"
Sheets(arrBlätter).Select
Sheets(arrBlätter(1)).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Umsatz_Regionen.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
'Deselektion der Arbeitsblätter:
Sheets("Umsatz_Gesamt").Select
End Sub