منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة (/showthread.php?tid=12898)

أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - sniperjawadino - 06-08-15

السلام عليكم

أرجوا إخواني الكرام أن تمنحوني الكود الذي يخفي ويتجاوز هده النافدة
أريد عند الضغط على الزر , تتم الطباعة أوتوماتيكيا

مشكورين جدا





هذا الكود جربته لكنه لم يخفي الصندوق

ActiveReport1.Printer.DisplayProgressDialog = False

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - Ahmed_Mansoor - 06-08-15

اهلا اخي الكريم ، إستخدم الامر التالي :

كود :
activeReport1.PrintReport False


RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - sniperjawadino - 06-08-15

هذا الكود يخفي الصندوق , جعله الله لك في ميزان حسناتك
لكن كيف يمكنني لطباعة أوتوماتيكيا
فأنا أعمل في مشروع للتذاكر
ويجب على التذاكر أن تخرج بضغطة زر


أرجوا المساعدة أخي على العلم أن كود الطباعة شغال الحمد لله
فقط أريد الطباعة أوتوماتيكيا


حاولت بهذه الأكواد دون جدوى
Active.Run True
Active.Printer.FromPage = 1
Active.Printer.ToPage = 1
Active.MaxPages = 1

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - Ahmed_Mansoor - 07-08-15

أهلا أخي الكريم , لم أفهم ماتقصده , ياريت توضحيح أكثر .

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - sniperjawadino - 07-08-15

شكرا أخي على متابعتك

أريد عندما أضغط على زر الكوموند الذي أنا واضعه في الفورم
تطبع التذكرة في الطابعة أوتوماتيكيا
دون المرور بواجهة ActriveReport

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - Ahmed_Mansoor - 07-08-15

اهلا اخي الكريم ، ارفق مثال مبسط يعرض المشكله لكي اعدل عليه .

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - sniperjawadino - 07-08-15

تفضل أخي
أريد عند الضغط على الزر الكوموند تتم الطباعة دون ظهور شاشة Active Report  والضغط على Print

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - Ahmed_Mansoor - 07-08-15

أهلا أخي الكريم , بعد الإطلاع على المثال , فالحل كما ذكرت لك سابقاً وعلى حد علمي لايوجد غير هذه الطريقة بالنسبة للأكتف ريبورت , غير كود الزر في مثالك إلى هذا :

كود :
Private Sub Command1_Click()
ActiveReport1.Label1.Caption = "salamo 3alaykom"

ActiveReport1.PrintReport False

End Sub

- هذا الأمر أخي الكريم , بمجرد الضغط على الزر يقوم بإرسال التقرير إلى الطابعة الإفتراضية مباشرة بدون عرض التقرير أو أي تدخل منك .

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - sniperjawadino - 07-08-15

معك حق أخي
حقا هذا ما أبحث عنه
الكود فعال

أشكرك كثير أخي مساعدتك
جزاك الله كل خير

مشكوووور

RE: أريــــد الطــبــــــاعة أوتومــاتيكيـــا دون المرور بصنـــدوق الطباعة - اسلام الكبابى - 06-10-16

إقتباس :معك حق أخي
حقا هذا ما أبحث عنه
الكود فعال


طبعآ لازم يكون فعال

هو مين اللى جاوب على سؤالك ؟

الأستاذ أحمد منصور ، وللآ   أى عضو  فى المنتدى