ایجاد شرط برای ماکرو

[younes672]

سلام
دوستان یه مشکلی تو ماکرو ذیل دارم لطفا راهنمایی کنید.
xx = Range("H3").Value

Sheets("Print preview").Select
ActiveSheet.PageSetup.PrintArea = "$A:$K"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=xx, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False

این ماکرو دستو پرینت یه شیت که تعداد صفحات که باید پرینت بشود را از h3 میگیره. یه شرط میخوام به این دستور اضافه بشه که اگر h3 برابر 0 بود دستور پرینت لغو بشود. اگر هم شد یه پیغام صادر بشود (موجود نیست). ممنون میشم اگر نظر بدید.

[iranweld]

با سلام

در یک شرط IF قرار دهید


Sub TEST()

XX = Range("H3").Value

If XX > 0 Then

'Sheets("Print preview").Select'

ActiveSheet.PageSetup.PrintArea = "$A:$K"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=XX, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False

ElseIf XX = 0 Then

MsgBox "تعداد پرينت مساوي صفر است"

End If

End Sub