اسلام سيد قام بنشر مارس 7, 2014 قام بنشر مارس 7, 2014 السلام عليكم المطلوب كود طباعه عند الفلتره على عميل معين والضغط على زر الطباعه يطبع من الخليهa1 حتى d4 وماتحته من الجدول اقصد عمود الموديل والعدد والسعر والاجمالى الخاص بالعميل المفلتر وجزاكم الله خيرا وهذا شيت لتوضيح المطلوب اوردارات العملاء.rar
أبو حنــــين قام بنشر مارس 7, 2014 قام بنشر مارس 7, 2014 اخي اسلام استعمل هذا الكود Sub iPrint() With ActiveSheet .PageSetup.PrintArea = "D1:A4" .PrintPreview If MsgBox("هل تريد طباعة البيانات التي قمت بمعاينتها قبل قليل ", vbInformation + vbMsgBoxRight + vbYesNo, "طباعة") = vbNo Then Exit Sub .PrintOut End With End Sub
اسلام سيد قام بنشر مارس 7, 2014 الكاتب قام بنشر مارس 7, 2014 السلام عليكم جزاكم الله خيرا استاذى الفاضل / ابو حنين لكن ما اقصده هو طباعه الجزء العلوى بالاضافه الى ماتحته من بيانات المطلوب كود طباعه عند الفلتره على عميل معين والضغط على زر الطباعه يطبع من الخليهa1 حتى d4 وماتحته من الجدول اقصد عمود الموديل والعدد والسعر والاجمالى الخاص بالعميل المفلتر
حمادة عمر قام بنشر مارس 7, 2014 قام بنشر مارس 7, 2014 السلام عليكم الاخ الحبيب / إسلام الشيمي بعد اذن استاذي الحبيب / أبو حنين ... جزاه الله خيرا وعلي حسب فهمي لطلبك استخدم الكود التالي Sub SAMA_PRINT() LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row On Error Resume Next Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D" & LR) Sheets("بيانات العملاء").PrintPreview End Sub تقبلوا خالص تحياتي اوردارات العملاء.rar 1
اسلام سيد قام بنشر مارس 8, 2014 الكاتب قام بنشر مارس 8, 2014 السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا استاذى الفاضل / حماده عمر ( ابا سما ) حضرتك اقتربت من المطلوب إلا قيد انمله اريد اعمده محدد فى الجدول فقط وهى عمود ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر يطبع من الخليهa1 حتى d4 وماتحته من الجدول ( عمود الموديل والعدد والسعر والاجمالى فقط الخاص بالعميل المفلتر ) ولو امكن يكون كود يطلب المعاينه قبل الطباعه كما هو مرسل منكم وكود اخر طباعه مباشرة دون المرور على المعاينه اختصار للوقت فقط جزاكم الله خيرا ونعنا الله من علمكم
حمادة عمر قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 الاخ الكريم الحبيب / اسلام الشيمي بارك الله فيك عذرا فلم افهم المطلوب .. حيث ما ذكرته هو مايتم بالضبط في المرفق الأخير حيث انه لا يتم طباعه الا الاعمدة ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر وكذلك النطاق المطلوب ... فاين المشكلة برجاء مزيد من التوضيح او ارسال صوره لما تريده ان يظهر في الطباعه بعد الفلتره كمثال وللطباعه مباشرة في الكود السابق استبدل السطر التالي الموجود في الكود السابق Sheets("بيانات العملاء").PrintPreview بالسطر التالي Sheets("بيانات العملاء").PrintOut تقبل خالص تحياتي 1
اسلام سيد قام بنشر مارس 8, 2014 الكاتب قام بنشر مارس 8, 2014 (معدل) عذرا فلم افهم المطلوب .. حيث ما ذكرته هو مايتم بالضبط في المرفق الأخير حيث انه لا يتم طباعه الا الاعمدة ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر وكذلك النطاق المطلوب ... فاين المشكلة عذرا استاذى الفاضل / حماده عمر ، على عدم التوضيح الجيد فسامحنى على ذالك ، بارك الله فيك انا عند قيامى بالضغط على زر الطباعه المرفق فى الشيت السابق لكم يعطينى معاينه لصفحتين (1+2) الموديل / العدد / السعر / الاجمالى وهذا يظهر فى الصفحه رقم 1 (وهو المطلوب طباعته فقط / بالاضافة الى ما فوق الجدول) المكتب / العميل / رقم الطلب / التاريخ وهذا يظهر ايضا فى الصفحه رقم 2 وغير مطلوب طباعته جزاكم الله خيرا تم تعديل مارس 8, 2014 بواسطه إسلام الشيمي
حمادة عمر قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 شاهد المرفق بعد التعديل اوردارات العملاء11.rar 3
هاني مصطفي قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 راائع استاذنا القدير / حمادة عمر وكود راائع من الكبير / ابو حنين جزاكم الله خيرا
اسلام سيد قام بنشر مارس 8, 2014 الكاتب قام بنشر مارس 8, 2014 شاهد المرفق بعد التعديل اوردارات العملاء11.rar جزاكم الله خيرا هذا هو المطلوب
حمادة عمر قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 السلام عليكم الاخ الكريم / هاني مصطفي الاخ الحبيب / إسلام الشيمي تقبلوا خالص تحياتي 1
اسلام سيد قام بنشر مارس 8, 2014 الكاتب قام بنشر مارس 8, 2014 ليتنا ناخذ من وقتك ما يسمح لتعلمنا وتشرح لنا الكود والهدف من ذالك هو ان نقوم بتطبيقه على اى شيت به جدول وجزاكم الله خيرا
أبو محمد عباس قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابو سما حفظكم الباري عز وجل وغفر لكم اعمال في قمة الابداع والروعة جعله الله في ميزان حسناتكم تقبل دعواتي بالموفقية والنجاح 1
حمادة عمر قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك اليك شرح الكود ... ارجو من الله ان يفيدك ونسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله ) واي استفسار معك دائما باذن الله Sub SAMA_PRINT() 'السطر التالي نحدد فيه آخر صف به بيانات في العمود d لتحديد البيانات المطلوب طباعتها فيما بعد LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row 'السطر التالي نستخدمه لاجبار الكود علي الاكمال في حاله وجود خطأ On Error Resume Next 'السطر التالي لاختيار الاعمدة الغير مرغوب في ظهورها في الطباعةوهي هنا العمودين EوH Columns("E:H").Select 'السطر التالي لتنفيذ عملية الاخفاء للاعمدة المختارة والمحددة في السطر السابق Selection.EntireColumn.Hidden = True 'السطر التالي نقوم بمسح منطقة الطباعة المحددة تلقائيا من الاكسيل لتحديدها بنفسنا فيما بعد Sheets("بيانات العملاء").PageSetup.PrintArea.Clear 'السطر التالي نحدد فيه نطاق البيانات المراد ادخالها في نطاق الطباعة المطلوب ' في الشيت المحدد ( بينات العملاء) وهي هنا من الخلية a1 وحتي آخر صف به بيانات LR Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D1000" & LR) 'السطر التالي نعطي امر لطباعة النطاق المحدد مباشرة في السطر السابق 'ويمكننا تغيير الطباعة المباشرة الي المعاينة بتغيير PrintOut الي PrintPreview 'لتكون المعاينة اولاً Sheets("بيانات العملاء").PrintOut 'السطر التالي نختار الاعمدة التي تم اخفاؤها في بداية الكود Columns("E:H").Select 'السطر التالي يقوم بعملية عكسية لاظهار الاعمدة التي تم اخفاؤها قبل ذلك 'لاعادة الوضع الي ما هو عليه ( بطبيعته ) Selection.EntireColumn.Hidden = False 'السطر التالي لاختيار الخلية A1 بعد تنفيذ الكود تماما Range("A1").Select 'السطر التالي لانهاء الكود والمهمة بالكامل End Sub تقبل خالص تحياتي 3
حمادة عمر قام بنشر مارس 8, 2014 قام بنشر مارس 8, 2014 السلام عليكم الاخ الحبيب / أبو محمد عباس بارك الله فيك دائما مرورك يعطر اي موضوع تشارك فيه ولو بكلمه ودائما انتظر تعليقاتك الراائعة الخالصه التي تصل الي القلب مباشرة ولكن عتابي علي شخصكم الكريم هو غيابكم الفترة الماضية او حضورك البسيط لعله خيرا ان شاء الله تقبل خالص تحيات اخيك الذي يحبك في الله حقا 1
أبو محمد عباس قام بنشر مارس 9, 2014 قام بنشر مارس 9, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ابو سما بارك الله فيك وجزاك الله خيرا انا اعيش حياتي في منتدانا الغالي لكن هذه الايام يوجد ضغط العمل في الكنترول فتراني افتح الانترنت وافتح صفحة منتدانا الرائع ولكن ابدا بعملي وبين الفترة والاخرى اتصفح على السريع المنتدى وارجع مرة اخرى للعمل واحيانا ابقى لساعات اعمل في البرنامج فلا استطيع ان اكتب شيء او اجابة او رد . عتبكم على راسي من فوق فانتم والاساتذة الكرام لكم الفضل الكبير بعد الله سبحانه وتعالى لما انا فيه الان انا دخلت المنتدى ولم اعرف من الاكسل الا قليل والحمد لله الان اكثر علما في الاكسل من السابق وفقكم الله وجزاكم الله خيرا تقبلوا فائق احترامي وتقديري 3
حمادة باشا قام بنشر مارس 9, 2014 قام بنشر مارس 9, 2014 الأستاذ الكبير/ حمادة عمر السلام عليكم ورحمة الله وبركاته كود جميل + شرح مفصل = مرجع يستفيد منه الجميع جزكم الله خيرا - وزادكم من فضله علما تقبل تحياتي 1
اسلام سيد قام بنشر مارس 9, 2014 الكاتب قام بنشر مارس 9, 2014 السلام عليكم الاخ الحبيب / إسلام الشيمي بارك الله فيك اليك شرح الكود ... ارجو من الله ان يفيدك ونسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله ) واي استفسار معك دائما باذن الله Sub SAMA_PRINT() 'السطر التالي نحدد فيه آخر صف به بيانات في العمود d لتحديد البيانات المطلوب طباعتها فيما بعد LR = Sheets("بيانات العملاء").[D20000].End(xlUp).Row 'السطر التالي نستخدمه لاجبار الكود علي الاكمال في حاله وجود خطأ On Error Resume Next 'السطر التالي لاختيار الاعمدة الغير مرغوب في ظهورها في الطباعةوهي هنا العمودين EوH Columns("E:H").Select 'السطر التالي لتنفيذ عملية الاخفاء للاعمدة المختارة والمحددة في السطر السابق Selection.EntireColumn.Hidden = True 'السطر التالي نقوم بمسح منطقة الطباعة المحددة تلقائيا من الاكسيل لتحديدها بنفسنا فيما بعد Sheets("بيانات العملاء").PageSetup.PrintArea.Clear 'السطر التالي نحدد فيه نطاق البيانات المراد ادخالها في نطاق الطباعة المطلوب ' في الشيت المحدد ( بينات العملاء) وهي هنا من الخلية a1 وحتي آخر صف به بيانات LR Sheets("بيانات العملاء").PageSetup.PrintArea = Range("A1:D1000" & LR) 'السطر التالي نعطي امر لطباعة النطاق المحدد مباشرة في السطر السابق 'ويمكننا تغيير الطباعة المباشرة الي المعاينة بتغيير PrintOut الي PrintPreview 'لتكون المعاينة اولاً Sheets("بيانات العملاء").PrintOut 'السطر التالي نختار الاعمدة التي تم اخفاؤها في بداية الكود Columns("E:H").Select 'السطر التالي يقوم بعملية عكسية لاظهار الاعمدة التي تم اخفاؤها قبل ذلك 'لاعادة الوضع الي ما هو عليه ( بطبيعته ) Selection.EntireColumn.Hidden = False 'السطر التالي لاختيار الخلية A1 بعد تنفيذ الكود تماما Range("A1").Select 'السطر التالي لانهاء الكود والمهمة بالكامل End Sub تقبل خالص تحياتي جزاكم الله خيرا.........ورحمة الله على والدك (أسكنه الله الجنان) لنا وقفات مع هذا الكود الرااااااااااائع اخى الحبيب (ابا سما) لكن بعد ما اجتهد فيه على قدر استطاعتى. جزاكم الله خيرا وبارك الله فيكم معذرا لم اغلق الموضوع ربما يجد جديد فنستفاد جميع . 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.