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

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

قام بنشر

اقصد اخي استاذ ياسر

معاينه عدد الاوراق التي تمتلئ بالاسماء فقط

السؤال بطريقه تانيه كيف اتي بعدد الاوراق بدل عدد الصفوف التي تظهر

  • أفضل إجابة
قام بنشر

وصلني هذا الحل السحري

لكي يتم معاينه الصفحات المملوءه فقط

فأحببت ان اشارك به

لعله ينفع احد الاخوة

Sub معاينه_طباعه()

    Dim SS As Integer
    
    ''من كنوز العلامة عبد الله باقشير
    SS = Range("عدد_الأوراق").Value * 34
    
     Range("A1:L" & SS).RowHeight = 24

    ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & SS
    ActiveWindow.SelectedSheets.PrintPreview
    [A7].Select
End Sub

كود معاينه مفيد.rar

قام بنشر

الحمد لله أن تم المطلوب

حدد المشاركة رقم 7 كأفضل إجابة ليظهر الموضوع مجاب ومنتهي

 

على فكرة ..جرب تروح على التبويب Page Layout ومن الأمر Breaks جرب تدوس Reset All Page Breaks

ومن الأمر Print Area انقر Clear Print Area

الخطوات اللي فاتت بمثابة إعادة ضبط لفواصل الصفحات

 

جرب الكود الذي أرفقته وشوف النتائج بنفسك (هتتأكد إن بردو لسه فيه ناقصة ...)

قام بنشر

اتبع الخطوات وشوف المعاينة هتختلف ولا زي ما هي :rol:

يعني جرب الكود وشوف المعاينة

وبعد التجربة قم بعمل الخطوات التي أشرت إليها وشوف المعاينة مرة تانية

.............

قام بنشر

غيرت عدد اجمالي الطلبه الى 200 فاتت 8 صفحات

ضغط على المعاينه اتت ب8 صفحات

غيرت الاجمالي كذا مره تاتي بعدد الصفحات سليمه مش فاهمك

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