Druckbereich nicht verbundener Zeilen
30.08.2002 15:21:15
Christian
Über
______________________________
Sub DruckZeilen()
Dim TB As Worksheet
Dim i%, lZeile%
Application.ScreenUpdating = False
Set TB = Worksheets("Gewichtsberechnung")
lZeile = 260
For i = 1 To lZeile
If TB.Cells(i, 9) = 0 Then TB.Rows(i).EntireRow.Hidden = True
Next i
TB.PrintPreview
TB.Range(TB.Cells(1, 1), TB.Cells(lZeile, 9)).EntireRow.Hidden = False
End Sub
_________________
konnte ich die nicht benötigten Zeilen ausblenden.
Das Problem was ich nun hab, ist das es in 90% der Zeilen Dropdown-Felder gibt, und diese nicht mit weggeblendet werden.
Kann man daher die zu druckenden Felder irgendwie zusammenhängend ausdrucken.