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

كما هو موضح بالعنوان بان لدي مشكلة وهي اريد عمل تطبيق ليقوم المستخدم بصنع الهيدر المناسب من خلال الكتابة على اداة
PictureBox وبعدها يتم الحفظ على شكل صورة على الجهاز

ارجو من ذوي الخبرة ان يقومو بمساعدتي

# وهل يمكن ان استعرض شعار للهيدر مثل شعار الشركة او logo ؟؟؟؟

[TABLE="class: grid, width: 500, align: center"]
[TR]
[TD]صورة توضيحية [/TD]
[/TR]
[/TABLE]

[TABLE="class: outer_border, width: 500, align: center"]
[TR]
[TD]

[/TD]
[/TR]
[/TABLE]

وشاكرة لكم جهودكم

كود :

Dim Img As New Bitmap([color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height)

        Dim Save As New SaveFileDialog

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

        [color=#ff0000]Panel1[/color].DrawToBitmap(Img, New Rectangle(0, 0, [color=#ff0000]Panel1[/color].Width, [color=#ff0000]Panel1[/color].Height))

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

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

        End If

PHP كود :

Public Class Form1
    Dim Graph As Graphics
    Dim Drawbitmap As Bitmap
    Dim Brush As New Drawing.SolidBrush(Color.Black)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dlg As New FontDialog
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.Font = dlg.Font
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dlg As New ColorDialog
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            Brush.Color = dlg.Color
            RichTextBox1.ForeColor = dlg.Color
        End If
    End Sub

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Drawbitmap = New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Graph = Graphics.FromImage(Drawbitmap)
        PictureBox1.Image = Drawbitmap
        Graph.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        Graph.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brush, PictureBox1.Location)

    End Sub
End Class




'You can add save code, if ya want the codes for save, here it is:

'    Dim dlg As New SaveFileDialog
'dlg.Filter = "Bitmap|*.bmp"
'If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
'PictureBox1.Image.Save(dlg.FileName)
'End If