Should Work.
Wrote it up in a new message from outlook, I was writing a email @ the same time.
Add a PrintDialog, and a PrintDocument from your toolbox.
click on the document setting for the PrintDocument and choose printdialog
(Double)Click PrintDocument inside the generated code add
[highlight=vbnet]
Dim x As Integer = e.MarginBounds.Left
Dim y As Single = e.MarginBounds.Top
Dim heightofline As Single = Me.ListBox1.Font.GetHeight(e.Graphics)
For Each item As String In Me.ListBox1.Items
e.Graphics.DrawString(item, Me.ListBox1.Font, Brushes.Black, x, y)
y += heightofline
Next
[/highlight]
In your button, or menu or whatever you are using add
[highlight=vbnet]
If Me.PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Me.PrintDocument1.Print()
End If
[/highlight]
Let us know.