Druck makro
02.06.2008 08:50:58
Heinz
Habe ein Problem mit unteren Druck makro.
Kann mittels CheckBoxen drei anander folgende Bereiche ausdrucken.Auf eine A4 Seite.(Ist für einen Kalender)
ZB. Jänner,Febr.März.
Nun habe ich aber zwischen den einzelnen Monaten eine Zelle eingefügt.
Jetzt wird aber nur ein Monat je Blatt gedruckt.
Könnte mir bitte jemand sagen,woran das liegt.Finde leider den Fehler nicht.
Danke & Gruß
Heinz
Private Sub CheckBox30_Click()
Application.ScreenUpdating = False
Dim tmp As String, i%, Start%, Anzahl%
Dim DruckCheck(1 To 12) As Integer, DruckBereich(1 To 12) As String
Dim rngBereich As Range
DruckBereich(1) = "B1:E33" 'Jänner
DruckBereich(2) = "G1:J33" 'Februar
DruckBereich(3) = "L1:O33" 'März
DruckBereich(4) = "Q1:T33" 'April
DruckBereich(5) = "V1:Y33" 'Mai
DruckBereich(6) = "AA1:AD33" 'Juni
DruckBereich(7) = "AF1:AI33" 'Juli
DruckBereich(8) = "AK1:AN33" 'August
DruckBereich(9) = "AP1:AS33" 'September
DruckBereich(10) = "AU1:AX33" 'Oktober
DruckBereich(11) = "AZ1:BC33" 'November
DruckBereich(12) = "BE1:BH33" 'Dezember
If CheckBox1 Then DruckCheck(1) = 1 'Jänner
If CheckBox2 Then DruckCheck(2) = 1 'Februar
If CheckBox3 Then DruckCheck(3) = 1 'März
If CheckBox4 Then DruckCheck(4) = 1 'April
If CheckBox5 Then DruckCheck(5) = 1 'Mai
If CheckBox6 Then DruckCheck(6) = 1 'Juni
If CheckBox7 Then DruckCheck(7) = 1 'Juli
If CheckBox8 Then DruckCheck(8) = 1 'August
If CheckBox9 Then DruckCheck(9) = 1 'September
If CheckBox10 Then DruckCheck(10) = 1 'Oktober
If CheckBox11 Then DruckCheck(11) = 1 'November
If CheckBox12 Then DruckCheck(12) = 1 'Dezember
For i = 1 To 12
If Start = 0 Then
If DruckCheck(i) = 1 Then
Start = i
Anzahl = 1
Set rngBereich = Range(DruckBereich(i))
End If
Else
If DruckCheck(i) = 1 Then
Anzahl = Anzahl + 1
If i - Start >= 3 Or Anzahl > 3 Or Anzahl - 1 = 1 Then
rngBereich.PrintOut 'markierte Monate drucken
End If
Unload Me
Ende:
Application.ScreenUpdating = True
End Sub
Anzeige