How to print a Rich Text Box or BMP to a VB.NET PrintDocument

That will print form or picture box

'label, picture and 4 buttons

Option Explicit On
Option Strict On

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
#End Region

#Region "Variables"
    Private printWholeForm As Boolean = False
    Private memImage As Bitmap
#End Region
#Region "Base Events"
    Private Sub print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles printGraphic.Click, PrintForm.Click
        Dim buttonID As Button = CType(sender, Button)

        If buttonID.Name = "printForm" Then
            printWholeForm = True
            Call BuildFormImage()
        End If
        PrintDialog1.Document = PrintDocument1
        If PrintDialog1.ShowDialog = DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub

    Private Sub printPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles printPreviewGraphics.Click, printPreviewForm.Click
        Dim buttonID As Button = CType(sender, Button)
        Dim PrintPreviewID As New PrintPreviewDialog()

        PrintPreviewID.Document = PrintDocument1
        If buttonID.Name = "printPreviewForm" Then
            printWholeForm = True
            Call BuildFormImage()
        End If
        If PrintPreviewID.ShowDialog = DialogResult.OK Then
            PrintDocument1.Print()
        End If
    End Sub

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

        If printWholeForm = False Then
            ' Build each part of the picture
            With formGraphics
                .DrawString(Label1.Text, Label1.Font, New SolidBrush(Label1.ForeColor), 50, 50)
                .DrawImage(PictureBox1.Image, 100, 100)
                .Dispose()
            End With
        Else
            formGraphics.DrawImage(memImage, 0, 0)
            memImage.Dispose()
            formGraphics.Dispose()
            printWholeForm = False
        End If
        e.HasMorePages = False
    End Sub
#End Region
#Region "Implementation Methods"
    Private Sub BuildFormImage()
        Dim graphicID As Graphics = Me.CreateGraphics
        Dim sizeID As Size = Me.Size
        Const SRCCOPY As Integer = &HCC0020

        memImage = New Bitmap(sizeID.Width, sizeID.Height, graphicID)
        Dim memGraphic As Graphics = graphicID.FromImage(memImage)
        Dim deviceContext1 As IntPtr = graphicID.GetHdc
        Dim deviceContext2 As IntPtr = memGraphic.GetHdc

        BitBlt(deviceContext2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, deviceContext1, 0, 0, SRCCOPY)
        graphicID.ReleaseHdc(deviceContext1)
        memGraphic.ReleaseHdc(deviceContext2)
    End Sub

    Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As IntPtr, ByVal _
     nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight _
     As Integer, ByVal hdcSrc As _
     IntPtr, ByVal nXSrc As Integer, _
     ByVal nYSrc As Integer, ByVal _
     dwRop As System.Int32) As Boolean
#End Region

End Class

Ok that is fine, but that is not what I wanted.

I want to print a Rich Text Box

DO you want to print content of RTB?

yes

I want to create a rectangle somewhere on the printdocument and print the properly formatted rich text contents

No comment has been added lately, so it's time to clean up this TA.
I will leave a recommendation in the Cleanup topic area that this question is:

Answered by iboutchkine

Please leave any comments here within the next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER!

TheLearnedOne
EE Cleanup Volunteer