Print a listbox? [Resolved]

[Pirre001]

When I try to print out this it dosen't look as straight and nice as it looks in the listbox. Why?

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_SETTABSTOPS = &H192
 
Private Sub Form_Load()
ReDim TabStop(0 To 2) As Long
  
  'assign some values to the tabs for the second third and fourth
  'column (the first is flush against the listbox edge)
   TabStop(0) = 20
   TabStop(1) = 70
   TabStop(2) = 200
 
   
   List1.Clear
  'clear then set the tabs
 
   Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&)
   Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 3, TabStop(0))
    
    List1.AddItem "Test text" & Chr(9) & "Test Date 0301" & Chr(9) & "MaterialNumber"
    List1.AddItem "Test text 2" & Chr(9) & "Test Date 030104" & Chr(9) & "MaterialNumber"
    List1.AddItem "Test text 3" & Chr(9) & "Test Date 20030301" & Chr(9) & "MaterialNumber"
    List1.AddItem "Test text 4" & Chr(9) & "Test Date Wednesday 04:00 Pm" & Chr(9) & "MaterialNumber"
End Sub
 
Private Sub Command1_Click()
    Dim x As Integer
    
    For x = 0 To List1.ListCount - 1
    Printer.Print List1.List(x)
    Next x
Printer.EndDoc
End Sub

[brucevde]

You have not set any TabStops for the printer (Can you even set TabStops for a printer?).

TabStops are a formatting function. The original data does not change. The Listbox simply moves to the specified column whenever it encounters a Tab character. It does not add spaces.

Try the DrawText API - I know it supports TabStops.

[Pirre001]

Thanks brucevde,

Can you show me a example?

[Dave Bleby]

I've run your code and I see what you mean.
I think the problem is that the tabstops you have set in the listbox are not sent to the printer; only the tab characters that you have entered into the listbox text are applied to the printed format.

Hope this helps.

All the best,

Dave.

P.S. Sorry for the cross post Brucevde

[Pirre001]

Dave Bleby,

I have tried that, but I it doesn't work for me. Can you show me a working example?

[MartinLiss]

A ListView is a better solution than a multi-column listbox.

[Pirre001]

Ok MartinLiss,

And how do I do this with a ListView?

If I wanna use a listbox, do you have anu solution to do that also?

[Pirre001]

I really need help with this...

[TheVader]

Here's an example of how to use a ListView in your case. Add Microsoft Windows Common Controls 6 to your project. I haven't tested the printing with a listview though.

[Pirre001]

Thanks TheVader,

But I need a working print example with a listbox

[MartinLiss]

Here is a working example of printing from a listview.

[Pirre001]

Thanks MartinLiss,

Can u show me a working example of printing from a listbox, as I described?

[MartinLiss]

It would be similar.

Dim lngIndex As Long
    Dim strParts() As String
    
    ' Print the data
    For lngIndex = 0 To List1.ListCount - 1
        strParts = Split(List1.List(lngIndex), vbTab)
        Printer.Print strParts(0); Tab(30); strParts(1); Tab(100); strParts(2)
        
    Next
    
    Printer.EndDoc

[Pirre001]

Thanks again MartinLiss,

another question,

Does Mscomctl.ocx (Windows Common Controls 6) includes in Windows 2000 as default or do I include this file in my setupprogram?

[MartinLiss]

Any good installation program should tell you what you need, but if you are in doubt I would include it.

[Pirre001]

Thanks Marty!

You have solved my problems.