پرینت صفحه 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 

مممنونم از پاسخگوییتان.
اینها کد ماکرو هستند؟ من ماکرو بلد نیستم متاسفانه