ماجدجلال قام بنشر سبتمبر 28, 2005 مشاركة قام بنشر سبتمبر 28, 2005 السلام عليكم ورحمة الله ,, لدي صفحات اقوم بطباعتها , واحتاج الي دالة او كود او طريقة تجعل رقم عدد الصفحات يظهر في الخلية G11 , طبعا ذلك بعد تحديد نطاق صفحات الطباعة ,, وهذا الامر مهم جداا للشخص الذي يطبع وايضا للعميل ليعرف عدد الصفحات , طبعا , ممكن استخدم تذليل الصفحة لترقيمها , ولكن اردت ان اكتب للعميل في اعلي الصفحة الاولي فقط عدد الصفحات للتقرير ,,, ارجو المساعدة وشكرا لكم ,,, رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 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 رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر سبتمبر 30, 2005 الكاتب مشاركة قام بنشر سبتمبر 30, 2005 شكرا لك استاذ محمد ولكن هناك مشكلة بسيطة جدا وهي , اذا كان عدد الصفحات صفحة او صفحتين يظهر الرقم صحيح واذا تجاوز عدد هذة الصفحات اكثر من صفحتين يكون الرقم دوما 2 مهما كان الرقم صغيرا او كبيرا ,,, ارجو منك المساعدة , وصدقني لو كنت اعرف اين يكمن التعديل او كيف لقمت بة , فجزاك الله كل خير , رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 30, 2005 مشاركة قام بنشر سبتمبر 30, 2005 الكود يقوم بعد عدد الفواصل الموجودة بين الصفحات افقيا و رأسيا و يضيف عليها 1 مستنتجا عدد الصفحات و من ذلك يحسب عدد الصفحات لذا اذا اخترت اعداد الطباعة ليس عن طريق حجم الصفحة و لكن بتثبيت عدد الصفحات بالطول و العرض فلن يكون هذا الحل مجديا و سيعطي دائما 2 و هذا الحل له عيب آخر عندما ستبقي جزء من صفحة لا بوجد بعدها فاصل لا يدخل فى العدد جرب الملف المرفق ستجد العدد سليم و لكن مازال علينا البحث عن حل للمشاكل السابقة او ايجاد حل بديل pagebreacks.zip رابط هذا التعليق شارك More sharing options...
ماجدجلال قام بنشر أكتوبر 3, 2005 الكاتب مشاركة قام بنشر أكتوبر 3, 2005 شكرا لك استاذ محمد طاهر ,, كنت اتوقع ان يتم استيراد عدد الصفحات من خلال تحديد نطاق الطابعة , تماما كما يظهر عندما اقوم بتحديد المجال ثم اختار تذليل اسفل الصفحة بهذا الشكل ( صفحة 1 من ؟ ) حيث في هذة الميزة يظهر عدد الصفحات بشكل صحيح , علي كل شكرا لك استاذ محمد , واذا توصل الاخوة الي حل بشكل افضل ارجو منهم المساعدة ,, وكل عام وانتم بخير ورمضان كريم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها