صنع رأس للصفحة (هيدر) - نسخة قابلة للطباعة

كود :
Public Class Form1



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        RichTextBox1.BorderStyle = BorderStyle.None

        RichTextBox2.BorderStyle = BorderStyle.None

        RichTextBox3.BorderStyle = BorderStyle.None

        RichTextBox1.ScrollBars = RichTextBoxScrollBars.None

        RichTextBox2.ScrollBars = RichTextBoxScrollBars.None

        RichTextBox3.ScrollBars = RichTextBoxScrollBars.None

        PictureBox1.BorderStyle = BorderStyle.None

        Dim Img As New Bitmap(Panel1.Width, Panel1.Height)

        Dim G As Graphics = Graphics.FromImage(Img)

        Dim Save As New SaveFileDialog

        Save.Filter = "PNG Image|*.png"

        Panel1.DrawToBitmap(Img, New Rectangle(0, 0, Panel1.Width, Panel1.Height))

        G.DrawImage(RtbToBitmap(RichTextBox1), RichTextBox1.Bounds)

        G.DrawImage(RtbToBitmap(RichTextBox2), RichTextBox2.Bounds)

        G.DrawImage(RtbToBitmap(RichTextBox3), RichTextBox3.Bounds)

        If Save.ShowDialog = Windows.Forms.DialogResult.OK Then

            Img.Save(Save.FileName, Imaging.ImageFormat.Png)

        End If

        RichTextBox1.ScrollBars = RichTextBoxScrollBars.Both

        RichTextBox2.ScrollBars = RichTextBoxScrollBars.Both

        RichTextBox3.ScrollBars = RichTextBoxScrollBars.Both

        RichTextBox1.BorderStyle = BorderStyle.FixedSingle

        RichTextBox2.BorderStyle = BorderStyle.FixedSingle

        RichTextBox3.BorderStyle = BorderStyle.FixedSingle

        PictureBox1.BorderStyle = BorderStyle.FixedSingle

    End Sub



    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        Dim Open As New OpenFileDialog

        Open.Filter = "Image Files|*.png;*.bmp;*.jpg;*.gif"

        If Open.ShowDialog = Windows.Forms.DialogResult.OK Then

            PictureBox1.Image = Image.FromFile(Open.FileName)

        End If

    End Sub



    Public Function RtbToBitmap(ByVal rtb As RichTextBox) As Bitmap

        rtb.Update()

        Dim bmp As New Bitmap(rtb.Width, rtb.Height)

        Using gr As Graphics = Graphics.FromImage(bmp)

            gr.CopyFromScreen(rtb.PointToScreen(Point.Empty), Point.Empty, rtb.Size)

        End Using

        Return bmp

    End Function

End Class