In Microsoft Excel, if you have a macro that prints a range of cells onyour worksheet, it may not print all of your data if you insert rowsin that range. However, you can create a print macro that automatically adjusts when you insert rows. To do this, use a print area that refers to a defined name on your worksheet instead of using a specific range of cells to print.
This article includes a sample macro that illustrates how to set a print area by using a defined name.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. back to the top
Set a Print Area by Using a Defined Name
To follow the example that is provided in this article, enter any text information into the cell range A1:D5 on Sheet1 of a new workbook.
If you record a macro that selects the range of cells, sets the print area,and then prints the worksheet, the macro code reads as follows:
Sub Macro1() Range("A1:D5").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$D$5" ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub
The problem with this macro is that if you insert one or more rows inthis range of cells and then rerun the macro, it printsonly the cell range A1:D5. The macro does not print any rowsthat were moved down because of the rows that you inserted.
To have your macro automatically adjust when you insert or deleterows in the range you want to print, create a defined name for therange, and then use the defined name in your macro. For this example, follow these steps:
In your worksheet, select the range A1:D5.
On the Insert menu, point to Name, and then click Define.
In the Names in workbook box, type myrange. Make sure that the Refers to box contains =Sheet1!$A$1:$D$5.
Modify the recorded macro that is shown at the beginning of this section so that it reads as follows:
Sub Macro1() Range("myrange").Select ActiveSheet.PageSetup.PrintArea = "myrange" ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub
NOTE: Instead of using a fixed range of cells, use the defined name "myrange".
If you now insert one or more rows in this range, the range of cellsreferred to by the defined name "myrange" expands accordingly. When yourun the macro, all of the rows in this range are printed.
For more information about defining a name for a range of cells, click Microsoft Excel Help on the Help menu, type Name cells in a workbook in the Office Assistant or the Answer Wizard, and then click Search to view the topic.