In case the number of records (rows) is so large that it takes more than 1 page to print all the data, we need to ensure all pages contain the field headers on top of each page. To avoid this error, we can temporarily turn off the communication using Application.PrintCommunication Property. The error is generated when we have not turned on the communication to the printer. Run-time error ‘1004’: Unable to set the FitToPagesTall property of the PageSetup class While the above code would work perfectly, in fact, it is more correct to set the FitToPagesTall = 0 to make it Automatic, but this command would generate an error
To set Print Area in Excel VBA, we have to use PageSetup.PrintArea Property.įor example, in order to set Print Area A1:N21, we can write Public Sub printArea()Ī = "$A$1:$N$21"Įnd Sub Excel VBA set page width and heightĪfter we have defined the Print Area, the next step is to set the page width and height.įor most of the time, we want the page Width to be 1 page, while the height is Automatic, meaning we let Excel decide how many pages to print depending on how many rows are in the data, we just need to ensure all the field headers are displayed in one page. To set Print Area in Excel spreadsheet, first select (highlight) Cells that we want to set as Print Area, and then navigate to ribbon Page Layout > Print Area > Set Print Area
Print selection macro access how to#
This Excel VBA tutorial explains how to set print area, page width, Print Title, Orientation in Excel VBA.
0 kommentar(er)
