Printing side by side

[California Kid]

I have a very long but very narrow listing of data that I would like to print in a side by side layout. For example printing items 1-50 on left of page one and 51-100 on right of page one and then 101-150 on left of page two. Seems like it would be wasy I have simply not been able to locate how to do this. I appreciate your assistance.

 

[jolivanes]

Give this a try and adjust to your needs

Sub test()
Dim rng As Range, col As Integer, r As Long, op As Range
On Error GoTo Last
Set rng = Application.InputBox("Select range to convert", Type:=8)
col = Application.InputBox("Enter number of columns", Type:=1)
Set op = Application.InputBox("Select cell to output", Type:=8)
r = Application.RoundUp(rng.Count / col, 0)
For i = 1 To r
    For ii = 1 To col
        If iii < rng.Count Then
            iii = iii + 1
            op.Range("a1").Offset(i - 1, ii - 1) = rng.Item(iii)
        End If
    Next
Next
Last:
End Sub

 

[California Kid]

Thanks for the assistance however as may be noted by my question my skills are limited. Does this work for a multi column situation or just single column. Also not clear on how put this code into action? I have not used much code in my excel experiance although I am sure it would help me through a lot of my stumbling blocks. I am however interested in doing so. Thanks again.

 

[jolivanes]

Kid.
The code is not from me, it is from a gentleman named jindon.
If you copy the code and paste it in a module and then run the code, you'll see that a messagebox will pop up asking which range needs to be used. When you put in the range, for instance A1:A500, it then asks how many columns you want to use. If you use 50 rows for each page, you could use 10 columns. Next it asks for the first cell where you want to start putting the split cells. Now you can set your printing range and print.
This is the only way I know how to solve your particular problem. There are quite a few intelligent Excel people on this forum so more then likely someone with more savvy then me will come and give you a better solution.
Hope this works for you though.
Regards
John

 

[California Kid]

Thanks for both of your direction. I was able to make it work and suit my needs. Thanks for helping out.