ماجدجلال قام بنشر سبتمبر 28, 2005 قام بنشر سبتمبر 28, 2005 السلام عليكم ورحمة الله ,, لدي صفحات اقوم بطباعتها , واحتاج الي دالة او كود او طريقة تجعل رقم عدد الصفحات يظهر في الخلية G11 , طبعا ذلك بعد تحديد نطاق صفحات الطباعة ,, وهذا الامر مهم جداا للشخص الذي يطبع وايضا للعميل ليعرف عدد الصفحات , طبعا , ممكن استخدم تذليل الصفحة لترقيمها , ولكن اردت ان اكتب للعميل في اعلي الصفحة الاولي فقط عدد الصفحات للتقرير ,,, ارجو المساعدة وشكرا لكم ,,,
محمد طاهر عرفه قام بنشر سبتمبر 28, 2005 قام بنشر سبتمبر 28, 2005 شغل الماكرو التالي بعد وضعه فى موديول سيعطيك رسالة بعدد الصفحات ثم يكتبها فى الخلية G11 كما طلبت Sub NumberOfPrintedPages() Worksheets(1).DisplayAutomaticPageBreaks = True HorizBreaks = Worksheets(1).HPageBreaks.Count HPages = HorizBreaks + 1 VertBreaks = Worksheets(1).VPageBreaks.Count VPages = VertBreaks + 1 NumPages = HPages * VPages Worksheets(1).DisplayAutomaticPageBreaks = False MsgBox NumPages Range("G11").Value = NumPages End Sub
ماجدجلال قام بنشر سبتمبر 30, 2005 الكاتب قام بنشر سبتمبر 30, 2005 شكرا لك استاذ محمد ولكن هناك مشكلة بسيطة جدا وهي , اذا كان عدد الصفحات صفحة او صفحتين يظهر الرقم صحيح واذا تجاوز عدد هذة الصفحات اكثر من صفحتين يكون الرقم دوما 2 مهما كان الرقم صغيرا او كبيرا ,,, ارجو منك المساعدة , وصدقني لو كنت اعرف اين يكمن التعديل او كيف لقمت بة , فجزاك الله كل خير ,
محمد طاهر عرفه قام بنشر سبتمبر 30, 2005 قام بنشر سبتمبر 30, 2005 الكود يقوم بعد عدد الفواصل الموجودة بين الصفحات افقيا و رأسيا و يضيف عليها 1 مستنتجا عدد الصفحات و من ذلك يحسب عدد الصفحات لذا اذا اخترت اعداد الطباعة ليس عن طريق حجم الصفحة و لكن بتثبيت عدد الصفحات بالطول و العرض فلن يكون هذا الحل مجديا و سيعطي دائما 2 و هذا الحل له عيب آخر عندما ستبقي جزء من صفحة لا بوجد بعدها فاصل لا يدخل فى العدد جرب الملف المرفق ستجد العدد سليم و لكن مازال علينا البحث عن حل للمشاكل السابقة او ايجاد حل بديل pagebreacks.zip
ماجدجلال قام بنشر أكتوبر 3, 2005 الكاتب قام بنشر أكتوبر 3, 2005 شكرا لك استاذ محمد طاهر ,, كنت اتوقع ان يتم استيراد عدد الصفحات من خلال تحديد نطاق الطابعة , تماما كما يظهر عندما اقوم بتحديد المجال ثم اختار تذليل اسفل الصفحة بهذا الشكل ( صفحة 1 من ؟ ) حيث في هذة الميزة يظهر عدد الصفحات بشكل صحيح , علي كل شكرا لك استاذ محمد , واذا توصل الاخوة الي حل بشكل افضل ارجو منهم المساعدة ,, وكل عام وانتم بخير ورمضان كريم
الردود الموصى بها