توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : پرسش: پرینت صفحه nام از nشیت
qerenfil
2022/01/16, 10:12
با سلام
فایلی داریم با بیش از دویست شیت و هر شیت شامل پنجاه صفحه دیتا
چطور با یک دستور پرینت، میشود از مثلا صفحه بیستم همه شیتها پرینت گرفت؟
iranweld
2022/01/16, 10:24
با سلام
کد ذیل را تست کنید
محدوده مورد نظر را اصلاح کنید
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
qerenfil
2022/01/17, 10:52
با سلام
کد ذیل را تست کنید
محدوده مورد نظر را اصلاح کنید
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
مممنونم از پاسخگوییتان.
اینها کد ماکرو هستند؟ من ماکرو بلد نیستم متاسفانه
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.