Setting a print range in a formula

[chadm]

Is there a way to set a print range via a formula?

I want the print range to end where a cell = 99.

Any ideas?

[Al Chara]

I'm heading home now but try the following procedure:

Do a FIND for "99" inside a loop (Do, if, for)

Then use the ADDRESS to find where the 99 is located.

Then setup your PRINTAREA with PAGESETUP.

Post with any more questions, someone on here will answer.

[s-o-s]

You can do this using a simple macro, The one I have written assumes that you want it to print from cell A1 to the occurence of "99" in the sheet.

Sub SetPrtRng()
Cells.Select
Selection.Find(What:="99", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Rng = "A1:" & ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = Rng
End Sub