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
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..
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 :-
Dim rw%, col%
rw = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & 1 & ")")
col = 1
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