Print range

  • Hi All,

    I have a worksheet that is setup as an order form with 2 pages...

    Basically, a user form is set which has a button to create a new copy as required.
    The VBA for this process is below and a sample work sheet is attached

    This VBA works great but when a new "Order form" is added, the print range changes to the initial sheet which is now named Order #2

    Is there a way to have the VBA below use a set print range and page break

    I would only need one order form (the most current printing at any time)

    Sub CopyInsertCols()

    Range("C1").Resize(, 8).EntireColumn.Copy
    Dim d
    d = GetNums([M1])
    [E1] = Replace([M1], d, d + 1)
    Application.CutCopyMode = False

    End Sub

  • Ok, I managed to fix this by adding the following lines to the VBA


    Worksheets("ILA Reviews").PageSetup.PrintArea = "$D$1:$J$112"
    Worksheets("ILA Reviews").Rows(53).PageBreak = xlPageBreakManual


Participate now!

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