Moin Moin zusammen,
ich hab mir ne kleine Bildersammlung zusammengestellt in VB.net.
Inhalt ist eine ListBox wo alle Bilder aus Dir und SubDir zusammengesucht werden, mit einem Klick auf das jeweilige wird es nebendran in einer PictureBox1 dargestellt.
Nun meine Frage,...
Ich habe einen "PrintDialog1" und ein "PrintDocument1" eingebaut,...
Dieser soll das Bild drucken, was er bis dahin auch tut,... Jedoch zu groß.
Das Papierformat ist A4, das "Quellbild" hat 1920*1080 Px und auf dem Drucker kommt nur ca. 1/3 des gesamten Bildes raus...
Hier mal mein Quellcode...
Jemand eine Idee wie ich das auf A4 Größe proportional verkleinern kann, wenn das Bild zu groß ist?
Danke schon mal und Grüße,
samson
Korrektur, das es nicht falsch verstanden wird
Ich bin mir ziehmlich sicher das es hier gemacht werden muss...
Nur hab ich keinen Ansatz wie
Danke und Grüße nochmal
ich hab mir ne kleine Bildersammlung zusammengestellt in VB.net.
Inhalt ist eine ListBox wo alle Bilder aus Dir und SubDir zusammengesucht werden, mit einem Klick auf das jeweilige wird es nebendran in einer PictureBox1 dargestellt.
Nun meine Frage,...
Ich habe einen "PrintDialog1" und ein "PrintDocument1" eingebaut,...
Dieser soll das Bild drucken, was er bis dahin auch tut,... Jedoch zu groß.
Das Papierformat ist A4, das "Quellbild" hat 1920*1080 Px und auf dem Drucker kommt nur ca. 1/3 des gesamten Bildes raus...
Hier mal mein Quellcode...
VB.NET-Quellcode
- Private Sub PrintDocument1_PrintPage(ByVal sender As System.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 = PictureBox1.Image
- ' Rechteck für den Ausdruck festlegen
- ' Position + Originalgröße
- Dim p As New Point(e.MarginBounds.Left, e.MarginBounds.Top)
- Dim r As New Rectangle(p.X, p.Y, oImage.Width, oImage.Height)
- ' Bild drucken im angegebenen Rechteck drucken
- gr.DrawImage(oImage, r)
- gr.Dispose()
- End Sub
- Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
- With PrintDocument1
- ' Dokument-Title
- .DocumentName = "Print Picture"
- ' Ausdruck starten
- If PrintDialog1.ShowDialog = DialogResult.OK Then
- PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
- PrintDocument1.Print()
- End If
- End With
- End Sub
Jemand eine Idee wie ich das auf A4 Größe proportional verkleinern kann, wenn das Bild zu groß ist?
Danke schon mal und Grüße,
samson
Korrektur, das es nicht falsch verstanden wird
Ich bin mir ziehmlich sicher das es hier gemacht werden muss...
Nur hab ich keinen Ansatz wie
Danke und Grüße nochmal
Nein! Doch! OHH!