اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

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

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

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

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

السلام عليكم

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

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

 

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

 

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

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

وشكرا جزيلا

Desktop.rar

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

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

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

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

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

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

 

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

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

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

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

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

 

TkAw1.jpg

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information