Druckbereich nicht verbundener Zeilen

Ü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.