Print

[BBarber]

Is there any way to edit this so i can print what is on the entire form...and what is on the form...I have 2 frames and about 90 textboxes...right now it is the same as print screen??

Private Sub BtnPrintForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrintForm.Click
        ' initiate the printdocument component
        GetFormImage()
        pd.Print()
End Sub


Private Sub GetFormImage()
        Dim g As Graphics = Me.CreateGraphics()
        Dim s As Size = Me.Size
        formImage = New Bitmap(s.Width, s.Height, g)
        Dim mg As Graphics = Graphics.FromImage(formImage)
        Dim dc1 As IntPtr = g.GetHdc
        Dim dc2 As IntPtr = mg.GetHdc
        ' added code to compute and capture the form
        ' title bar and borders
        Dim widthDiff As Integer = _
           (Me.Width - Me.ClientRectangle.Width)
        Dim heightDiff As Integer = _
           (Me.Height - Me.ClientRectangle.Height)
        Dim borderSize As Integer = widthDiff \ 2
        Dim heightTitleBar As Integer = heightDiff - borderSize
        BitBlt(dc2, 0, 0, _
           Me.ClientRectangle.Width + widthDiff, _
           Me.ClientRectangle.Height + heightDiff, dc1, _
           0 - borderSize, 0 - heightTitleBar, 13369376)

        g.ReleaseHdc(dc1)
        mg.ReleaseHdc(dc2)
    End Sub

 

[JuggaloBrotha]

You should print the text from the 90 textboxes individually instead of doing a screen shot.

 

[BBarber]

Thank you for your response....but that is a little vague for someone who knows nothing.

 

[JuggaloBrotha]

Look up the PrintDocument control on MSDN and you'll find examples of how to draw the strings onto a document that'll go to a printer