Hallo Zusammen,
die Besonderheit der Frage, es soll jede Zeile einzeln auf ein neues Blatt an eine bestimmte Stelle gedruckt werden.
Wie kann ich das umsetzen?
Die Listbox wird derzeit wie folgt befüllt.
MfG Madde
die Besonderheit der Frage, es soll jede Zeile einzeln auf ein neues Blatt an eine bestimmte Stelle gedruckt werden.
Wie kann ich das umsetzen?
Die Listbox wird derzeit wie folgt befüllt.
VB.NET-Quellcode
- Private Sub ButtonEinlesen_Click(sender As Object, e As EventArgs) Handles ButtonEinlesen.Click
- Dim FolderBrowserDialog1 As New FolderBrowserDialog
- With FolderBrowserDialog1
- .Description = "Die gewünschte Struktur auswählen"
- If .ShowDialog = DialogResult.OK Then
- dir_list.Add(.SelectedPath)
- Ordner(New DirectoryInfo(.SelectedPath))
- End If
- End With
- End Sub
- Private Sub Ordner(ByVal oDir As DirectoryInfo)
- For Each SubOrdner As DirectoryInfo In oDir.GetDirectories
- ListBox1.Items.Add(SubOrdner.Name)
- Ordner(SubOrdner)
- Next
- End Sub
MfG Madde