چاپ متن تکس باکس

[shahabbasic]

میخوام بعد از اینکه کادر محاوره ای پرینت ویندوز رو صدا زدم متن text1 رو بفرستم به صف چاپ باید چکار کنم؟

[Veteran]

DataReport3.Sections(5).Controls("Label1").Caption = form1.text1.text")


به جای DataReport3
اسم صفحه چاپ خودتون رو بزارید
و به جای Label1 اسم لیبل خودتون رو
اسم Sections
شماره داخل پرانتزش رو هم متناسب با جایی که لیبل در اونجا قرار داره بزارید

[shahabbasic]

منظورتون از اون Label1 چیه؟ اصلا کارش چیه؟ من لیبلی ندارم !

[Veteran]

مگر نمیخوای با datareport چاپ کنی ؟

[shahabbasic]

:ناراحت: datareport چیه؟ من بعد از اینکه پنجره پرینت ویندوز رو صدا زدم باید از این دستور استفاده کنم یا قبلش؟

[Mr'Jamshidy]

برای چاپ میتونی از دستور Printer استفاده کنی

توابعش هم مثل PictureBox هست

[shahabbasic]

یه نمونه مثال میزنی؟

[سید حمید حق پرست]

سلام
کد :
Private Sub Command1_Click()
Printer.Print Text1.Text
Printer.EndDoc
End Sub

موفق باشی


یا علی (ع)

[shahabbasic]

اینکه یک پنجره باز میکنه که میخواد فایلی با پسوند xps رو ذخیره کنه

[سید حمید حق پرست]

رو سیستمتون چابگر نصب نیست به خاطر همین اون پنجره رو میاره .


یا علی (ع)

[shahabbasic]

پس لازم نیست پنجره پرینت رو باز کنم؟

[سید حمید حق پرست]

پس لازم نیست پنجره پرینت رو باز کنم؟
با کد باز کنی . درست متوجه نشدم
این کد تکست باکس رو چاپ میکنه برات و دستور آخری (Printer.EndDoc)برای ارسال شروع چاپ میباشد

موفق باشی


یا علی (ع)

[l4dl4d]

خوب دوست عزیز این یه چاپگر مجازی هست مثلا با نصب آفیس هم یه پسوند دیگه داره...
باید یه چاپگر فیزیکی رو وصل کنید تا ببینید

[abidana]

بالا خره چی شد ؟
پرینترت مجازی یا فیزیکی
من که امتحان کردم جواب گرفتم
نمی دونم چرا تو جواب نمی گیری؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟
دادا،دی

[vbhamed]

سلام

پرينترتون رو نصب كنيد و اون رو پرينتر پيش فرض قرار بديد (از Control Panel->Printer And Fax)
بعد اجراي VB و دستورات چاپي كه دوستان دادن