چاپ تا صفحه مورد نظر توسط ویژال بیسیک

[hadi_rezai_hr]

سلام
شرمنده اگه اشتباه پست رو اینجا گذاشتم.

می خواستم بدونم چطوری میشه با ویژال بیسیک مثلا اگه عدد 10 رو داخل سلول a1 بنویسیم و پرینت رو توسط کد بگیریم، خود برنامه اتومات از صفحه 1 تا 10 رو چاپ کنه ؟

البته خب میشه به صفحه پرینت رفت و دستی 1 تا 10 رو نوشت ولی چون صفحه ای چاپ میکنم چیزی حدود 150 صفحه هست و بعضی مواقع نیاز هست تا یک صفحه مشخصی رو چاپ کنم ، میخاستم یک فرمول داخل سلول a1 نوشته کنم که خودش اتومات تا صفحه ی مورد نظری رو که نیازه چاپ بشه رو مشخص کنه و با زدن یک دکمه به راحتی بشه فایل رو چاپ کرد.
تشکر

[hadi_rezai_hr]

خودم حلش کردم
البته با ماکرو نوشتم. کد رو هم میزارم شایید یه روزی یه کسی لازمش شد.

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheet1.Cells(1, 1), Copies:=1, Collate _
        :=True, IgnorePrintAreas:=False
End Sub