change If Row - nr 46 to
if lastrow56

"Curt D." wrote in message
...
I put both of the tips in the macro but it still did not count the number
of
rows with data and make it legal size if the nbr of rows are greater than
56.
LastRow = Cells.Find(What:="*", _
After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
If Row - nr 46 Then ActiveSheet.PageSetup.PaperSize = xlPaperLegal


"PY & Associates" wrote:

Try this

LastRow = Cells.Find(What:="*", _
After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

"Curt D." wrote in message
...
The number of rows changes hourly. Is there a way for the macro to
count
the
number of rows and then based on the number if 55 make it legal
size.

"PY & Associates" wrote:

These two are only xlConstants for your information if you wish to
change
the paper sizes. They should not remain in the code.

also how does the computer (and ourselves) know how many rows your
print
area have? When know, adjust row_nr to suit please.

"Curt D." wrote in message
...
I guess not. The syntex error shows up on the following.
xlPaperLetter Letter (8-1/2 in. x 11 in.)
xlPaperA4 A4 (210 mm x 297 mm)


"PY & Associates" wrote:

You copied and pasted?
then you have not taught your computer how to count the row
numbers
yet.

"Curt D." wrote in message
...
I copied it and placed it in the macro but I get a syntex
error,
what
am i
doing wrong?

"PY & Associates" wrote:

If Row - nr 56 Then ActiveSheet.PageSetup.PaperSize =
xlPaperLegal
xlPaperLetter Letter (8-1/2 in. x 11 in.)
xlPaperA4 A4 (210 mm x 297 mm)

"Curt D." wrote in message
...
I am trying to have a file print in legal size if I have
56
lines
filled
in
otherwise print in regular letter size. Does anyone know
how
to
write
this
in VBA. help would be appreciated. thanks