من با استفاده از کد زیر برای یک محدوده خاص دکمه پرینت سریع گذاشتم.
Sub MyPrint() curPrtArea = ActiveSheet.PageSetup.PrintArea myPrtArea = "Aq:ax" ActiveSheet.PageSetup.PrintArea = myPrtArea ActiveSheet.PrintOut ActiveSheet.PageSetup.PrintArea = curPrtArea End Sub




کامنت