Print Fixed Columns Variable Row

aturnon · Apr 17th 2007

I want to set a print area so that it is columns A:G but only sets the print area upto the last row with data in it.

Brian Walters · Apr 17th 2007

Re: Print Fixed Columns Variable Row

Try this:

Code

Sub SetPrintArea()
Dim MaxRow As Long, i As Integer


  MaxRow = 1
  For i = 1 To 7
    Cells(65536, i).End(xlUp).Select
    MaxRow = Application.WorksheetFunction.Max(MaxRow, ActiveCell.Row)
  Next i
  
  ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & MaxRow
  
End Sub

Display More

**Reafidy** · Apr 17th 2007

Re: Print Fixed Columns Variable Row

Hi, Another way:

Code

Sub SetPrintArea2()
    Dim LastRow As Long
    LastRow = ActiveSheet.Columns("A:G").Find(What:="*" _
            , After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$" & LastRow
End Sub

Print Fixed Columns Variable Row

Participate now!

Share