Hallo,
habe mich durch viele Seiten gekämpft... bin kein Spezialist für e.Graphics...
Möchte eine Form drucken, was soweit auch funktioniert... nur wird das immer so "doof" abgeschnitten und kämpfe jetzt schon einige Stunden damit rum und wollte euch nach eurer Meinung fragen...
Meine Vorgabe war, dass jedes Form druckbar sein soll und das egal wie Groß diese Form ist. Je nach Größe soll Form "verkleinert" werden und auf einer A4 ausgedruckt werden können.
Mein Code bisher:
Anbei noch ein Bild ... wo es abgeschnitten wird und ich weis einfach ned warum.
Mit ist auch klar, wenn man es an die Größe von A4 anpasst, dass der Ausdruck "gequetscht" werden würde - das ist aber egal.
Was mache ich da Falsch?
Viele Grüße
Michael
habe mich durch viele Seiten gekämpft... bin kein Spezialist für e.Graphics...
Möchte eine Form drucken, was soweit auch funktioniert... nur wird das immer so "doof" abgeschnitten und kämpfe jetzt schon einige Stunden damit rum und wollte euch nach eurer Meinung fragen...
Meine Vorgabe war, dass jedes Form druckbar sein soll und das egal wie Groß diese Form ist. Je nach Größe soll Form "verkleinert" werden und auf einer A4 ausgedruckt werden können.
Mein Code bisher:
VB.NET-Quellcode
- Dim memoryImage As Bitmap
- Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DruckenToolStripMenuItem.Click
- CaptureScreen()
- With PrintPreviewDialog1
- .Document = PrintDocument1
- .ShowDialog()
- End With
- End Sub
- Private Sub CaptureScreen()
- Dim myGraphics As Graphics = Me.CreateGraphics()
- Dim s As Size = Me.Size
- memoryImage = New Bitmap(s.Width, s.Height, myGraphics)
- Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
- memoryGraphics.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, s)
- End Sub
- Private Sub printDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
- Dim srcRect As New RectangleF(0, 0, e.MarginBounds.X, e.MarginBounds.Y)
- e.Graphics.DrawImage(memoryImage, 0, 0, srcRect, GraphicsUnit.Inch)
- End Sub
Anbei noch ein Bild ... wo es abgeschnitten wird und ich weis einfach ned warum.
Mit ist auch klar, wenn man es an die Größe von A4 anpasst, dass der Ausdruck "gequetscht" werden würde - das ist aber egal.
Was mache ich da Falsch?
Viele Grüße
Michael
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „michl75“ ()