طلب مساعدة في معرفة كيفية طباعة عدد صفحات معين محدد في خلية

[محمود م ن]

بسم الله الرحمن الرحيم 

مرحبا احبتي الكرام ,, 

اعذروني فها أنا اواصل سلسة استفادتي منكم 

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

 

 Sheets("ورقة2").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5

أنا عايز بدل رقم 5 ويكون ثابت يطبع خمس صفحات لأ ازاي أخليه يقول إلى to مثلا إلى الرقم المكتوب في خلية a4 مع اعتبار أن الخية a4 فيها عدد الصفحات

اتمني أنه يكون ينفع 

وشكراااااااااااااا بجد للمنتدي الرائع ده

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

أخي الكريم محمود

شيل الرقم 5 وضع مكانه النطاق Range("A4").Value ..إذا لم يكن المطلوب فيرجى إرفاق ملف

[الجموعي]

جربالكود التالي

Sub Print_Out()
Dim x As Integer
x = Sheets("ورقة2").Range("A4").Text
Sheets("ورقة2").Select
    ActiveWindow.SelectedSheets.printout From:=1, To:=x

End Sub
 

 

10 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم محمود

شيل الرقم 5 وضع مكانه النطاق Range("A4").Value ..إذا لم يكن المطلوب فيرجى إرفاق ملف

معذرة استاذي الكريم لم انتبه لردك

تم تعديل مارس 25, 2016 بواسطه الجموعي

[محمود م ن]

10 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم محمود

شيل الرقم 5 وضع مكانه النطاق Range("A4").Value ..إذا لم يكن المطلوب فيرجى إرفاق ملف

ياسلااااااااااام أستاذ ياسر ,,, منك نتعلم الكثيييييييييير ,, هو ده المطلوب ,, لا حرمنا الله من تواجدك الدائم الرااااااااااائع

7 دقائق مضت, الجموعي said:

جربالكود التالي

Sub Print_Out()
Dim x As Integer
x = Sheets("æÑÞÉ2").Range("A4").Text
Sheets("æÑÞÉ2").Select
    ActiveWindow.SelectedSheets.printout From:=1, To:=x

End Sub
 

 

بوركت أخي الجموعي وشكرا لجميع اعضاء هذا المنتدي الكريم