Hallo!
Ich habe eine Form, in der über mehrere Steuerelemente ein Rezept steht.
Das erste ist eine TextBox in der der Titel des Rezepts steht.
Das zweite Steuerelement ist eine PictureBox in der ein Bild vom Rezept ist.
Das dritte Steuerlement ist eine TextBox, in der eine Beschreibung des Rezepts steht.
Danach folgt eine ListView in der die Zutaten aufgelistet sind.
Darunter sind zur Laufzeit erstellte TextBoxen, eine für jeden Arbeitsschritt.
Zum schluß folgen NumericUpDows, mit Nährstoffwerten.
Wenn ich das Rezept nun wie folgt drucke:
wird nur der Titel, das Bild und die Beschreibung gedruckt.
Wenn ich wie folgt die Druckvorschau öffne:
wird jedoch das komplette Rezept angezeigt
Wenn ich das Rezept aus der Druckvorschau heraus drucke, wird nur die letzte Seite gedruckt.
Wo liegt hier der Fehler?
Ich habe eine Form, in der über mehrere Steuerelemente ein Rezept steht.
Das erste ist eine TextBox in der der Titel des Rezepts steht.
Das zweite Steuerelement ist eine PictureBox in der ein Bild vom Rezept ist.
Das dritte Steuerlement ist eine TextBox, in der eine Beschreibung des Rezepts steht.
Danach folgt eine ListView in der die Zutaten aufgelistet sind.
Darunter sind zur Laufzeit erstellte TextBoxen, eine für jeden Arbeitsschritt.
Zum schluß folgen NumericUpDows, mit Nährstoffwerten.
Wenn ich das Rezept nun wie folgt drucke:
VB.NET-Quellcode
- Dim Antwort As Integer
- Antwort = PrintDialog1.ShowDialog()
- If Antwort = DialogResult.OK Then
- Select Case FensterArt
- Case 1
- DruckBlock = 0
- LetztSchritt = 1
- LetztZeile = ""
- Dim frm As Rezept = Me.ActiveMdiChild
- Me.PrintDocument1.DefaultPageSettings.Landscape = False
- Me.PrintDocument1.DocumentName = frm.Text
- Me.PrintDocument1.Print()
- End Select
- End If
wird nur der Titel, das Bild und die Beschreibung gedruckt.
Wenn ich wie folgt die Druckvorschau öffne:
VB.NET-Quellcode
- Using dlg As New PrintPreviewDialog
- Select Case FensterArt
- Case 0
- Exit Sub
- Case 1
- DruckBlock = 0
- Drucken = True
- Dim frm As Rezept = Me.ActiveMdiChild
- Me.PrintDocument1.DefaultPageSettings.Landscape = False
- Me.PrintDocument1.DocumentName = frm.Text
- End Select
- dlg.Document = Me.PrintDocument1
- dlg.ShowDialog()
- End Using
wird jedoch das komplette Rezept angezeigt
Wenn ich das Rezept aus der Druckvorschau heraus drucke, wird nur die letzte Seite gedruckt.
Wo liegt hier der Fehler?