[حل شده] درخواست راهنمایی (ایجاد کلید پرینت)

[rm58]

با عرض سلام خدمت اساتید ارجمند
لطفا بنده را راهنمایی بفرمایید:

در خصوص کد ماکرو به منظور ایجاد کلید پرینت در شیت 1 و انجام Preview و نهایتا پرینت یک محدوده مثلا B2 تا I28 درشیت 2

سپاس از لطفتون

[kazamie]

با عرض سلام خدمت اساتید ارجمند
لطفا بنده را راهنمایی بفرمایید:

در خصوص کد ماکرو به منظور ایجاد کلید پرینت در شیت 1 و انجام Preview و نهایتا پرینت یک محدوده مثلا B2 تا I28 درشیت 2

سپاس از لطفتون

Sub Macro1()


    Sheets("Sheet2").Range("B2:I28").PrintOut Copies:=1, Collate:=True
End Sub