es kennt sicher jeder das Phänomen, dass, wenn mit einem Autofilter gefilterte Zeilen gedruckt werden, der Rahmen tlw. nicht gedruckt wird, je nach dem an welcher Zeile er "hängt" (an der sichtbaren oder an der ausgeblendeten). Im "Handbetrieb" setze ich den Rahmen dann einfach doppelt (auf beiden Zeilen; einmal oben einmal unten) dann ist das kein Problem. Jetzt setze ich aber den Rahmen mittels Makro und die Zeilen werden in einer Schleife durchlaufen. Wenn ich bei der oberen Zeile (die ist beim 1. Ausdruck sichtbar) den Rahmen unten setzte und beim nächsten Durchlauf der Schleife in der nächsten Zeile (die ist beim 1. Ausdruck ausgeblendet) den Rahmen oben setzte, dann fehlt mir beim Ausdruck unten der Rahmen (schaut so aus als ob hier der 2. Eintrag für den Rahmen den ersten überschreibt). Da aber auch der nächste Block wieder gedruckt werden muss (2. Durchlauf der Druckschleife) nutzt es mich nichts einfach immer nur den Rahmen unten zu setzten, da in dem Fall der Rahmen oben fehlen würde. Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt.
Gibt es eine Möglichkeit den Rahmen immer zu drucken egal ob er an der oberen oder unteren Zeile hängt? Meine Notlösung wäre den Rahmen in der Druckschleife jedes Mal neu zu setzten, was ich aber vermeiden möchte, da ich dann jede Änderung im Dokumentaufbau auch im Ausdruck nachpflegen muss. Evtl. kann ich eine Leerzeile zwischen den Blöcken einfügen, dann hängen die nicht direkt aneinander und die Rahmenlinie würde nicht "doppelt genutzt". Ich hoffe mir das alles sparen zu können.
Mit diesem Code setze ich den Rahmen
.Range(.Cells(iZeile1, .Cells(iZeile1, iSpalte3).Value), .Cells(iZeile1, iSpalte1)).Select
...
'endweder unten falls die letzte Zeile im Block
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
...
'oder oben falls die erste Zeile im Block
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Danke für euer Hilfe.
Gruß Johannes