كود معاينة طباعة هذا الشيت

[ابو غريب]

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

اخوانى علماء هذا الصرح الكبير

1ـ اريد كود لمعاينة وطباعة شيت الطباعة فى هذا الملف

2ـ وارجو اخفاء الاصفار الموجودة بالاعمدة

وشكرا جزيلا

مرسل ملف للتوضيح

1حساب العملاء.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

استخدم الكود التالى لمعاينه الطباعه

Sub PrintPrevie()
    Dim RNG As Range
    Set RNG = Range("A5:P1005")
    RNG.PrintPreview
End Sub

و للطباعه استبدل

RNG.PrintPreview

الى

 

RNG.Print

 

مرفق ملف

السلام عليكم

2حساب العملاء.rar

[MSG]

السلام عليكم

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

ولكن عندما اقوم بنسخ الموديول تظهر لى هذه الرساله

 

ارجوا التوضيح

 

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

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

وشكرا جزيلا

Desktop.rar

[MSG]

السلام عليكم ورحمه الله 

 

2حساب العملاء.rar

[ابو غريب]

شكرا اخى مؤمن  اتعبتك معى انا اسف الغلط عندى انا المطلوب هو تقرير طباعة اى طباعة الصفحات التى بها بيانات فقط مش كل الملف ممكن تكون صفحة واحدة او صفحتين اوثلاث صفحات حسب العملاء

واشكرك على تعبك معى وانا اسف للمرة المليون

تم تعديل نوفمبر 28, 2013 بواسطه ابو غريب

[ابو غريب]

للرفع

تم تعديل نوفمبر 28, 2013 بواسطه ابو غريب

[حمادة عمر]

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

يؤدي الغرض المطلوب حسب طلبك الاول تماما

 

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

شاهد الرابط التالي اولا  بعنوان ( كود لعدم اظهار الصفوف الفارغة فى الطباعة ) .. هل هذا ما تريده ام لا ...

http://www.officena.net/ib/index.php?showtopic=36591&hl=%2B%D8%B7%D8%A8%D8%A7%D8%B9%D8%A9+%2B%D8%A7%D9%84%D8%B5%D9%81%D8%AD%D8%A7%D8%AA#entry193847

 

اما بالنسبة لاخفاء الاصفار يمكنك ذلك بدون كود من خلال خيارات الاكسيل نفسه فالبنسبة لاوفيس 2007

يتم تنفيذ ذلك كما في الصورة التالية

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

 

تم تعديل نوفمبر 29, 2013 بواسطه حمادة عمر