Druckbereich VBA
18.03.2020 16:26:08
Robin
Hallo, im würde gerne mit diesem Makro meine 5 Tabellenblätter drucken. DIe funktioniert auch soweit. Jedoch werden nur die Tabellen in den Druckbereich inzegtiert und nicht die Diagramme wobei dafür locker noch Platz auf den Seiten ist. Habr Ihr eine Idee?
Sub Druck()
'Einen dynamischen String-Array deklarieren:
Dim arrBlätter() As String
'Diesen Array zB. auf 2 Elemente festlegen:
ReDim arrBlätter(1 To 2)
arrBlätter(1) = "Tabelle 1"
arrBlätter(2) = "Tabelle 2"
'Falls eine Vergrößerung zB. auf 3 Elemente notwendig ist,
'ohne dabei die bisherigen Elementinhalte zu verlieren:
ReDim Preserve arrBlätter(1 To 5)
arrBlätter(3) = "Tabelle 3"
arrBlätter(4) = "Tabelle 4"
arrBlätter(5) = "Tabelle 5"
Sheets(arrBlätter).Select
Sheets(arrBlätter(1)).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Mappe.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
'Deselektion der 3 Arbeitsblätter:
Sheets("Tabelle 3").Select
End Sub