وارد کردن تعداد پرینت در سلول

[a.dal65]

سلام
اساتید من میخوام از Sheet خودم n تا پرینت بگیرم
میخوام این n تا رو توی یک سلول مشخص وارد کنم و بعد ماکروی که توسط دکمه فراخوانی میشه اجرا و پرینت کنم
این کد رو از تو اینترنت پیدا کردم
فقط یه مشکل داره هر چندتا که بنویسم خودش 1 دونه بیشتر میگره
من تو سلول میزنم 1 و دکمه پرینت رو میزنم اون 2 تا میگیره

        .PrintOut Copies:=Range("M12").Value

مشکل از کد های قبلی من بود برای همین 1 دونه بیشتر میگرفت

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

[a.dal65]

اساتید
این کد به یک Button توی یه شیت داده شده و کار میکنه

Dim vSheet As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set vSheet = Worksheets("Print")
     vSheet.PrintOut Copies:=Range("N10").Value
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

ولی همین کد توی فرم VBA کار نمیکنه

[a.dal65]

هر کاری کردم نتونستم درستش کنم
میخوام وقتی کاربر دکمه چاپ رو ار فرم VBAبزنه به تعداد عددی که توی شیت Print سلول n10 هست پرینت بگیره

[Ali Parsaei]

سلام،
وقتي تو شيت PRINT هستيد مشکلي نيست، ولي وقتي در شيت ديگري هستيد بايد تعيين کنيد که اطلاعات را از سل N10 کدام شيت بخواند، فکر کنم مشکل از همين باشد!
اين خط کد را اصلاح کنيد ببينيد درست مي شود:

vSheet.PrintOut Copies:=vSheet.Range("N10").Value