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

[محمود م ن]

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

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

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

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

 

 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
 

 

  في 25‏/3‏/2016 at 16:14, ياسر خليل أبو البراء said:

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

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

Expand  

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

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

[محمود م ن]

  في 25‏/3‏/2016 at 16:14, ياسر خليل أبو البراء said:

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

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

Expand  

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

  في 25‏/3‏/2016 at 16:19, الجموعي 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
 

 

Expand  

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