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

[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]

مرسی