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

تعديل اول كود لي .. خاص بمعاينه الورق


إذهب إلى أفضل إجابة Solved by سـامي 169,

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

كرما منكم

تعديل اول كود لي .. خاص بمعاينه الورق

ولكم الشكر

Sub معاينه5()


Dim AA As Integer
AA= عدد_الأوراق

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

End Sub

كود معاينه.rar

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

جرب الكود

Sub معاينه5()
    Dim BB As Integer
    BB = Range("عدد_الأوراق")

    ActiveSheet.PageSetup.PrintArea = "$A$1:$L$" & BB
    ActiveWindow.SelectedSheets.PrintPreview
    [A7].Select
End Sub
رابط هذا التعليق
شارك

لم أفهم المشكلة وضح بشكل أكثر دقة ..

المعاين مضبوط حسب ما تقدمت به في الكود أي أن النطاق (منطقة الطباعة) سيكون A1:L10 طبقاً لملفك

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

  • أفضل إجابة

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

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

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

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

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:

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

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

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

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

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

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

 

هل نفذت هذه الخطوات؟

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

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information