| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Print Area Macro Question
I'm using a macro worksheet change macro, so that when ever someone changes a
pivottable the sheet will automatically change the print area of the pivot table. I'm trying the following code, but everytime I try and record I get a fixed value as you see here. How can I get the print area to use the range I selected above? Range("E10").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveSheet.PageSetup.PrintArea = "$E$10:$P$32" Thanks |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Print Area Macro Question
Change last statement to:
ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address best wishes -- Bernard V Liengme Microsoft Excel MVP www.stfx.ca/people/bliengme remove caps from email "Vick" wrote in message ... I'm using a macro worksheet change macro, so that when ever someone changes a pivottable the sheet will automatically change the print area of the pivot table. I'm trying the following code, but everytime I try and record I get a fixed value as you see here. How can I get the print area to use the range I selected above? Range("E10").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveSheet.PageSetup.PrintArea = "$E$10:$P$32" Thanks |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Print Area Macro Question
But this seems to be OK
ActiveSheet.PageSetup.PrintArea = ActiveWindow.RangeSelection.Address best wishes -- Bernard V Liengme Microsoft Excel MVP www.stfx.ca/people/bliengme remove caps from email "Vick" wrote in message ... I'm using a macro worksheet change macro, so that when ever someone changes a pivottable the sheet will automatically change the print area of the pivot table. I'm trying the following code, but everytime I try and record I get a fixed value as you see here. How can I get the print area to use the range I selected above? Range("E10").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveSheet.PageSetup.PrintArea = "$E$10:$P$32" Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Another Print Area question | Excel Discussion (Misc queries) | |||
| setting the print area from a macro | Excel Worksheet Functions | |||
| How do you set up a macro to reset the print area? | Excel Discussion (Misc queries) | |||
| Pivot Table macro to set print area and print details of drill down data | Excel Discussion (Misc queries) | |||
| Create a print macro that would automatically select print area? | Excel Worksheet Functions | |||
Linear Mode
