I want to test a row for a date, for the start cell, for the print area.
Using that cell as a start, select 11 more columns, and 44 rows to set the
print area.

Sub Test1 ()


Range("G17").Select

Do While ((ActiveCell) < Range("B4"))
ActiveCell.Offset(0, 1).Select
If ((ActiveCell) = Range("D2")) Then
Exit Do
End If
Loop

'SET PRINT AREA

((First cell of print area would be the cell the loop stops on.
Then down 44 row and over 12 columns))

ActiveSheet.PageSetup.PrintArea = SOME CODE

ActiveWindow.SelectedSheets.PrintPreview

End Sub