Printing help

[strangevirus]

Hi, Anyone know how I would go about printing 2 listboxes exaclty side by side to each other so the lines match up thanks

[MartinLiss]

Dim lngIndex As Long
    
    For lngIndex = 0 To List1.ListCount - 1
        Printer.Print List1.List(lngIndex)[HL="#FFFF00"];[/HL]
        Printer.Print List2.List(lngIndex)
    Next
    
    Printer.EndDoc

[strangevirus]

thanks now the probly is its printing as e.g "Cake£1.99" how would I tell the print to leave a space or two in berween?

Thanks

[MartinLiss]

Dim lngIndex As Long
    
    For lngIndex = 0 To List1.ListCount - 1
        Printer.Print List1.List(lngIndex) & "    ";
        Printer.Print List2.List(lngIndex)
    Next
    
    Printer.EndDoc

or probably better

Dim lngIndex As Long
    
    For lngIndex = 0 To List1.ListCount - 1
        Printer.Print List1.List(lngIndex) & vbTab;
        Printer.Print List2.List(lngIndex)
    Next
    
    Printer.EndDoc