Problem beim Drucken per VBA

Hi Leute,
mein gestern gepostetes Problem zum (schönen) Export der PDF habe ich nun über die einfache Druckfunktion in Excel gelöst, die ich per VAB ansteuere und damit dann einen PDF-Drucker auswählen kann.
Das ist mein Code dazu:


Sub BerichtAusgeben()
Dim arrTabellen() As String
Dim varDateiname As Variant
ReDim arrTabellen(1 To 13)
arrTabellen(1) = "Deckblatt"
arrTabellen(2) = "Tabelle 1"
arrTabellen(3) = "Tabelle 2"
arrTabellen(4) = "Tabelle 3"
arrTabellen(5) = "Tabelle 4"
arrTabellen(6) = "Tabelle 5"
arrTabellen(7) = "Tabelle 6"
arrTabellen(8) = "Tabelle 7"
arrTabellen(9) = "Tabelle 8"
arrTabellen(10) = "Tabelle 9"
arrTabellen(11) = "Tabelle 10"
arrTabellen(12) = "Tabelle 11"
arrTabellen(13) = "Tabelle 12"
DruckbereicheFestlegen
tblDeckblatt.Visible = xlSheetVisible
Sheets(arrTabellen(13)).Activate
Worksheets(arrTabellen).PrintOut Preview:=True
tblDeckblatt.Visible = xlSheetVeryHidden
Sheets("Auswertung").Select
End Sub

Problem ist, dass dieser Code immer das Deckblatt in eine einzelne Datei druckt und die restlichen Tabellenblätter in eine weitere Datei.
Kann jemand erkennen, wieso das passiert?
Danke euch! :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also das Ganze ist sehr kurios. Ich habe nochmal etwas weiter getestet, aber bisher keine Lösung gefunden.
In der Druckvorschau sehe ich alle Seiten wie sie sein sollen. Wenn ich daraus dann drucke, werden ich über den PDF-Drucker zur Eingabe von Dateinamen für 2 Dateien (hintereinander) gefragt. In der ersten Datei landet immer nur Seite 1 in der zweiten Datei alle restlichen Seiten.
Wenn ich das ganze teste, indem ich das eigentlich erste Tabellenblatt rauslasse, funktioniert alles. Ich habe nun alle Seitenumbrüche zurückgesetzt und das erste Tabellenblatt neu angelegt. Immer das gleiche Problem.
Hier nochmal zusammengefasst, wann es funktioniert und wann nicht:

Deckblatt und restliche Tabellenblätter ---- 2 PDF-Dateien

Tabellenblatt 3 (war bisher nicht beim Druck dabei, aber existiert in der Arbeitsmappe bereits) und restliche Tabellenblätter ---- 1 PDF-Datei

Tabellenblatt_neu (neu eingefügt mit Text "Test" in A1) und restliche Tabellenblätter ---- 2 PDF-Dateien

Erkennt da jemand eine Logik bzw. was das Problem verursacht?

Sub BerichtAusgeben() tblDeckblatt.Visible = xlSheetVisible Sheets(Array("Deckblatt", "Stammdaten", "Berichtsangaben", _ "Sonstige Dokumentation", "Anlagen")).Select ActiveWindow.SelectedSheets.PrintPreview Sheets("Deckblatt").Select tblDeckblatt.Visible = xlSheetVeryHidden End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread