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

[سـامي 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

[سـامي 169]

بارك الله فيك اخى العزيز أستاذ ياسر

[سـامي 169]

عند وضع الكود في الملف لم تظهر معاينات مضبوطه

[ياسر خليل أبو البراء]

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

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

[سـامي 169]

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

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

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

[سـامي 169]

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

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

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

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

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

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

 

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

[سـامي 169]

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

الغالي استاذ ياسر

ايه الناقص ارجو التوضيح

[ياسر خليل أبو البراء]

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

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

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

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

[سـامي 169]

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

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

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

[ياسر خليل أبو البراء]

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

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

 

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

[سـامي 169]

جربتها هي هي