Dynamic Printing help

mle82

New Member
Joined
May 24, 2020
Messages
2
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
Hi All

Desperately looking for some help on how to dynamically print a set of data over separate pages and can't seem to find any answers so hoping someone can help. I've got a list of customer orders with a unique product on each row with its associated order number. An order may have 1 or multiple products. I need it to print so that each order is on a separate page (with all the rows from that order) with the column headers. Example data below:

1590322176846.png


So from the above, I've be looking for 3 pages with page 1 having rows 2-4, page 2 having 3-7 and page 3 having 8-9 + row 1 each time. Thanks!
 

Some videos you may like

Excel Facts

Will the fill handle fill 1, 2, 3?
Yes! Type 1 in a cell. Hold down Ctrl while you drag the fill handle.

Logit

Well-known Member
Joined
Aug 31, 2016
Messages
3,965
VBA Code:
Option Explicit

Sub Create_separate_worksheet()
    Dim c As Range, sh As Worksheet, Ky As Variant
    
    Set sh = Sheets(1)
    With CreateObject("scripting.dictionary")
        For Each c In sh.Range("A2", sh.Range("A" & Rows.Count).End(xlUp))
            If c.Value <> "" Then .Item(c.Value) = Empty
        Next c
        For Each Ky In .Keys
            sh.Range("A1").AutoFilter 1, Ky
            Sheets.Add(, Sheets(Sheets.Count)).Name = Ky
            sh.AutoFilter.Range.EntireRow.Copy Range("A1")
        Next Ky
    End With
    sh.ShowAllData
End Sub
 

mle82

New Member
Joined
May 24, 2020
Messages
2
Office Version
  1. 365
  2. 2016
Platform
  1. Windows
Thank you - this works perfectly!
 

Watch MrExcel Video

Forum statistics

Threads
1,127,661
Messages
5,626,155
Members
416,164
Latest member
hamburger138

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top