لدي هذا الاجراء به مشكلة أرجو من الاخوة المساعدة

لدي هذا الاجراء به خطأ أرجو من الاخوة المساعدة

 Public Sub printout(ByRef e As System.Drawing.Printing.PrintPageEventArgs)

'Dim e As System.Drawing.Printing.PrintPageEventArgs

Dim f As New Font("Times New Roman", 50, FontStyle.Underline)

Dim b As New SolidBrush(Color.Black)

Dim textbox11.text as string

e.Graphics.DrawString(TextBox11.Text, f, b, 16, 32)

e.Graphics.DrawString(TextBox22.Text, f, b, 16, 150)

e.Graphics.DrawString(TextBox33.Text, f, b, 16, 250)

e.Graphics.DrawString(TextBox44.Text, f, b, 16, 350)

e.Graphics.DrawString(TextBox55.Text, f, b, 16, 350)

e.Graphics.DrawString(TextBox66.Text, f, b, 16, 350)

e.Graphics.DrawString(TextBox77.Text, f, b, 16, 350)

e.Graphics.DrawString(textbox88.Text, f, b, 16, 350)

عندما أقوم باستدعائه داخل فورم آخر لا يتعرف البرنامج على هذا الإجراء رغم أنه عام فما المشكلة ؟