Drucken?

[TheLuCKer]

Hallo Jungs,

kann mir jemand sagen, wie ich eine Liste (Listbox (listName.List)) drucken kann. Zum Beispiel, soll wenn ich auf einen Button klicke, ein Druckerauswahlbereich kommen, so wie es bei den üblichen Programm kommt. Dann kann man den Drucker auswählen und danach sollen die Einträge, die in der Liste (listName.List) sind, gedruckt werden. Kann mir jemand helfen. DANKE

LuCker

 

[wincnc]

Dazu benötigst Du einen CommandButton (Command1), eine ListBox (List1) und den CommonDialog (CommonDialog1).

Private Sub Command1_Click()
On Error GoTo Fehler
With CommonDialog1
.CancelError = True
.ShowPrinter
End With

For N = 0 To List1.ListCount - 1
Printer.Print List1.List(N)
Next

Printer.EndDoc

Exit Sub
Fehler:
If Not Err.Number = 32755 Then
MsgBox Err.Description, vbCritical, "Drucken"
End If
Exit Sub
End Sub