X
تبلیغات
نماشا
رایتل
چنانچه بخواهید فقط محدوده ای پرینت گرفته شود

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$10"
ActiveWindow.SelectedSheets.PrintPreview

 بشرط اینکه بخواید محدوده A4:D14 را حذف کنید (محدوده خود را واردکنید )
ActiveSheet.Range("A4:D14").ClearContents