Picturebox + Text drucken

[jesus.online]

Hi hi,

Es gibt etwas mit dem ich mich noch garnicht beschäftigt habe,
und zwar mit dem Drucken von Elementen.

In meinem Fall eine Picturebox (gefüllt mit Screenshot) deren Bild
auf eine DinA4 Seite angepasst werden soll, und darunter möchte
ich noch einen kleinen Text schreiben.

Bitte um Hilfe, falls das Thema schon mal war bin ich natürlich auch
mit Links zufrieden

Danke!

[jesus.online]

Ok bild hab ich jetzt geschafft, auch das mit dem Anpassen!

[highlight=vbnet]Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

Dim gr As Graphics = e.Graphics


' Verweis auf das Bild festlegen
Dim oImage As Image = pbScreen.Image
Dim Faktor As Double = oImage.Height / oImage.Width
Dim Bildgroesse As Integer = CInt(e.PageSettings.PrintableArea.Width - 20)

' Rechteck für den Ausdruck festlegen
' Position + Originalgröße
Dim p As New Point(e.PageBounds.Left + 10, e.PageBounds.Top + 100)
Dim r As New Rectangle(p.X, p.Y, Bildgroesse, CInt(Bildgroesse * Faktor))

' Bild drucken im angegebenen Rechteck drucken
gr.DrawImage(oImage, r)

gr.Dispose()

End Sub
[/highlight]

Ist der Code aus VBArchiv, nur ein bisschen angepasst.
Aber wie kriege ich da jetzt auch noch text unter das Bild?

[Peter Enz]

Ist der Code aus VBArchiv, nur ein bisschen angepasst. Aber wie kriege ich da jetzt auch noch text unter das Bild?

Die Graphics-Klasse bietet neben DrawImage auch die Methode DrawString an!?

Gruß
Peter

[jesus.online]

Danke?!

[jesus.online]

Ein "Problem" hab ich leider noch, denn wenn der Druck dann angestoßen
wird, erscheint so ein kleines Fenster wo drin steht das jetzt gedruckt wird.

Wie kann man das umgehen?

Code ist immernoch fast der von oben.