Hallo,
Ich bin grade dabei mich ein bischen mit der Druckfuktion zu Beshäftigen. Nun wollte ich ein Bild und eine listbox zusammen ausdrucken. Also auf eine Seite. Geht aber leider nicht. nur die list box oder nur das Bild geht beides zusammen Klappt nicht:
Hoffe ihr könnt mir helfen
Ich bin grade dabei mich ein bischen mit der Druckfuktion zu Beshäftigen. Nun wollte ich ein Bild und eine listbox zusammen ausdrucken. Also auf eine Seite. Geht aber leider nicht. nur die list box oder nur das Bild geht beides zusammen Klappt nicht:
VB.NET-Quellcode
- Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- Dim gr As Graphics = e.Graphics
- Dim oImage As Image = Form1.PictureBox1.Image
- Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
- Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
- gr.DrawImage(oImage, r)
- gr.Dispose()
- Dim z As Integer = 0
- Dim y As Integer = 200
- While z < Form1.ListBox1.Items.Count
- gr.DrawString(Form1.ListBox1.Items(z), Form1.ListBox1.Font, Brushes.Black, 0, y) 'In dieser Zeile kommt es zum Absturz. Fehlermedung: Ungültiger Parameter
- z += 1
- y += 20
- End While
- End Sub
Hoffe ihr könnt mir helfen