ابوفرح قام بنشر ديسمبر 25, 2017 قام بنشر ديسمبر 25, 2017 (معدل) السلام عليكم ورحمة الله وبركاته أريد زر ماكرو لطباعة عدد النسخ لورقة واحدة يعني يتم تنفيد أمر عدد الأوراق وأمر بعده لعدد النسخ وجزاكم الله كل خير تم تعديل ديسمبر 25, 2017 بواسطه أبو الوفاء
بن علية حاجي قام بنشر ديسمبر 25, 2017 قام بنشر ديسمبر 25, 2017 السلام عليكم هل تقصد بـ "الأوراق" الصفحات أم الشيتات؟ يُستحسن إرفاق ملف للعمل عليه... بن علية حاجي
ابوفرح قام بنشر ديسمبر 25, 2017 الكاتب قام بنشر ديسمبر 25, 2017 في 25/12/2017 at 11:02, بن علية حاجي said: السلام عليكم هل تقصد بـ "الأوراق" الصفحات أم الشيتات؟ يُستحسن إرفاق ملف للعمل عليه... بن علية حاجي Expand المرجو العمل على أحد الملفات المرفقة التي تناسبك في إيجاد الحل إذا كان ممكنا تحديد الطابعة ومن تم تحديد عدد النسخ لكل شيت اختيار الطابعة.rar
بن علية حاجي قام بنشر ديسمبر 25, 2017 قام بنشر ديسمبر 25, 2017 السلام عليكم ورحمة الله قمت بالعمل على الملفين معا ودمجهما في ملف واحد (أقصد أكوادهما)... بالنسبة للطابعة الأولى والثانية يمكن اختيارهما قبل الضغط على زر الطباعة، أما الطابعة الثالثة (طابعة أخرى) وهي خاصة بالطابعات الموجودة في الجهاز فلا تظهر قائمة هذه الطابعات إلا بعد الضغط على زر الطباعة وتتم الطباعة مباشرة بعد اختيار هذه الطابعة من القائمة... لم أستطع القيام بأكثر من هذا لأني حاولت وضع قائمة هذه الطابعات في كائن ComboBox لكن دون جدوى (لقلة حيلتي ومعرفتي بالأكواد وبرمجة VBA)... بن علية حاجي اختيار الطابعة وعدد النسخ.rar
ابوفرح قام بنشر ديسمبر 25, 2017 الكاتب قام بنشر ديسمبر 25, 2017 في 25/12/2017 at 14:48, بن علية حاجي said: السلام عليكم ورحمة الله قمت بالعمل على الملفين معا ودمجهما في ملف واحد (أقصد أكوادهما)... بالنسبة للطابعة الأولى والثانية يمكن اختيارهما قبل الضغط على زر الطباعة، أما الطابعة الثالثة (طابعة أخرى) وهي خاصة بالطابعات الموجودة في الجهاز فلا تظهر قائمة هذه الطابعات إلا بعد الضغط على زر الطباعة وتتم الطباعة مباشرة بعد اختيار هذه الطابعة من القائمة... لم أستطع القيام بأكثر من هذا لأني حاولت وضع قائمة هذه الطابعات في كائن ComboBox لكن دون جدوى (لقلة حيلتي ومعرفتي بالأكواد وبرمجة VBA)... بن علية حاجي اختيار الطابعة وعدد النسخ.rarFetching info... Expand شكرا لك وجزاك الله خيرا أستاذي العزير بن علية الحاجي الكود الثاني يعمل جيدا أما الأول فلا يعمل والصورة توضح ذلك
بن علية حاجي قام بنشر ديسمبر 25, 2017 قام بنشر ديسمبر 25, 2017 السلام عليكم ورحمة الله ماذا تعني بـ "الكود الثاني يعمل جيدا أما الأول فلا يعمل والصورة توضح ذلك"؟ بل هو كود واحد، ربما تعني الاختيار الأول لـ "الطابعة الأولى" لا يعمل (السطر الملون بالأصفر في الكود)، هذا الخلل يظهر عندما تكون الطابعة المختارة إما غير موجودة (لم يتم تنصيبها) في الجهاز الذي تعمل فيه وإما اسم الطابعة الذي كتبته في الكود فيه خطأ... وليس لي تفسير آخر... بن علية حاجي
بن علية حاجي قام بنشر ديسمبر 27, 2017 قام بنشر ديسمبر 27, 2017 السلام عليكم ورحمة الله بعد مراجعة النت اتضح الأمر أكثر عند كتابة اسم الطابعة في الجهاز يجب أن يكون بالشكل التالي (والتطبيق على الطابعة Expert PDF في جهازي): بالفرنسية : Application.ActivePrinter = "Expert PDF sur VSP1:" بالإنجليزية : Application.ActivePrinter = "Expert PDF on VSP1:" تجد كل هذا في الملف المرفق (والتسمية -الخط- VSP1 راجعة للجهاز) (تم التعديل في الكود في الجزئية الخاصة بالطابعة الأولى -الاختيار الأول- راجع الكود في ذلك)... بن علية حاجي اختيار الطابعة وعدد النسخ.rar
ابوفرح قام بنشر ديسمبر 31, 2017 الكاتب قام بنشر ديسمبر 31, 2017 في 27/12/2017 at 14:46, بن علية حاجي said: السلام عليكم ورحمة الله بعد مراجعة النت اتضح الأمر أكثر عند كتابة اسم الطابعة في الجهاز يجب أن يكون بالشكل التالي (والتطبيق على الطابعة Expert PDF في جهازي): بالفرنسية : Application.ActivePrinter = "Expert PDF sur VSP1:" بالإنجليزية : Application.ActivePrinter = "Expert PDF on VSP1:" تجد كل هذا في الملف المرفق (والتسمية -الخط- VSP1 راجعة للجهاز) (تم التعديل في الكود في الجزئية الخاصة بالطابعة الأولى -الاختيار الأول- راجع الكود في ذلك)... بن علية حاجي اختيار الطابعة وعدد النسخ.rarFetching info... Expand أشكرك جزيل الشكر على كل المجهودات أستادي العزيز للتوضيح أكثر أستادي الغالي يجب وضع هذا الكود وتشغيله لمعرفة كود الطابعة مع مراعات أن تكون الطابعة إفتراضيا Sub nom_imprimante() MsgBox (Application.ActivePrinter) End Sub
بن علية حاجي قام بنشر ديسمبر 31, 2017 قام بنشر ديسمبر 31, 2017 السلام عليكم ورحمة الله ليس من الضروري أن تكون الطابعة افتراضية، يمكن اختيار أي طابعة تريدها من قائمة الطابعات الموجودة في "مربع حوار الطابعات" بعد فتحه... ثم تنفيذ هذا الماكرو... بن علية حاجي
ابوفرح قام بنشر ديسمبر 31, 2017 الكاتب قام بنشر ديسمبر 31, 2017 في 31/12/2017 at 18:07, بن علية حاجي said: السلام عليكم ورحمة الله ليس من الضروري أن تكون الطابعة افتراضية، يمكن اختيار أي طابعة تريدها من قائمة الطابعات الموجودة في "مربع حوار الطابعات" بعد فتحه... ثم تنفيذ هذا الماكرو... بن علية حاجي Expand نعم هذا صحيح وجزاك الله خيرا
ابوفرح قام بنشر يناير 14, 2018 الكاتب قام بنشر يناير 14, 2018 في 31/12/2017 at 18:07, بن علية حاجي said: السلام عليكم ورحمة الله ليس من الضروري أن تكون الطابعة افتراضية، يمكن اختيار أي طابعة تريدها من قائمة الطابعات الموجودة في "مربع حوار الطابعات" بعد فتحه... ثم تنفيذ هذا الماكرو... بن علية حاجي Expand السلام عليكم أستاذي العزيز كيف حالك ؟ أرجو منك مساعدتي في كود الطباعة لكن هذه المرة على اليوزر فروم بنفس الطريقة أرجوا منك تنفيد الأمر على الملف المرفق وجزاك الله خيرا اختيار الطابعة وعدد النسخ.rar
بن علية حاجي قام بنشر يناير 14, 2018 قام بنشر يناير 14, 2018 السلام عليكم ماذا تريد بكل TextBoxes الموجودة في UserForm2؟؟ لم أفهم ماذا تريد بالضبط... بن علية حاجي
ابوفرح قام بنشر يناير 14, 2018 الكاتب قام بنشر يناير 14, 2018 في 14/1/2018 at 19:52, بن علية حاجي said: السلام عليكم ماذا تريد بكل TextBoxes الموجودة في UserForm2؟؟ لم أفهم ماذا تريد بالضبط... بن علية حاجي Expand أريد طباعة Frame1 فقط الموجود في UserForm2 وإختيار الطابعة و عدد النسخ
بن علية حاجي قام بنشر يناير 14, 2018 قام بنشر يناير 14, 2018 السلام عليكم بإذن الله أرى ذلك غدا... بن علية حاجي
ابوفرح قام بنشر يناير 14, 2018 الكاتب قام بنشر يناير 14, 2018 في 14/1/2018 at 22:33, بن علية حاجي said: السلام عليكم بإذن الله أرى ذلك غدا... بن علية حاجي Expand جزاك الله خير الجزاء أستاذي العزيز
بن علية حاجي قام بنشر يناير 16, 2018 قام بنشر يناير 16, 2018 السلام عليكم ورحمة الله جرب التعديلات التي تمت على الملف في المرفقات لعلها تفي بالغرض... بن علية حاجي اختيار الطابعة وعدد النسخ1.rar 1
ابوفرح قام بنشر يناير 16, 2018 الكاتب قام بنشر يناير 16, 2018 وعليكم السلام أستاذي العزيز أضن أن الكل تمام جزاك الله خيرا غدا ان شاء الله أجرب الملف في العمل أشكرك جزيل الشكر على كل المجهودات
ابوفرح قام بنشر يناير 17, 2018 الكاتب قام بنشر يناير 17, 2018 في 16/1/2018 at 18:38, بن علية حاجي said: السلام عليكم ورحمة الله جرب التعديلات التي تمت على الملف في المرفقات لعلها تفي بالغرض... بن علية حاجي اختيار الطابعة وعدد النسخ1.rarFetching info... Expand السلام عليكم الملف لا يعمل أستاذي العزيز الطابعة الافتراضية هي من تستجيب في كل الإختيارات
بن علية حاجي قام بنشر يناير 17, 2018 قام بنشر يناير 17, 2018 السلام عليكم ورحمة الله لقد تنبهت للملف بعد أن أرسلته لك... وبعد البحث في النت اتضح أن طباعة Userforms و Frames يتعدى كل الطابعات التي يتم اختيارها ويقوم بالطباعة على الطابعة الافتراضية للنظام ولم أجد بدا من ذلك ذلك بحثي الطويل في النت... معذرة لذلك... بن علية حاجي
ابوفرح قام بنشر يناير 17, 2018 الكاتب قام بنشر يناير 17, 2018 (معدل) في 17/1/2018 at 20:17, بن علية حاجي said: السلام عليكم ورحمة الله لقد تنبهت للملف بعد أن أرسلته لك... وبعد البحث في النت اتضح أن طباعة Userforms و Frames يتعدى كل الطابعات التي يتم اختيارها ويقوم بالطباعة على الطابعة الافتراضية للنظام ولم أجد بدا من ذلك ذلك بحثي الطويل في النت... معذرة لذلك... بن علية حاجي Expand السلام عليكم ورحمة الله لقد وجدت هذا الملف أستاذي العزيز ربما يفيدك في التعديل طباعة اليوزر فورم.rarFetching info... تم تعديل يناير 17, 2018 بواسطه أبو الوفاء
بن علية حاجي قام بنشر يناير 20, 2018 قام بنشر يناير 20, 2018 السلام عليكم ورحمة الله الحمد لله تم تطويع الكود الذي أرسلته لي على ملفك مع بعض الإضافات... أرجو أن يفي الغرض المطلوب... بن علية حاجي اختيار الطابعة وعدد النسخ2.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.