چاپ متن TextBox بدون هیچ ابزار اضافی

[DaneshSoft]

سلام دوستان.می خواهم متن داخل یک TextBox را بدون استفاده از Crystal Report و مانن این چاپ کنم.با استفاده از شیء PrintDocumnet اینکار را کردم ولی مشکلم این بود که وقتی متن بیش از یک صفحه می شد به صفحه بعدی نمی رفت.اگر شما جواب این سوال را می دانید لطفا کد آن را نیز بنویسید.با تشکر

[zarrin_306]

ابتدا یک به textbox و button نیاز داریم
کد زیر در بالای فرم نوشته شود
import system.drawing.printing
کدزیر در button نوشته شود
try
dimprintdoc as new printdocument
addhandler printdoc .printpage,addressof me.printtext
printdoc.print
catch ex as exception
messagebox.show("sorry",ex.tostring
end try
به بالای فرم رفته زیرwindows form
سابروتین زیر را وارد کنید
private sub privatetext(byval sender as object,byval ev as printpageeventargs
ev.graphics.drawstring(textbox1.text,newfont("arial",11,fontstyle.regular),brushes.black,120,120
ev.hasmorepage=false