I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I need
a macro to look through the sheet and find the word "corner" this would then
be used as the bottom right point for the print setup. Any ideas?

Hi,
Try this, hope it helps.
Sub Corner1()
Cells.Find(What:="corner", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Corner = ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Corner
End Sub

Thanks,

"Paul H" wrote:

I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I need
a macro to look through the sheet and find the word "corner" this would then
be used as the bottom right point for the print setup. Any ideas?

David, thanks, it works great.

Paul

"David" wrote:

Hi,
Try this, hope it helps.
Sub Corner1()
Cells.Find(What:="corner", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Corner = ActiveCell.Address
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Corner
End Sub

Thanks,

"Paul H" wrote:

I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I need
a macro to look through the sheet and find the word "corner" this would then
be used as the bottom right point for the print setup. Any ideas?

With Activesheet
set rng = .Cells.Find("corner")
if not rng is nothing then
.PageSetup.PrintArea = _
.Range(.Range("A1"),rng).Address(external:=True)
End if
End With

--
Regards,
Tom Ogilvy

"Paul H" wrote in message
...
I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I
need
a macro to look through the sheet and find the word "corner" this would
then
be used as the bottom right point for the print setup. Any ideas?

If that's really what you want to do

Sub printrng()
Range("a1:" & Cells.Find("corner").Address).PrintPreview
End Sub

--
Don Guillett
SalesAid Software

"Paul H" wrote in message
...
I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I
need
a macro to look through the sheet and find the word "corner" this would
then
be used as the bottom right point for the print setup. Any ideas?

Hi

This macro is exactly what I need also, except it's not working-- because I
have an "ifand" formula in cells to return the value "corner".
The macro is setting the end of the print range at the first cell it sees
the formula, not the returned value "corner"

How do I tweak this?

"Don Guillett" wrote:

If that's really what you want to do

Sub printrng()
Range("a1:" & Cells.Find("corner").Address).PrintPreview
End Sub

--
Don Guillett
SalesAid Software

"Paul H" wrote in message
...
I want to print a sheet with the upper left point being A1 with the bottom
right point variable. I could put a word in the cell (i.e. corner), I
need
a macro to look through the sheet and find the word "corner" this would
then
be used as the bottom right point for the print setup. Any ideas?