اذهب الي المحتوي
أوفيسنا

كود طباعه مرتبط بفلترت اسم العميل


الردود الموصى بها

السلام عليكم

 

المطلوب

 

كود طباعه عند الفلتره على عميل معين والضغط على زر الطباعه يطبع من الخليهa1 حتى d4  وماتحته من الجدول

 

اقصد عمود الموديل والعدد والسعر والاجمالى الخاص بالعميل المفلتر
      

    وجزاكم الله خيرا

 

وهذا شيت لتوضيح المطلوب

 

اوردارات العملاء.rar

رابط هذا التعليق
شارك

اخي اسلام

استعمل هذا الكود

Sub iPrint()

With ActiveSheet
.PageSetup.PrintArea = "D1:A4"
.PrintPreview
If MsgBox("هل تريد طباعة البيانات التي قمت بمعاينتها قبل قليل ", vbInformation + vbMsgBoxRight + vbYesNo, "طباعة") = vbNo Then Exit Sub
.PrintOut

End With

End Sub

رابط هذا التعليق
شارك

السلام عليكم

 

جزاكم الله خيرا استاذى الفاضل / ابو حنين

 

لكن ما اقصده هو طباعه الجزء العلوى بالاضافه الى ماتحته من بيانات

 

المطلوب

 

كود طباعه عند الفلتره على عميل معين والضغط على زر الطباعه يطبع من الخليهa1 حتى d4  وماتحته من الجدول

 

اقصد عمود الموديل والعدد والسعر والاجمالى الخاص بالعميل المفلتر

رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب /  إسلام الشيمي

بعد اذن استاذي الحبيب /  أبو حنين ... جزاه الله خيرا

وعلي حسب فهمي لطلبك

استخدم الكود التالي

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

 

جزاكم الله خيرا استاذى الفاضل / حماده عمر ( ابا سما )

حضرتك اقتربت من المطلوب إلا قيد انمله

 

 اريد اعمده محدد فى الجدول فقط  وهى عمود ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر

 

 يطبع من الخليهa1 حتى d4  وماتحته من الجدول ( عمود الموديل والعدد والسعر والاجمالى  فقط الخاص بالعميل المفلتر )

 

ولو امكن يكون كود يطلب المعاينه قبل الطباعه كما هو مرسل منكم

 

وكود اخر طباعه مباشرة دون المرور على المعاينه اختصار للوقت فقط

 

                                                                          جزاكم الله خيرا ونعنا الله من علمكم

رابط هذا التعليق
شارك

الاخ الكريم الحبيب / اسلام الشيمي
بارك الله فيك

عذرا فلم افهم المطلوب .. حيث ما ذكرته هو مايتم بالضبط في المرفق الأخير

حيث انه لا يتم طباعه الا الاعمدة ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر

وكذلك النطاق المطلوب ... فاين المشكلة

برجاء مزيد من التوضيح او ارسال صوره لما تريده ان يظهر في الطباعه بعد الفلتره كمثال

 

وللطباعه مباشرة في الكود السابق استبدل السطر التالي الموجود في الكود السابق

Sheets("بيانات العملاء").PrintPreview 

بالسطر التالي

Sheets("بيانات العملاء").PrintOut 

تقبل خالص تحياتي

  • Like 1
رابط هذا التعليق
شارك

 

عذرا فلم افهم المطلوب .. حيث ما ذكرته هو مايتم بالضبط في المرفق الأخير

حيث انه لا يتم طباعه الا الاعمدة ( الموديل /العدد / السعر/ الاجمالى ) فقط الخاص بالعميل المفلتر

وكذلك النطاق المطلوب ... فاين المشكلة

 

 

عذرا استاذى الفاضل / حماده عمر ، على عدم التوضيح الجيد فسامحنى  على ذالك ، بارك الله فيك

 

انا عند قيامى بالضغط على زر الطباعه المرفق فى الشيت السابق لكم يعطينى معاينه لصفحتين (1+2)

 

الموديل  /  العدد / السعر / الاجمالى     وهذا يظهر فى الصفحه رقم 1 (وهو المطلوب طباعته فقط / بالاضافة الى ما فوق الجدول)

 

المكتب / العميل / رقم الطلب / التاريخ   وهذا يظهر ايضا  فى الصفحه رقم 2 وغير مطلوب طباعته

 

                                                       جزاكم الله خيرا

تم تعديل بواسطه إسلام الشيمي
رابط هذا التعليق
شارك

السلام عليكم

الاخ الكريم / هاني مصطفي

الاخ الحبيب /  إسلام الشيمي

 

تقبلوا خالص تحياتي

  • Like 1
رابط هذا التعليق
شارك

ليتنا ناخذ من وقتك ما يسمح لتعلمنا وتشرح لنا الكود

 

والهدف من ذالك هو ان نقوم بتطبيقه على اى شيت به جدول

 

                                                                            وجزاكم الله خيرا

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب ابو سما حفظكم الباري عز وجل وغفر لكم

اعمال في قمة الابداع والروعة جعله الله في ميزان حسناتكم

تقبل دعواتي بالموفقية والنجاح

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / إسلام الشيمي

بارك الله فيك

اليك شرح الكود ... ارجو من الله ان يفيدك

ونسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله )

واي استفسار معك دائما باذن الله

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

تقبل خالص تحياتي

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / أبو محمد عباس

بارك الله فيك

دائما مرورك يعطر اي موضوع تشارك فيه ولو بكلمه

ودائما انتظر تعليقاتك الراائعة الخالصه التي تصل الي القلب مباشرة

ولكن عتابي علي شخصكم الكريم هو غيابكم الفترة الماضية او حضورك البسيط

لعله خيرا ان شاء الله

تقبل خالص تحيات اخيك الذي يحبك في الله حقا

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

الاستاذ والاخ الحبيب ابو سما بارك الله فيك وجزاك الله خيرا

انا اعيش حياتي في منتدانا الغالي لكن هذه الايام يوجد ضغط العمل في الكنترول  فتراني افتح الانترنت وافتح صفحة منتدانا الرائع

ولكن ابدا بعملي وبين الفترة والاخرى اتصفح على السريع المنتدى وارجع مرة اخرى للعمل واحيانا ابقى لساعات اعمل في البرنامج

فلا استطيع ان اكتب شيء او اجابة او رد .

عتبكم على راسي من فوق فانتم والاساتذة الكرام لكم الفضل الكبير بعد الله سبحانه وتعالى لما انا فيه الان

انا دخلت المنتدى ولم اعرف من الاكسل الا قليل والحمد لله الان اكثر علما في الاكسل من السابق وفقكم الله وجزاكم الله خيرا

تقبلوا فائق احترامي وتقديري

  • Like 3
رابط هذا التعليق
شارك

السلام عليكم

الاخ الحبيب / إسلام الشيمي

بارك الله فيك

اليك شرح الكود ... ارجو من الله ان يفيدك

ونسألكم الدعاء بظهر الغيب لوالدي ( رحمه الله )

واي استفسار معك دائما باذن الله

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

تقبل خالص تحياتي

 

 

جزاكم الله خيرا.........ورحمة الله على والدك (أسكنه الله الجنان)

 

لنا وقفات مع هذا الكود الرااااااااااائع اخى الحبيب (ابا سما) لكن بعد ما اجتهد فيه على قدر استطاعتى.

 

جزاكم الله خيرا وبارك الله فيكم

 

معذرا لم اغلق الموضوع ربما يجد جديد فنستفاد جميع .

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information