السلام عليكم
أرجوا إخواني الكرام أن تمنحوني الكود الذي يخفي ويتجاوز هده النافدة
أريد عند الضغط على الزر , تتم الطباعة أوتوماتيكيا
مشكورين جدا
هذا الكود جربته لكنه لم يخفي الصندوق
ActiveReport1.Printer.DisplayProgressDialog = False
اهلا اخي الكريم ، إستخدم الامر التالي :
كود :
activeReport1.PrintReport False
هذا الكود يخفي الصندوق , جعله الله لك في ميزان حسناتك
لكن كيف يمكنني لطباعة أوتوماتيكيا
فأنا أعمل في مشروع للتذاكر
ويجب على التذاكر أن تخرج بضغطة زر
أرجوا المساعدة أخي على العلم أن كود الطباعة شغال الحمد لله
فقط أريد الطباعة أوتوماتيكيا
حاولت بهذه الأكواد دون جدوى
Active.Run True
Active.Printer.FromPage = 1
Active.Printer.ToPage = 1
Active.MaxPages = 1
أهلا أخي الكريم , لم أفهم ماتقصده , ياريت توضحيح أكثر .
شكرا أخي على متابعتك
أريد عندما أضغط على زر الكوموند الذي أنا واضعه في الفورم
تطبع التذكرة في الطابعة أوتوماتيكيا
دون المرور بواجهة ActriveReport
اهلا اخي الكريم ، ارفق مثال مبسط يعرض المشكله لكي اعدل عليه .
تفضل أخي
أريد عند الضغط على الزر الكوموند تتم الطباعة دون ظهور شاشة Active Report والضغط على Print
أهلا أخي الكريم , بعد الإطلاع على المثال , فالحل كما ذكرت لك سابقاً وعلى حد علمي لايوجد غير هذه الطريقة بالنسبة للأكتف ريبورت , غير كود الزر في مثالك إلى هذا :
كود :
Private Sub Command1_Click()
ActiveReport1.Label1.Caption = "salamo 3alaykom"
ActiveReport1.PrintReport False
End Sub
- هذا الأمر أخي الكريم , بمجرد الضغط على الزر يقوم بإرسال التقرير إلى الطابعة الإفتراضية مباشرة بدون عرض التقرير أو أي تدخل منك .
معك حق أخي
حقا هذا ما أبحث عنه
الكود فعال
أشكرك كثير أخي مساعدتك
جزاك الله كل خير
مشكوووور
إقتباس :معك حق أخي
حقا هذا ما أبحث عنه
الكود فعال
طبعآ لازم يكون فعال
هو مين اللى جاوب على سؤالك ؟
الأستاذ أحمد منصور ، وللآ أى عضو فى المنتدى