Duplicating Multiple Cells

[5SRopp]

I have a column of data B2:B86, each cell contains different data. I use a copy-print macro to print each cell onto a label. I would like to print multiple labels for each cell, but I also want them to print in order. Is there a function that will allow me to add duplicates of each cell into this column of data?

 

[texasalynn]

what does your print macro look like? You should be able to modify it to print multiples and have it collate.

 

[5SRopp]

Below is my copy-print macro.






Public Sub Copy_Label()
Application.ScreenUpdating = False
Dim i As Long
For i = 24 To 128
Sheets("Gasket_Cell").Range("C" & i).Copy Destination:=Sheets("Template").Range("A1:E10")
Sheets("Gasket_Cell").Range("B" & i).Copy Destination:=Sheets("Template").Range("A11:E12")
'Sheets("Literature").Range("C" & i).Copy Destination:=Sheets("Rack Sign").Range("D16:P20")
'Sheets("Crisperframes").Range("D" & i).Copy Destination:=Sheets("RackSign Template").Range("D37:P41")
'Sheets("B-Mart").Range("E" & i).Copy Destination:=Sheets("Rack Sign").Range("M32:P36")
'Sheets("B-Mart").Range("F" & i).Copy Destination:=Sheets("Rack Sign").Range("D37:P41")
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
Application.ScreenUpdating = True
End Sub