How can I print the contents of more than one combo box on the same line. I am trying this code, but it doesn't work. The text box array prints one tab apart on the same line, like its in columns. I need the combo boxes to do the same thing. This code just prints them down the left side. Excuse the screwy code, I have been trying everything I could think of.
Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer)
Dim p As Integer
p = Index
If KeyAscii = 13 Then
Combo1(p).AddItem (Combo1(p).Text)
Combo1(p).Text = ""
End If
End Sub
Private Sub cmdPrint_Click()
Dim x As Integer
Dim p As Integer
Dim i As Integer
Do Until x = Text1().Count
Print Text1(x).Text; vbTab; vbTab;
x = x + 1
Loop
Print
Do Until p = Combo1().Count
PrntCbo (p)
p = p + 1
Loop
End Sub
Private Function PrntCbo(Index As Integer)
Dim p As Integer
Dim i As Integer
p = Index
Do Until i = Combo1(p).ListCount
Print Combo1(p).List(i)
i = i + 1
Loop
End Function