View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Alok Alok is offline
external usenet poster
 
Posts: 318
Default simple? print area?

try
ActiveSheet.PageSetup.PrintArea=prtselect.address


"John" wrote:

I get unable to set print area error on the last line of code...
Range("b12:" & Range("j65536").End(xlUp).Address).Select
Set prtselect = Selection
ActiveSheet.PageSetup.PrintArea = prtselect


any help is appreciated!