Hallo,

ich möchte verschiedene Tabellenblätter einer Mappe in ein PDF Exportieren. Die Zusammenstellung kann varieren. Ich lasse die verschiedenen Blätter per Array zusammenfassen und als PDF spreichern. Problem. Die exportierten Blälter sind immer fast leere PDFs. Lediglich eine Information aus der Fußzeile wird übernommen.

Drucke ich nur ein einziges Blatt zu testzwecken aus, funktioniert alles.

spfad und Speicher sind Speicherangaben. Habe ich jetzt hier mal rausgenommen.

Dim Mappen(1) As String

Mappen(0) = "CoverNeu"
Mappen(1) = "MM2_BBS_CAN"

Sheets(Mappen).Select
Selection.ExportAsFixedFormat xlTypePDF, _
Filename:=sPfad & Speicher

Vorab Vielen Dank