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