انتخاب تعداد صفحات پرینت یک شیت از طریق یک سلول توسط ماکرو

[younes672]

سلام
تعداد صفحات یک شیت که باید پرینت بشوند با استفاده از یه سری فرمول بدست میاد که تعداد صفحات متغیر می باشد که در یک سلول ثبت می شود.
یه ماکرو میخوام بسازم که تعداد صفحاتی که باید پرینت بشود را از سلولی که تعداد صفحات چاپ رو بدست میاره استفاده کنه و چاپ رو انجام بده.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

ماکرو ذیل را تست بفرمایید

محدوده پرینت از ستون A TO I
تعداد صفحه برای پرینت
در سلول T1 وارد شود

Sub test()

xx = Range("t1").Value

    ActiveSheet.PageSetup.PrintArea = "$A:$I"
      
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=xx, Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub 

[younes672]

مرسی