كيفية جعل الطباعة تكون مرتبة بحيث جدول في كل ورقة مهما اختلف حجمه

[عبد الله السعيد]

السلام عليكم
كان لدي طلب في موضوع هذا ادناه   ، وتفضل استاذنا بالإجابة عليه  بارك الله فيه 
وفضلت اعمل منفصل هنا  لنقطة اخرى

وهي اني اريد ان اجعل الإكسل يقوم بعمل في الطباعة  صفحة لكل جدول بذاته  مهما كان عدد صفوف الجدول
كيف يكون ذلك ؟؟
 اريد ان اطبع كل جدول في ورقة  ،  حتى لو تم اخفاء منه بعض الصفوف او لم اقوم بالاخفاء

Print.xlsx

[محمد يوسف ابو يوسف]

السلام عليكم  ..اخي ,الملف به ورقة واحدة هل تريد طباعة الورقة كامله pdf ...اما المطلوب ماذا ؟

 

 

 

 

[عبد الله السعيد]

اشكرك على المتابعة اخي محمد

انا الملف لدي مثل اعلاه وفيه  31 جدول لعدد ايام الشهر  ،، وكما ذكرت اخي  ممكن الجدول في كل يوم  يكون كامل او ناقص

انا اريد عند الطباعة  يظهر لي  31 صفحة ثابتة  لأني عندما اقلل حجم اي جدول  كما اريد  ترتيب الصفحات يتأثر

اريد يكون 31 صفحة  واختار الورقة المطلوبة مثلا  اختيار  صفحة  5  الى صفحة 5    فتكون معناها  طباعة جدول اليوم 5 من الشهر  pdf

[omar elhosseini]

شاهد المرفق اخي

ولطباعة جدول 5 فقط اعمل كما في الصورة

او اذا اردت طباعة جدول يوم 2 حتي جدول يوم 4

استخدم

من 2 الي 4

 

 

Print.xlsm

 

[محمد يوسف ابو يوسف]

السلام عليكم 

1:يجب عليك  كتابة رقم اليوم في( خلية s1)ليتم طباعتة. .. مثلا يوم الاول يكن 1 والثاني يكن 2 وهكذا

تفضل 

الملف Print.xlsm

[عبد الله السعيد]

اخي الفاضل عمر  لو سمحت  ..انا غيرت في ارتفاع الصفوف والطباعة تغيرت 
Print.xlsm

[omar elhosseini]

اخي

يجب تغير الطباعة من

xlLandscape

الي

xlPortrait

شاهد المرفق

Print.xlsm

 

[عبد الله السعيد]

اشكرك اخي الفاضل واتعبتك معي    ، ولكني اريدها  تكون  xlLandscape   لأن احيانا ازود في عرض العمود او حتى تكون الصفحة كبيرة عند العرض والطباعة على  PDF

[omar elhosseini]

اخي شاهد المرفق

استخدم زر 

Page_Setup

قبل الطباعة لتجهيز الشيت للطباعة  ..اما للطباعة او المعيانة قبل الطباعة

استخدم ازراري ولا تستخدم ازرار الاكسيل

Print.xlsm

 

[عبد الله السعيد]

بارك الله فيك على مجهودك الخارق كاالعاده وتعبك

لو تكرمت هل ممكن اطبق هذه الاكواد على اي ملف اريد  ؟؟
وهل لو عدلت في ارتفاع الصفوف ايا كانت  ستقبل معي ؟؟

[omar elhosseini]

نعم اخي

الكود يكيف نفسة حسب مساحة الجدول  أيا كانت

انسخ 

Module1 and Module2

الي ملفك

علي شرط توجية الازار الي نفس الماكروهات

وأيضا الشرط الاهم

هو ان أسماء زري

المعاينة قبل الطباعة

و الطباعة

أسمائهم علي التوالي

Bt_2 and Bt_3

وان تكون الازرار من

عناصر تحكم النموذج

وليس من

عاصر تحكم Activex

او غير أسمائهم حسب ما تصنع الازرار في الكود التالي

مع ملاجظة عناويين خلايا 

من يوم

الي يوم

في الكود

هذه الاسطر التي يجب ان تصحح خسب ما تفعل

From_Day = Range("N5")
To_Day = Range("O5")
و

If Application.Caller = "Bt_2" Then

و

If Application.Caller = "Bt_3" Then

في الكود التالي

Sub Print_Preview_And_Print()
'
From_Day = Range("N5")
To_Day = Range("O5")

ScreenOff
For Num_Day = From_Day To To_Day
    If Application.Caller = "Bt_2" Then
        Call Hide_Rows(Num_Day)
        ActiveSheet.PrintPreview
    End If
    If Application.Caller = "Bt_3" Then
        Call Hide_Rows(Num_Day)
        ActiveSheet.PrintOut
    End If
Next
ActiveSheet.Cells.EntireRow.Hidden = False
ScreenOn
'
End Sub

 

[عبد الله السعيد]

اخي الفاضل ..تمت التجربة الان على الملف  ، واعتذر على التأخير
ولكن عند اخفاء صفوف كثيرة في الجدول 1 و 2  وتجهيزهم للطباعة    ، ترجع الصفوف المختفية مرة اخرى وانا لا اريد ذلك
انا اريد باختصار ..طباعة كل جدول في صفحة على حدة كما اشرت في اول البوست
وان يكون كل جدول كما انا حددته  ، بمعنى هناك جدول سيكون كامل وهناك ناقص وهكذا  المهم ان يكون كل جدول في صفحة مفردة

Print.xlsm

[omar elhosseini]

اخي شاهد المرفق

ولا تنسي ضغط زر

Page_Setup

كلما غيرت حجم أي جدول

Print_2.xlsm

[عبد الله السعيد]

سلمت يدااك

انا اقوم باختيار الصفحات من 1 ل 3  مثلا   وعند اختيار المعاينة قبل الطباعة من كودك  يظهر لي كل ورقة بمفردها يعني اغلق الاولى تظهر الثانية وهكذا

وكذلك لو اختارت الطباعة  من كودك  يظهر  ورقة واحده فقط وليس كل الورق في ملف واحد

[omar elhosseini]

نعم هكذا بعمل الكود

لانه بقوم بنسخ كل جدول مطلوب في شيت منفصل

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

فلابد من غلق المعاينة حتي يذهب للثانبة

 

ملاحظه :

هذا كود من اصعب الاكواد التي قابلتني