I have written a small shopping list program (VB 6)that puts items from a combo box into a list box and then prints the list.  If the list is too long for the page it continues printing onto another page.  I would like the printer to print another column on the same page say, after 40 items in column one.  Could you help with the code for this please.  The code I have at present is:-
Dim i As Long
    Printer.FontBold = True
    Printer.FontSize = 16
     For i = 0 To ListItem.ListCount -1
        Printer.Print ListItem.List(i)
    Next
    
    Printer.EndDoc