پرینت گرفتن در ویژوال بیسیک

آیا در ویژوال بیسیک می توان از روی فرم (متنی که بر روی فرم نوشته شده است)پرینت گرفت.
مثلا من در یک - تکست باکس - متنی را نوشته ام و می خواهم اطلاعات داخل آن را پرینت بگیرم.
مثلا دکمه ای بر روی فرم بگذارم و با فشار آن دکمه پرینت آغاز شود.
اگر می شود کد آن و طریقه درست کردن آنرا برایم بنویسید .
از تمامی شما متشکرم.
:o :roll: :cry:

هر وقت آن کلید را زدی:
آن متن را باید با دستور
Printer.print textbox.textr
به پرینتر بفرستید و بادستور
Printer.fontname و Printer.fontsize و غیره آن را فرمت بندی کنید
و سپس در آخر برای انجام چاپ دستور
Printer.enddoc را صادر نمایید
امکانات بسیار دیگری نیز دارد. :|

ba tashakor

agar momken ast mavared digar :| ra niz benevisid

اگر بخوایم که در یک جای مشخص مثلا وسط برگمون چاپ بشه باید گه کار کنیم
اگر میشه اینم لطف کنید توضیح بدید

خصوصیات CurrentX و CurrentY شیء Printer موقعیت آن برای چاپ را برمیگرداند.:چشمک:

تو رو خدا ی سورس بزار من خنگم بفهمم کل اینترنت رو گشتم

نقل قول:

---

نوشته شده توسط 850725115

تو رو خدا ی سورس بزار من خنگم بفهمم کل اینترنت رو گشتم

---

Private Sub Command1_Click()

    Dim s As String

    Dim f As New StdFont

    s = Text1.Text

    f.Name = "Tahoma"

    f.Size = 14

    f.Charset = 178       'Arabic character set: 178

    With Printer

        Set .Font = f

        .CurrentX = (.Width - .TextWidth(s)) / 2

        .CurrentY = 0

        Printer.Print s

        .EndDoc

    End With

End Sub

ممنونم دوست عزیز خیلی زحمت کشیدید میتونم شمارتون رو داشته باشم
:قلب:

از خجالتتون در میام حسابی اگه محبت کنید ی راه ارتباطی بدین مثلا تلفنتون

شماره بنده 09153221621

از خجالتتون در میام حسابی اگه محبت کنید ی راه ارتباطی بدین