پرینت با ردیفهای یکسان

[ali719]

سلام
من یک فایل که شامل صفحات زیادی هست رو میخوام پرینت بگیرم میخوام در هر صفحه فقط بیست ردیف باشد برای تنظیم این کار چه کار باید بکنم
ممنون

[Ali Parsaei]

سلام،
يک ماکرو ضبط کنيد و اين کد را توش بنويسيد:

Dim C As Integer
For C = 1 To Sheets.Count
Sheets(C).PageSetup.PrintArea = "1:20"
Next

با اجراي ماکرو محـــــــــدوده پرينت در همه صفحات به بيست رديف اول محدود خواهد شد، اگر مي خواهيد ستونها هم محدود باشد "1:20" را طبق نياز خود تغـــــيير دهيد، مــــثلا" اگر به جاي آن " A1: D20 " بنويسيد فقط چهار ستون اول تا رديف بيست براي پرينت تعيين خواهد شد. اگر مي خواهيد درجا پرينت هم گرفته شود بايد يک خط کد پرينت هم به آن اضافه کنيد.