PDA

View Full Version : پرینت گرفتن در ویژوال بیسیک



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

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

دوشنبه 03 آذر 1382, 21:39 عصر
ba tashakor

agar momken ast mavared digar :| ra niz benevisid

neompg7898
یک شنبه 11 بهمن 1388, 22:16 عصر
اگر بخوایم که در یک جای مشخص مثلا وسط برگمون چاپ بشه باید گه کار کنیم
اگر میشه اینم لطف کنید توضیح بدید

M.T.P
دوشنبه 12 بهمن 1388, 10:14 صبح
خصوصیات CurrentX و CurrentY شیء Printer موقعیت آن برای چاپ را برمیگرداند.:چشمک:

850725115
دوشنبه 04 فروردین 1399, 00:06 صبح
تو رو خدا ی سورس بزار من خنگم بفهمم کل اینترنت رو گشتم

the king
دوشنبه 04 فروردین 1399, 13:11 عصر
تو رو خدا ی سورس بزار من خنگم بفهمم کل اینترنت رو گشتم


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

850725115
چهارشنبه 04 فروردین 1400, 22:12 عصر
ممنونم دوست عزیز خیلی زحمت کشیدید میتونم شمارتون رو داشته باشم
:قلب:

850725115
چهارشنبه 04 فروردین 1400, 22:44 عصر
از خجالتتون در میام حسابی اگه محبت کنید ی راه ارتباطی بدین مثلا تلفنتون

شماره بنده 09153221621

850725115
چهارشنبه 04 فروردین 1400, 22:48 عصر
از خجالتتون در میام حسابی اگه محبت کنید ی راه ارتباطی بدین