Servus zusammen,
habt Ihr eine Idee wie ich meinen Code so umbaue, dass jede Seite im Querformat gedruckt wird:
hier der Code:
Dim arrBlätter() As String
'Diesen Array zB. auf 2 Elemente festlegen:
ReDim arrBlätter(1 To 2)
arrBlätter(1) = "Report Gesamtbereich"
arrBlätter(2) = "Report Midoffice1"
'Falls eine Vergrößerung zB. auf 3 Elemente notwendig ist,
'ohne dabei die bisherigen Elementinhalte zu verlieren:
ReDim Preserve arrBlätter(1 To 7)
arrBlätter(3) = "Report Hofsäß"
arrBlätter(4) = "Report Mitarbeiter"
arrBlätter(5) = "Report Private Banking"
arrBlätter(6) = "Report Wertermittlungen"
arrBlätter(7) = "Infodokument Wertermittlungen"
Sheets(arrBlätter).Select
Sheets(arrBlätter(1)).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Mappe.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=True, OpenAfterPublish:=True
'Deselektion der 3 Arbeitsblätter:
Sheets("Wertindikationen").Select
End Sub