مشكلة ماكرو طباعة الصفحة الحالية

[عمر احمد0]

كنت قد عملت في ورقة معينة اكثر من صفحة

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

Sub PrintPair()
    Dim s As String, ws As Worksheet
    Application.ScreenUpdating = False
    Set ws = ActiveSheet
    s = ws.Name & "printout"
    With ActiveWorkbook.ActiveSheet
        .Visible = True
        .Activate
        .PrintOut
    End With
    ws.Activate
    Application.ScreenUpdating = True
End Sub

الماكرو يعمل تماما عند اخفاء اعمدة الصفحات ولكن لا يعمل عند اخفاء صفوف الصفحات

هل يمكن تصحيحه ؟ او افادتي بشيء ما

[محمود_الشريف]

أخى الكريم

ممكن ترفق ملف به النموذج المطلوب وما تريده 

حتى يسهل العمل عليه 

[عمر احمد0]

3 ساعات مضت, محمود_الشريف said:

أخى الكريم

ممكن ترفق ملف به النموذج المطلوب وما تريده 

حتى يسهل العمل عليه 

لاحظ هذا الملف، قمت بعمله للتجربة، في الورقة A لو قمت بإخفاء الصفوف الخاصة بالصفحة 2 وعملت طباعة سوف يطبع الصفحة 1 + الصفحة 2

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

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

كل الشكر لحضرتك

Book.rar

[محمود_الشريف]

أخى الكريم

أِِؤكد لك على قدر فهمى لطلبك 

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

بالضغط على الزر تظهر الصفحة الأولى ومن ثم بعد الضغط على زر إغلاق تظهر الصفحة الثانية ___( لاحظ الفرق فى ظهور السطرين 13و14 باللون الأحمر فى الصفحة الأولى ويتم اختفاؤهما فى الصفحة الثانية )

Bookــــ1.rar

[عمر احمد0]

48 دقائق مضت, محمود_الشريف said:

أخى الكريم

أِِؤكد لك على قدر فهمى لطلبك 

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

بالضغط على الزر تظهر الصفحة الأولى ومن ثم بعد الضغط على زر إغلاق تظهر الصفحة الثانية ___( لاحظ الفرق فى ظهور السطرين 13و14 باللون الأحمر فى الصفحة الأولى ويتم اختفاؤهما فى الصفحة الثانية )

Bookــــ1.rar

حل جميل ومبتكر، لكن قد لا يسعفني في حل المشكلة بشكل مطلق.

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

وان اردت ان اقوم باستعمال الكود الاول الذي استخدمته فأنا مضطر لتعديل ما يقارب 10 اوراق وفي كل ورقة 10 صفحات.

جرب الدخول على الماكرو في الملف الذي ارفقته لك وادخل على ورقة A وقم بعمل تشغيل للماكرو ونفس الشيء على ورقة B فسوف تجد الاول يطبع جميع الصفحات حتى لو كانت مخفية من الصفوف، ولكن في ورقة B لو اخفيت الصفحات من خلال الاعمدة سوف يقوم بطباعة الورقة الظاهرة فقط.

[محمود_الشريف]

أخى الكريم

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

أتمنى أن يكون بهم مرادك 

 

Book___2.rar

[عمر احمد0]

48 دقائق مضت, محمود_الشريف said:

أخى الكريم

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

أتمنى أن يكون بهم مرادك 

 

Book___2.rar

شخص رائع عظيم وفقك الله لكل خير

الهمني الملف الذي زودتني به بالحل الامثل لمشكلتي وقد وصلت لهدفي وتحقيقه 100%

ان شاء الله في ميزان حسناتك يا طيب

[محمود_الشريف]

أخى الكريم

نحمد الله عز وجل أنك وجدت ضالتك 

بوركتم وجزيتم عنى خيرا