با سلام
فایلی داریم با بیش از دویست شیت و هر شیت شامل پنجاه صفحه دیتا
چطور با یک دستور پرینت، میشود از مثلا صفحه بیستم همه شیتها پرینت گرفت؟
با سلام
فایلی داریم با بیش از دویست شیت و هر شیت شامل پنجاه صفحه دیتا
چطور با یک دستور پرینت، میشود از مثلا صفحه بیستم همه شیتها پرینت گرفت؟
با سلام
کد ذیل را تست کنید
محدوده مورد نظر را اصلاح کنید
کد PHP:
Sub Macro1()
For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).PageSetup.PrintArea = ""
Sheets(i).PageSetup.PrintArea = "$a$6:$f$25"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next
End Sub
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)