<div>
<div class="content wysiwyg-content">
I have the following macro which set's the print area to just the rows and columns that have data, or results of formula's. This works fine, but now I need it to expand the print area to the row AFTER the last bit of data. Can't seem to make it work!<br />
Thanks<br />
<br />
Dim lastCell As Range<br />
Set lastCell = Cells.SpecialCells(xlCellT<wbr />ypeLastCel<wbr />l).Offset(<wbr />1, 0)<br />
Do Until Application.Count(lastCell<wbr />.EntireRow<wbr />) &lt;&gt;&nbsp;0<br />
Set lastCell = lastCell.Offset(-1, 0)<br />
Loop<br />
ActiveSheet.PageSetup.Prin<wbr />tArea = Range(Cells(1, 1), lastCell).Address<br />
End Sub
</div>
</div>


I have the following macro which set's the print area to just the rows and columns that have data, or results of formula's. This works fine, but now I need it to expand the print area to the row AFTER the last bit of data. Can't seem to make it work!
Thanks

Dim lastCell As Range
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0)
Do Until Application.Count(lastCell.EntireRow) <> 0
Set lastCell = lastCell.Offset(-1, 0)
Loop
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
End Sub

Macro to set print area within Excel

Computer data storage, often called storage or memory, is a technology consisting of computer components and recording media used to retain digital data. In addition to local storage devices like CD and DVD readers, hard drives and flash drives, solid state drives can hold enormous amounts of data in a very small device. Cloud services and other new forms of remote storage also add to the capacity of devices and their ability to access more data without building additional data storage into a device.

Storage

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.