Druckproblem
16.10.2013 14:19:17
flacus
ich brauche Hilfe bei einem Seriendruck Makro. Mein Quellcode erstellt für jedes Modul von Spalte A einen eigenen Druckauftrag. Das ganze klappt ganz gut, außer zwei Dinge. Ich möchte bestimmte Zeilen ausblenden und nicht mitdrucken (Zeilen sind variabel). Nämlich soll in Spalte C von C9 bis C17, die Zeilen ausgeblendet werden, bei denen die Zellen leer sind.
Das andere Problem ist, dass wenn in der Zeile rechts neben Modul 4 leere Zeilen sind, dann führt dies zum falschen Druck.
Ich habe ein Makro gefunden, dass mir die Zeilen ausblendet und nicht mitdruckt (so wie es soll). Jedoch bekomme ich es nicht in meinen Code eingebaut. Die Zeilen werden falsch ausgeblendet und trotzdem mitgedruckt. Mittlerweile habe ich schon einiges probiert und bin ratlos. Ich bin der Meinung, dass es wegen dem Befehl SpecialCells(xlCellTypeLastCell).Row scheitert.
Hier mein Seriendruck Makro. https://www.herber.de/bbs/user/87669.xlsm
Grüße
Sub Zellenausblenden()
Dim Bereich As Range
With Worksheets("tabelle1")
Set Bereich = .Range("C9:C20")
For Each Zelle In Bereich.Cells
If Zelle.Value "" Then
Zelle.EntireRow.Hidden = False
Else
Zelle.EntireRow.Hidden = True
End If
Next Zelle
.PrintOut Copies:=1, Collate:=True
.Range("F9:F20").EntireRow.Hidden = False
Set Bereich = Nothing
End With
End Sub