I cannot arrive at the correct syntax to define my selected range as the
print area:
Set prntRng = Range(Cells(1, 1), Cells(i, 12))
prntRng.Select
ActiveSheet.PageSetup.PrintArea =
Help appreciated, many thanks
Matilda
I cannot arrive at the correct syntax to define my selected range as the
print area:
Set prntRng = Range(Cells(1, 1), Cells(i, 12))
prntRng.Select
ActiveSheet.PageSetup.PrintArea =
Help appreciated, many thanks
Matilda
The printarea is specified as a string. You therefore need to provide a
string like
ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & i
or if you want to use the range address then:
Set prntRng = Range(Cells(1, 1), Cells(i, 12))
ActiveSheet.PageSetup.PrintArea = prntRng.address
HTHs
"Matilda" wrote:
>
> I cannot arrive at the correct syntax to define my selected range as the
> print area:
> Set prntRng = Range(Cells(1, 1), Cells(i, 12))
> prntRng.Select
> ActiveSheet.PageSetup.PrintArea =
>
> Help appreciated, many thanks
> Matilda
>
"Martin Fishlock" wrote:
> The printarea is specified as a string. You therefore need to provide a
> string like
>
> ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & i
>
> or if you want to use the range address then:
>
> Set prntRng = Range(Cells(1, 1), Cells(i, 12))
> ActiveSheet.PageSetup.PrintArea = prntRng.address
>
> HTHs
>
>
> "Matilda" wrote:
>
> >
> > I cannot arrive at the correct syntax to define my selected range as the
> > print area:
> > Set prntRng = Range(Cells(1, 1), Cells(i, 12))
> > prntRng.Select
> > ActiveSheet.PageSetup.PrintArea =
> >
> > Help appreciated, many thanks
> > Matilda
> > Absolutely perfect, thankyou Martin! I can sleep now :-)
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks