Imports System.Drawing.Printing
אחר דים 
    Dim WithEvents pDoc As New PrintDocument()

עכשיו תגדיר את 
pcdoc
    Private Sub pDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pDoc.PrintPage
        e.Graphics.DrawString(RTP.Text, RTP.Font, bBlackBrush, 20, 20)
    End Sub
ועכשיו תגדיר בתוך הפונקציה של הכפתור (שאותו תבחר לבד)
        pDoc.Print()