پرینت صفحه nام از nشیت

[qerenfil]

با سلام
فایلی داریم با بیش از دویست شیت و هر شیت شامل پنجاه صفحه دیتا
چطور با یک دستور پرینت، میشود از مثلا صفحه بیستم همه شیتها پرینت گرفت؟

[iranweld]

با سلام

کد ذیل را تست کنید

محدوده مورد نظر را اصلاح کنید


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]

با سلام

کد ذیل را تست کنید

محدوده مورد نظر را اصلاح کنید


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
مممنونم از پاسخگوییتان.
اینها کد ماکرو هستند؟ من ماکرو بلد نیستم متاسفانه