Printing a list of names

Posted by Rick on January 26, 2002 9:20 AM

I have this long list of names (like 2700 ). I would like to take this list of names and be able to print them out one after another on as many pieces of paper as possible by filling up 1 sheet then going to the next sheet. I could do this by cutting and pasting but am hoping for a easrier way. Thanks for any help in this.

Posted by Stephen Hoadley on January 26, 2002 1:48 PM

the only way I know is to open word and select how many columns you want and copy and paste from excel to word. This wraps the text so you can print it

let me know how you get on

Posted by Jack in the UK on January 26, 2002 2:56 PM

Thoughts

Hi--
maybe ive read this rong but have data ib row format and say A1 to A2700 of data and change to pring view to make sure in one sheet.

Select print and properties and then print selection and then select setup

Here you can force exel to print dow or down and over and over what ever, i have no print as no printer at home now so cant check but force excel to print down and poss then over so will print as you require.

Im sure that will work if you select A1 to Awhatever down to A2700 to what ever then run print as selection.

Hope that worksa as cant test..

HTH
Rdgs
Jack

Posted by Puck on January 26, 2002 9:42 PM

If you mean that you have data in one column(let's say column A), and you want to split it over columns which are one page long, then :-

Sub One_Page_Columns()
Dim rw%, col%
rw = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & 1 & ")")
col = 1
Do
Range(Cells(rw, col), Cells(65536, col).End(xlUp)).Cut Cells(1, col + 1)
col = col + 1
If Cells(rw, col).End(xlDown).Row = 65536 Then Exit Do
Loop
End Sub