Hi Toppers

thanks for the help, just looking at this script with confusion as Im new to
this

is this the part that copies the 14 selected items to page 2?

.Range("a" & i).Resize(14, 1).Copy PrintRng

How can this be changed so that the first number in the selection is pasted
into cell A1 on sheet 2 and second into B2 and so on




Toppers wrote:
>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
>
>> Hi Experts
>>
>[quoted text clipped - 7 lines]
>>
>> Can anyone help me?

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