تام در حال تلاش برای ایجاد کدهای ماکرو است که بر اساس مقدار وارد شده در یک سلول، تعداد کپی ها را برای چاپ کنترل کند. او یک فرم ورودی برای پرسنل حمل و نقل خود ایجاد کرده است که برچسب محتوای بسته را چاپ می کند. او میخواهد بتواند تعداد برچسبهایی را که باید چاپ شوند در سلول B11 وارد کنند و سپس آن شماره را چاپ کنند.
انجام این کار نسبتاً آسان است، بسته به آنچه می خواهید چاپ کنید. اگر می خواهید فقط محتویات کاربرگ فعال را چاپ کنید، می توانید از کدهای مشابه زیر استفاده کنید:
iNumCopies = Range("B11").Value
If iNumCopies < 1 Then iNumCopies = 1
ActiveSheet.PrintOut Copies:=iNumCopies
اگر نمیخواهید کل کاربرگ را چاپ کنید، باید دستور PrintOut را کمی تغییر دهید. به عنوان مثال، مثال زیر فرض می کند که "برچسب" در محدوده A1:A5 چاپ می شود:
Set MyRange = Range("A1:A5")
iNumCopies = Range("B11").Value
If iNumCopies < 1 Then iNumCopies = 1
MyRange.PrintOut Copies:=iNumCopies