myGully.com - Form Inhalt drucken wie?

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Form Inhalt drucken wie? (https://mygully.com/showthread.php?t=2079727)

Form Inhalt drucken wie?

Hallo Leute

habe eine frage.
Ist es möglich den Inhalt einer Form zu drucken?
Also z.B Textboxen, Labels usw.
Aber kein MenuStrip.
Ich benutze Visual Basic 2008 Express.

Wäre super wen ihr mir helfen könntet!!

MfG moin2010

[Link nur für registrierte und freigeschaltete Mitglieder sichtbar. Jetzt registrieren...] gibt ja viele Einträge bei Google.

ok habs mir mal angeschaut muss ich dan mal ausprobieren.

ich habs mir angeschaut aber bekomme es einfach nicht hin.

Ist es nicht vieleicht möglich das er dan einfag ein bild von
sich erstellt, anzeigt und das man dan auf einen Button klickt zum druckten?
Es kann sich von mir aus auch eine neu Form oder so öffnen wo man es dan sieht
und wo dan dort ein Button zum Drucken ist.

Zitat:

Zitat von moin2010 (Beitrag 21007402)

ich habs mir angeschaut aber bekomme es einfach nicht hin.

Was hat nicht geklappt? Welche Fehlermeldung?

nein, das problem ist, ich weis nicht wo ich es einfügen muss!

Wo du es einfügen sollst? Da sind doch schon alle Events...
Oben unter "Public Class Form1":

Code:

Private Const SRCCOPY As Integer = &HCC0020

 

    Private Declare Function BitBlt _

   Lib "gdi32.dll" ( _

   ByVal hdcDest As IntPtr, _

   ByVal x As Int32, _

   ByVal y As Int32, _

   ByVal Width As Int32, _

   ByVal Height As Int32, _

   ByVal hdcSrc As IntPtr, _

   ByVal xSrc As Int32, _

   ByVal ySrc As Int32, _

   ByVal dwRop As Int32 _

   ) As Boolean

 

    Private formImage As Bitmap



Public Sub PrintForm()

        ' Gibt eine Bildschirmkopie einer am Bildschirm komplett 

        ' sichtbaren Form auf dem Drucker aus (Screenshot). 

        ' Platzieren Sie diesen Code im Form-Klassenmodul der 

        ' Form, die Sie ausdrucken möchten. 

 

        ' Zunächst: Bildschirmkopie der Form erzeugen. 

        ' Nachteil: Verdeckte und anderweitig nicht sichtbare 

        ' Teile(der) WinForm werden nicht mit in die Grafik 

        ' aufgenommen. 

 

        ' Graphics-Objekt für die Form erzeugen 

        Dim formGraphics As Graphics = Me.CreateGraphics

 

        ' Kompatible Bitmap erzeugen und Graphics-Objekt abholen 

        formImage = New Bitmap(Me.Width, Me.Height, formGraphics)

        Dim memGraphics As Graphics = Graphics.FromImage(formImage)

 

        ' Quell- und Ziel-DCs abholen 

        Dim sourceDC As IntPtr = formGraphics.GetHdc

        Dim targetDC As IntPtr = memGraphics.GetHdc

 

        ' Kopieren ("Screenshot") 

        BitBlt(targetDC, _

         0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, _

         sourceDC, _

         Me.ClientRectangle.X, Me.ClientRectangle.Y, _

         SRCCOPY)

 

        ' Alternative Variante folgend auskommentiert: 

        ' Mit dem folgenden Code wird die gesamte Form (inkl. Rändern 

        ' und Titelzeile) in die Ziel-Bitmap kopiert: 

        ' BitBlt(targetDC, _ 

        '  0, 0, Me.Size.Width, Me.Size.Height, _ 

        '  sourceDC, _ 

        '  0, 0, _ 

        '  SRCCOPY) 

 

        ' DCs freigeben 

        formGraphics.ReleaseHdc(sourceDC)

        formGraphics.Dispose()

        memGraphics.ReleaseHdc(targetDC)

        memGraphics.Dispose()

 

        ' In formImage steht die Abbildung der Form nun zur Verfügung. 

        ' Die Abbildung aus formImage ausdrucken: 

        PrintDocument1.Print()

        formGraphics.Dispose()

 

    End Sub

Dann fügst du einen Button hinzu, doppelklick auf ihn:

Code:

Me.PrintForm()

Dann fügst du noch ein PrintDocument aus der Toolbox hinzu:

Code:

Private Sub PrintDocument1_PrintPage( _

    ByVal sender As System.Object, _

    ByVal e As System.Drawing.Printing.PrintPageEventArgs _

    ) Handles PrintDocument1.PrintPage

 

        ' Screenshot ausdrucken 

        e.Graphics.DrawImage(formImage, 0, 0)

 

    End Sub

Per Buttonklick wird dann deine Form ausgedruckt.

ich habe es jetzt alles mal eingefügt.

Jetzt habe ich eine Frage.

Ist es schlimm wen es ein Syntaxfehler gibt?

Weil der kommt bei: ByVal

nein, das ist nicht schlimm, VB ist eh' ein einziger syntaxfehler ... ;)

hast du evntl. direkt davor ein '_' unterschlagen?

ich habe jetzt mal ein test druck gemacht.
Kann man aber vieleicht das noch so machen, dass das MenuStrip nicht mit auf dem gedruckten Bild angezeigt wird?

Hab jetzt kein Bock zu suchen, aber du könntest ja direkt vor dem Drucken das MenuStrip verstecken..ist zwar nicht so ganz toll aber naja^^

ne das is nich so gut.
wäre besser, wenn es gleich ohne MenuStrip gedruckt wird,
aber in der Form angezeigt wird.

kann mir niemand helfen?

Zitat:

Zitat von moin2010 (Beitrag 21141771)

ne das is nich so gut.
wäre besser, wenn es gleich ohne MenuStrip gedruckt wird,
aber in der Form angezeigt wird.

Warum ist das nicht so gut? Vor dem Drucken versteckst du das MenuStrip mit -> MenuStrip1.Visible = False und danach wieder auf True stellen..das merkste dann gar nicht. Oder denkst du, dass das MenuStrip dann für immer verschwindet?

Hier ist ein kürzerer Code zum Ausdrucken der Form, denn der von oben ist etwas zu lang^^

Code:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim bmp As New Bitmap(Me.Width, Me.Height)

        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))

        e.Graphics.DrawImage(bmp, 0, 0)

    End Sub

Per Button die Form dann ausdrucken:

Code:

PrintDocument1.Print()