See Print Preview & Print a WindowsForm in Both C# & VB.Net

PrintDoc1.PrintPage += PDoc_PrintPage;

Here is my manual translation to Vb.Net.>>

 'PrintDocument PrintDoc1 = new PrintDocument();
    Private PrintDoc1 As PrintDocument = New PrintDocument
    'PrintPreviewDialog PrintPreviewDialog1 = new PrintPreviewDialog();
    Private PrintPreviewDialog1 As PrintPreviewDialog = New PrintPreviewDialog

    'private void btn_PrintPreview_Click(object sender, EventArgs e)
    Private Sub btn_PrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PreviewButton.Click '{// When PrintPreview Button Clicks
        'PrintPreviewDialog1.Document = PrintDoc1;
        PrintPreviewDialog1.Document = PrintDoc1
        'PrintDoc1.OriginAtMargins =true; //To set or Get the Position of a Graphic Object
        PrintDoc1.OriginAtMargins = True
        'PrintDoc1.PrintPage += PDoc_PrintPage;

        'PrintPreviewDialog1.ShowDialog();
        PrintPreviewDialog1.ShowDialog()
        '}
    End Sub

    'private void PDoc_PrintPage(object sender, PrintPageEventArgs e)
    Private Sub PDoc_PrintPage(ByVal sender As System.Object, ByVal e As PrintPageEventArgs)
        '{
        'Bitmap bmp = new Bitmap(this.Width, this.Height);
        Dim bmp As Bitmap = New Bitmap(Me.Width, Me.Height)
        '//this.DrawToBitmap(bmp, this.ClientRectangle);
        Me.DrawToBitmap(bmp, Me.ClientRectangle)
        'this.DrawToBitmap(bmp, new Rectangle(0, 0, bmp.Width, bmp.Height)); //Takes the Snap of the Exact WindowForm size as Bitmap image
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, bmp.Width, bmp.Height))
        'e.Graphics.DrawImage(bmp, 0, 0);
        e.Graphics.DrawImage(bmp, 0, 0)
        '}
    End Sub