Set Print Area with Dynamic Start Point
 

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

Set Print Area with Dynamic Start Point
 

Try this

Sub setprintarea()
lc = Cells(17, Columns.Count).End(xlToLeft).Column
Set mf = Range(Cells(17, "g"), Cells(17, lc)) _
..find(What:=Range("d2"), After:=Range("g17"), _
LookIn:=xlFormulas, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext)
If Not mf Is Nothing Then
'MsgBox mf.Column
Cells(17, mf.Column).Resize(4, 12).PrintPreview 'printOUT
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"StonyfieldRob" wrote in message
...
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