Dim i As Integer
For i = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(i, 2).Value <> "" Then
Rows(i + 1 & ":256").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows(i & ":257").Select
Selection.EntireRow.Hidden = False
Range("A1").Select
Exit Sub
End If
Next i