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)


    [VBA]
    Sub CopyInsertCols()


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


    End Sub
    [/VBA]

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


    [VBA]


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


    [/VBA]

Participate now!

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