VB.NET ช่วยดูโค้ด Print Preview ให้หน่อยค่ะ เรื่องการจัดขอบกระดาษ

Private Sub btnPrintpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintpreview.Click
        CaptureScreen()
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.ShowDialog()
    End Sub

Private Sub CaptureScreen()
        Dim mygraphics As Graphics = Me.CreateGraphics() ' ---- เปลี่ยนเป็น GroupBox1.CreateGraphics()
        Dim s As Size = Me.Size ' ---- เปลี่ยนเป็น GroupBox1.Size

        memoryImage = New Bitmap(s.Width, s.Height, mygraphics)

        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
        Dim dc1 As IntPtr = mygraphics.GetHdc
        Dim dc2 As IntPtr = memoryGraphics.GetHdc

        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _
            Me.ClientRectangle.Height, dc1, 0, 0, 13369376)
        mygraphics.ReleaseHdc(dc1)
        memoryGraphics.ReleaseHdc(dc2)
    End Sub