Printing combobox

[Andrew Empson]

I think you'll need a more complicated routine for printing then. Maybe store the current X and Y positions on the printer and move back to them with each new combo, and just increment the CurrentX value. Either that, or cycle through all the combos like this:

Private Function PrntCbo(ByVal fIndex as Integer, ByVal eIndex as Integer)

  Dim BaseLoop as Integer
  Dim SubLoop as Integer
  Dim maxCount as Integer
  Dim cStr as String

  'Work out what the longest Combo List is
  maxCount=-1
  For BaseLoop = fIndex to eIndex
     If Combo1(BaseLoop).ListCount>maxCount Then
          maxCount=Combo1(BaseLoop).ListCount
     End If
  Next BaseLoop

  'Now build the Printer Strings

  For BaseLoop = 0 to maxCount
     cStr=""
     For SubLoop = fIndex to eIndex
          if Combo1(SubLoop).List(BaseLoop)="" Then
               cStr=cStr & Combo1(SubLoop).List(BaseLoop)
          End If
          cStr=cStr & vbTab & vbTab
     Next SubLoop
     Print cStr
  Next BaseLoop
End Function