vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2021
 
zurück
Rubrik: TextBox, ListBox & ComboBox15.07.03
Nur ausgewählte Einträge einer ListBox ausdrucken

VB-Version:  VB5, VB6
 Views:  10.249 

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.249 mal aufgerufen.

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2021 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel