Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set PrintArea Not Working
What are the problems here?
The first gets an error on execution: "Unable to set the PrintArea property of the PageSetup class" 1). ActiveSheet.PageSetup.PrintArea = Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)) The second just doesn't work (doesn't set the PrintArea to the range in question). 2. Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)).Select ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address Can someone provide an answer to both questions? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set PrintArea Not Working
the Printarea property requires a "String" data type,
the address property returns a string.. example: ActiveSheet.PageSetup.PrintArea = Range(Cells(3, 2), Cells(8, 4)).Address "bw" wrote in message : What are the problems here? The first gets an error on execution: "Unable to set the PrintArea property of the PageSetup class" 1). ActiveSheet.PageSetup.PrintArea = Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)) The second just doesn't work (doesn't set the PrintArea to the range in question). 2. Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)).Select ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address Can someone provide an answer to both questions? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Set PrintArea Not Working
Thank you sir!
That fixed the problem. Bernie "JMay" wrote in message ... the Printarea property requires a "String" data type, the address property returns a string.. example: ActiveSheet.PageSetup.PrintArea = Range(Cells(3, 2), Cells(8, 4)).Address "bw" wrote in message : What are the problems here? The first gets an error on execution: "Unable to set the PrintArea property of the PageSetup class" 1). ActiveSheet.PageSetup.PrintArea = Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)) The second just doesn't work (doesn't set the PrintArea to the range in question). 2. Range(Cells(LastRow - 24, 1), Cells(LastRow + 1, 12)).Select ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address Can someone provide an answer to both questions? |