Bestimmte Wiederholungszeilen auf Folgeseiten ausb
02.06.2017 18:28:57
Loh
folgendes Problem habe ich:
Auf der ersten Seite habe ich die Wiederholungszeilen $1$32
Beim Ausdrucken sollen diese nur auf der Seite 1 zu sehen sein,
ab der Seite 2 sollen die Zeilen 12 bis 31 ausgeblendet werden
Folgendes Makro habe ich gefunden (funktioniert aber nicht) bzw. gebastelt
Sub Ausdruck()
Dim A As Integer
For A = 1 To 2
Tabelle1.Cells.EntireRow.Hidden = False
'Zeilen die beim zweiten Ausdruck ausgeblendet werden sollen
If A = 2 Then Range("12:31").EntireRow.Hidden = True
'hier die entsprechende Seite anpassen
'1, 1 ist Seite 1 bis 1
Tabelle1.PrintOut 1, 1
Next A
Tabelle1.Cells.EntireRow.Hidden = False
End Sub
Erklärung:
Zeile 1 bis 11 beinhaltet meinen Kopf (Drucktitel/Wiederholungszeilen)
Zeile 12 bis 32 z.B. Erläuterung (nur Seite 1)
Zeile 32 Tabellenüberschrift (die sich auf den Folgezeiten wiederholen soll)
Im Drucktitel kann ich nur zusammenhängende Zeilen aktivieren.
Vielleicht hat jemand eine Lösung für mich!?
Vielen Dank!