Hallo Yves,
Ich habe folgendes gemacht:
Auf einer Form ein Picture Steuerelement mit einem Bild platziert.
Unter diesem Bild ein Label Steuerelement mit einem beliebigen Text platziert.
Unter diesem Text ein Button Steuerelement platziert.
Aus der ToolBox ein PrintDocument Steuerelement auf die Form platziert.
Folgender Kode drückt den Inhalt des Forms, ohne die Rahmen und ohne den Button selbstverständlich.
Public Class Form1
Dim screenshot = New Bitmap(Me.Width, Me.Height)
Private WithEvents myPrintDocument As Printing.PrintDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each c As Control In Me.Controls
If c.Name <> "Button1" Then
Dim r As New Rectangle(c.Left, c.Top, c.Width, c.Height)
c.DrawToBitmap(screenshot, r)
End If
Next
PrintDocument1.Print()
End Sub
Private Sub myPrintDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawImage(screenshot, 0, 0)
End Sub
End Class
Die Methode, die bei dem Zeichnen der einzelnen Komponenten verwendet wird, heißt DrawToBitmap().
Mehr Informationen über die Verwendung von DrawToBitmap(), Bitmap und PrintDocument findest Du hier:
DrawToBitmap à http://msdn.microsoft.com/de-de/library/system.windows.forms.control.drawtobitmap.aspx
Bitmap à http://msdn.microsoft.com/de-de/library/system.drawing.bitmap.aspx
PrintDocument à http://msdn.microsoft.com/de-de/library/system.drawing.printing.printdocument.aspx
Bitte lies auch folgender Artikel: Druckunterstützung in Windows Forms à http://msdn.microsoft.com/de-de/library/xdt36c58.aspx
Grüße,
Robert
