Print Fixed Columns Variable Row

  • Re: Print Fixed Columns Variable Row


    Try this:


  • 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

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!