Thread: Set Print Area
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Klaus[_5_] Klaus[_5_] is offline
external usenet poster
 
Posts: 4
Default Set Print Area

Try this

LastRow = Range("$L$1").Value
Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$K$" & _
LastRow

Regards
Klaus

-----Original Message-----
I would like to use the property Print Area. This

property
requires two give two cells for the array: top-left

corner
and the bottom-right one. The top-left corner is constant
at $A$1. The bottom right has a constant column "K" but
its row varies.

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$K$?"

How could I specify the value for the row in the

PrintArea
property taking into account that this value is a number
shown in cell $L$1

Can anyone provide me with the code?

Thank you very much,

Marc

.