Rubrik: TextBox, ListBox & ComboBox | 15.07.03 |
Nur ausgewählte Einträge einer ListBox ausdrucken VB-Version: VB5, VB6 | ||
Views: 10.828 |
Den gesamten Inhalt einer ListBox ausdrucken geht ja bekanntlich so:
Dim i As Integer For i = 0 To List1.ListCount - 1 Printer.Print List1.List(i) Next Printer.EndDoc
Wie geht es nun, wenn man nur ausgewählte Einträge ausdrucken möchte? Hierzu muss die Selected-Eigenschaft abgefragt werden. Setzen Sie auf eine Formeine ListBox (Multiselect = 1 - Einfach oder 2 - Erweitert) und einenCommandButton. Dann verwenden Sie diesen Code:
Option Explicit Private Sub Form_Load() ' ListBox mit Einträgen füllen Dim i As Integer For i = 1 To 10 List1.AddItem "Eintrag " & CStr(i) Next i End Sub Private Sub Command1_Click() Dim i As Integer With List1 For i = 0 To .ListCount - 1 If .Selected(i) Then Printer.Print .List(i) End If Next i Printer.EndDoc End With End Sub
So können Sie verschiedene Einträge auswählen und ausdrucken.