نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: اجرای ماکرو قبل عملیات چاپ

  1. #1


    آخرین بازدید
    2018/07/30
    تاریخ عضویت
    November 2010
    نوشته ها
    29
    امتیاز
    3
    سپاس
    6
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    اجرای ماکرو قبل عملیات چاپ

    با سلام
    واحترام
    دوستان من میخوام یه ماکرویی رو ضبط کردم
    چطور میتونم تنظیمش کنم که زمانی که کاربر دکمه پرینت رو زد قبلش این ماکرو اجرابشه؟
    باتشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    دوست عزیز میشه بیشتر راجع به کاری که ماکرو انجام میده توضیح بدید.
    شاید لازم نباشه حتما قبل از پرینت گرفتن اجرا بشه

    ولی میتونید به شکل زیر عمل کنید


    کد PHP:

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call Macro
    End Sub 
    ویرایش توسط Nima : 2013/12/22 در ساعت 14:53
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************


  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    2018/07/30
    تاریخ عضویت
    November 2010
    نوشته ها
    29
    امتیاز
    3
    سپاس
    6
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    سلام
    ممنون از پاسخ شما
    من در فایل یه جدول دارم که برخی از ردیفهاش پر میشه این ماکرو ردیفهای پر رو فیلتر میکنه وبرای چاپ آماده میکنه که درزمان پرینت فقط ردیفهای پر جدول وجود داشته باشه وجدول دارای ردیفهای خالی نباشه
    باتشکر

  6. #4


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    تکه کد پست دوم رو در قسمت ٌThisworkbook وارد کنید البته به جای Macro نام ماکرو مورد نظر رو بنویسید.
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  7. #5


    آخرین بازدید
    2018/07/30
    تاریخ عضویت
    November 2010
    نوشته ها
    29
    امتیاز
    3
    سپاس
    6
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    من متاسفانه متوجه منظورتون نشدم اگه امکانش هست بیشتر راهنمایی بفرمایید
    ماکرویی که ضبط شده اینه:
    کد PHP:
    Sub print_sorathesab()
    '
    print_sorathesab Macro
    '

    '
        
    ActiveWindow.SmallScroll ToRight:=-11
        ActiveSheet
    .Range("$A$1:$T$210").AutoFilter Field:=18Criteria1:="1"
        
    ActiveWindow.SmallScroll Down:=-9
        ActiveWindow
    .SelectedSheets.PrintOut Copies:=1
        ActiveSheet
    .Range("$A$1:$T$210").AutoFilter Field:=18
        ActiveWindow
    .SmallScroll Down:=60
        ActiveSheet
    .Outline.ShowLevels RowLevels:=1
        Range
    ("B1").Select
    End Sub 
    حالا زمانی که کاربر دکمه پرینت خود اکسل رو میزنه اول این ماکروی من اجرا بشه
    وبعدعملیات پرینت گرفته بشه
    (البته خطی که برای پرینت هست باید حذف بشه)

    باتشکر

  8. #6


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    دوست عزیز کد زیر رو درقسمت کد مربوط به Thisworkbook از ویژوال ادیتور وارد کن:


    []
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call
    print_sorathesab
    End Sub



    [/PHP]
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************



  9. #7


    آخرین بازدید
    2018/07/30
    تاریخ عضویت
    November 2010
    نوشته ها
    29
    امتیاز
    3
    سپاس
    6
    سپاس شده
    3 در 2 پست
    تعیین سطح نشده است

    این کار رو من انجام دادم ولی درست نشد

    بعداز اعمال تغییرات بدین شکل شد
    کد PHP:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call print_sorathesab
    End Sub
    Sub print_sorathesab
    ()
    '
    print_sorathesab Macro
    '

    '
        
    ActiveWindow.SmallScroll ToRight:=-11
        ActiveSheet
    .Range("$A$1:$T$210").AutoFilter Field:=18Criteria1:="1"
        
    ActiveWindow.SmallScroll Down:=-9
        ActiveSheet
    .Range("$A$1:$T$210").AutoFilter Field:=18
        ActiveWindow
    .SmallScroll Down:=60
        ActiveSheet
    .Outline.ShowLevels RowLevels:=1
        Range
    ("B1").Select
    End Sub 
    ممکنه بفرمایید اشکال من کجاست؟

  10. #8


    آخرین بازدید
    2018/11/06
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    385
    امتیاز
    905
    سپاس
    665
    سپاس شده
    1,397 در 369 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط homai نمایش پست ها
    این کار رو من انجام دادم ولی درست نشد

    بعداز اعمال تغییرات بدین شکل شد
    کد PHP:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call print_sorathesab
    End Sub
    Sub print_sorathesab
    ()
    '
    print_sorathesab Macro
    '

    '
        
    ActiveWindow.SmallScroll ToRight:=-11
        ActiveSheet
    .Range("$A$1:$T$210").AutoFilter Field:=18Criteria1:="1"
        
    ActiveWindow.SmallScroll Down:=-9
        ActiveSheet
    .Range("$A$1:$T$210").AutoFilter Field:=18
        ActiveWindow
    .SmallScroll Down:=60
        ActiveSheet
    .Outline.ShowLevels RowLevels:=1
        Range
    ("B1").Select
    End Sub 
    ممکنه بفرمایید اشکال من کجاست؟

    اشکال کار اینجاست که شما باید کد:

    کد:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Call print_sorathesab
    End Sub
    رو در قسمت مربوط به کد this workbook بنویسید.برای اینکار از پنجره project Explorer و از منوی درختی روی ThisWorkbook راست کلیک کنید و view code رو انتخاب کنید و کد گفته شده رو اینجا کپی کنید.
    ************************************
    No LION's roar ruins my hut, I afraid of TERMITE's silence
    ************************************




اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد