چاپ اطلاعات [بایگانی]

behzad_lover

چهارشنبه 27 آذر 1387, 19:55 عصر

سلام.
دوستان من یک فرم دارم و در اون تعدادی textbox قرار داره. من می خوام که امکان چاپ یک فیش رو به این فرم بدم. یعنی وقتی روی Command کلیک می کنی اطلاعاتی که در تکست باکس است به ترتیب دیگری چاپ بشه. مثل این نمونه

کافی نت پردیس "LOGO"
----------------------------------
مدت کارکد : text2.text
سیستم: text1.text
نوع مشتری : combo1.text
_________________________
قیمت کل: text3.text
قیمت قابل پرداخت: text4.text

درضمن تو سایت سرچ کردم ولی به جایی نرسید.
لطفا کمکم کنید خیلی مهمه

behzad_lover

چهارشنبه 27 آذر 1387, 21:32 عصر

درضمن من می خوام که این اطلاعات روی کاغذ B5 چاپ بشه.
لطفا سریع تر کمکم کنید

mpmsoft

پنج شنبه 28 آذر 1387, 00:02 صبح

شما می تونی هم فرمتو چاپ کنی و یا گزارش با کریستال ایجاد کنی و مقادیر رو به کریستال پاس بدی

Me.PrintForm

behzad_lover

پنج شنبه 28 آذر 1387, 19:06 عصر

دوست عزیز من وقتی از فرم پرینت می گیرم در گوشه ی کاغذ a4 چاپ می کنه و وقتی که کاغذ a5 باشه روی کاغذ چاپ نمی کنه.

3dboy1

پنج شنبه 28 آذر 1387, 22:34 عصر

با سلام

دو راه به نظر من میرسه
یکی فرستادن این مقادیر به فرم داخل ورد
دوم در یک فرم دیگه این مقادیر رو در جایی که میخوای قرار بدی و سپس پرینت کنی
اگر وقت شد نمونهسورس برات میزارم
سرچ کنی داخل سایت هست

rouzbeh_ziafati

پنج شنبه 24 بهمن 1387, 22:38 عصر

سلام
من می خوام کاری کنم که اطلاعات روی فرم وقتی که چاپ میشه دقیقا در وسط صفحه چاپ بشه ، چی کار باید بکنم ؟

mormorbaba

شنبه 26 بهمن 1387, 00:52 صبح

شما يا بايد از نرم افزار هاي مربوطه مثل Crystal Reports استفاده كنيد يا بطور مستقيم Textرا با استفاده از شي Printer به پرينتر بفرستيد.

مثل :

Printer.PaperSize = crPaperA4
Printer.Orientation = 1
سطر CurrentY = y
ستون CurrentX= X

Printer.Print Text1.text
Printer.EndDoc

شما بايد مختصات را بر حسب كاغذ مورد نظر پيدا كنيد
براي پيدا كردن وسط بايد
Printer.Width/2

موفق و سربلند باشيد.

rouzbeh_ziafati

شنبه 26 بهمن 1387, 21:02 عصر

شما يا بايد از نرم افزار هاي مربوطه مثل Crystal Reports استفاده كنيد يا بطور مستقيم Textرا با استفاده از شي Printer به پرينتر بفرستيد.

مثل :

Printer.PaperSize = crPaperA4
Printer.Orientation = 1
سطر CurrentY = y
ستون CurrentX= X

Printer.Print Text1.text
Printer.EndDoc

شما بايد مختصات را بر حسب كاغذ مورد نظر پيدا كنيد
براي پيدا كردن وسط بايد
Printer.Width/2

موفق و سربلند باشيد.

مرسی
اما من یه سری کپشن دارم توی یک فرم با سایز کوچک که برای چاپ قبض هست . حالا میخوام اطلاعات این قبض (فرم) وسط a4 چاپ بشه . از دستور form1.print استفاده میکنم . چطور میشه اصلاعات یک فرم رو بر روی وسط کاغذ چاپ کرد؟

mormorbaba

شنبه 26 بهمن 1387, 21:19 عصر

شما نمي توانيد با form1.print مختصات را عوض كنيد براي اينكار بايد يا مشابه سازي كنيد يعني فرم را در هنگام پرينت به اندازه A4 بزرگ كنيد و بعد از بردن اطلاعات به مركز فرم از آن پرينت تهيه كنيد.

و يا اينكه كپشن ها را نيز به وسيله كد به پرينتر بفرستيد .

rouzbeh_ziafati

شنبه 26 بهمن 1387, 22:36 عصر

من مثلا 5 تا label دارم با مختصات های مختلف .
می خوام این 5 تا در مرکز صفحه a4 چاپ بشه . باید چطور کدشون رو بنویسم ؟
اگر کاغذ a5 بشه چی ؟

mormorbaba

یک شنبه 27 بهمن 1387, 17:58 عصر

با سلام
اميدوارم مشكلتون حل بشه

rouzbeh_ziafati

شنبه 03 اسفند 1387, 00:16 صبح

ممنون .
چطور میشه چاپگر رو کنترل کرد .
مثلا اگر کاغذ نداشت یا خطایی داد یا به هر دلیلی چاپ نکرد ، برنامه بفهمه و یک کار بخصوص رو انجام بده ؟

rouzbeh_ziafati

دوشنبه 31 فروردین 1388, 01:09 صبح

من می خوام تعداد دفعاتی که از گزارش پرینت میگیرم رو ثبت کنم .
چطور میشه این کار رو کرد ؟