Setting print area
try
botcell & "
"nath" <n@n wrote in message ...
Hi
I am trying to write some code for a button to set the
print area of a sheet to only include the relevant data.
I have coded this so far
With ActiveSheet.PageSetup ' Set up printing
preferences
.PrintArea = "$B$2:$" & col_name & "$" & botcell
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 2
.CenterHeader = "4 Region BAAG report"
End With
where col_name is the last column of relevant data. Which
comes from some earlier code.
When i run this i get an error message saying that the
print area can not be set.
Can any one help?
TIA
Nath.
|