Hi,

Something along these lines:

Sub Print14()

Dim PrintRng As Range
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")

Set PrintRng = ws2.Range("a2")

ws2.PageSetup.PrintArea = "a2:a15"

With ws1
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow Step 14
.Range("a" & i).Resize(14, 1).Copy PrintRng
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End With

End Sub

HTH

"Crowbar via OfficeKB.com" wrote:

Hi Experts

On worksheet 1 i have in Column A about a 1000 entries

What I want to do is to transfer the first 14 onto sheet 2 and then print

Then I want it to transfer the next 14 and then print

I want it to loop through this process until it has printed all 1000

Can anyone help me?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200601/1