Drucken
27.04.2022 10:48:15
Neuling
ich möchte in Exel einige Arbeitsblätter ausdrucken und habe aus einem älteren Tipp in diesem Forum eine Lösung übernommen, bekomme aber Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs.
Hier das Programm:
Sub Drucken()
Dim wkssheets(13) As String
Dim strPrinterName As String
Dim varRueckgabe As Variant
strPrinterName = Application.ActivePrinter
varRueckgabe = Application.Dialogs(xlDialogPrinterSetup).Show
If varRueckgabe = "Falsch" Then Exit Sub
wkssheets(0) = "Januar"
wkssheets(1) = "Februar"
wkssheets(2) = "März"
wkssheets(3) = "April"
wkssheets(4) = "Mai"
wkssheets(5) = "Juni"
wkssheets(6) = "Juli"
wkssheets(7) = "August"
wkssheets(8) = "September"
wkssheets(9) = "Oktober"
wkssheets(10) = "November"
wkssheets(11) = "Dezember"
Sheets(wkssheets).PrintOut
Application.ActivePrinter = strPrinterName
End Sub