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. Diese Seite wurde bereits 10.844 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |