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

[homai]

با سلام
واحترام
دوستان من میخوام یه ماکرویی رو ضبط کردم
چطور میتونم تنظیمش کنم که زمانی که کاربر دکمه پرینت رو زد قبلش این ماکرو اجرابشه؟
باتشکر

[Nima]

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

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

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Macro
End Sub 

[homai]

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

[Nima]

تکه کد پست دوم رو در قسمت ٌThisworkbook وارد کنید البته به جای Macro نام ماکرو مورد نظر رو بنویسید.

[homai]

من متاسفانه متوجه منظورتون نشدم اگه امکانش هست بیشتر راهنمایی بفرمایید
ماکرویی که ضبط شده اینه:

Sub print_sorathesab()
'
' print_sorathesab Macro
'

'
    ActiveWindow.SmallScroll ToRight:=-11
    ActiveSheet.Range("$A$1:$T$210").AutoFilter Field:=18, Criteria1:="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 

حالا زمانی که کاربر دکمه پرینت خود اکسل رو میزنه اول این ماکروی من اجرا بشه
وبعدعملیات پرینت گرفته بشه
(البته خطی که برای پرینت هست باید حذف بشه)

باتشکر

[Nima]

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


[]

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

[/PHP]

[homai]

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

بعداز اعمال تغییرات بدین شکل شد

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:=18, Criteria1:="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 

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

[Nima]

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

بعداز اعمال تغییرات بدین شکل شد

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:=18, Criteria1:="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 

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

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

[COLOR=#007700][FONT=monospace]Private [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Sub Workbook_BeforePrint[/FONT][/COLOR][COLOR=#007700][FONT=monospace]([/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Cancel [/FONT][/COLOR][COLOR=#007700][FONT=monospace]As [/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Boolean[/FONT][/COLOR][COLOR=#007700][FONT=monospace])
[/FONT][/COLOR][COLOR=#0000BB][FONT=monospace]Call print_sorathesab
End Sub[/FONT][/COLOR]

رو در قسمت مربوط به کد this workbook بنویسید.برای اینکار از پنجره project Explorer و از منوی درختی روی ThisWorkbook راست کلیک کنید و view code رو انتخاب کنید و کد گفته شده رو اینجا کپی کنید.