Sub PrintSheet()
Dim i As Integer
Dim p As Integer
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet


Set Ws1 = Sheets("sheet1")
Set Ws2 = Sheets("Sheet2")
For i = 1 To Ws1.Range("b" & Ws1.Range("b65536").End(xlUp).Row) Ste
1
For p = 1 To Ws1.Cells(i, "b").Value Step 1
Ws2.Cells(p, "b").Value = Ws1.Cells(i, "c").Value
Next p
Ws2.PrintOut Copies:=1, Collate:=True
Ws2.Cells.ClearContents
Next i
End Su

--
Message posted from http://www.ExcelForum.com