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

[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