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.845 mal aufgerufen. |
Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||
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. |