استفاده از سربرگ و زیر صفحه برای چاپ سر ستون ها و ته ستون ها

[Nima]

با سلام به لینک زیر هم مراجعه کنید:

http://social.msdn.microsoft.com/For...-for-each-page

فایل رو هم پیوست کردم.

[زهره]

[امين اسماعيلي]

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

[maziardm]

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

با سلام و روز خوش به تمامی دوستان

از اینکه گیج تون کردم پوزش. ولی خوشحالم سوالی رو طرح کردم که بتونه پاسخ متفاوتی داشته باشه. فکر کنم پاسخ به این سوال بتونه به خیلی از عزیزان به خصوص خودم کمک کنه. بازم از پاسخ دوستان و حتی تلاششون متشکرم

نیما جان دست فایلت رو گرفتم. ممنون

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

[Nima]

با سلام

با تنضیم header میتونید اینکار رو بکنید
Page Layout >>> Print Titles >>> Rows to repeat at top

[maziardm]

راستی میشه دوستان یه کدی بنویسند که بشه تعیین کرد که در هر صفحه 20 تا ردیف رو برای مثال با اندازه ارتفاع 1 سانت رو جدا و پایینش تو یه ردیف جمع مقادیر عددی رو بزنه و در یک صفحه چاپ کنه. و همینتطور این کارو تا آخرین ردیف تکرار کنه. یکی از دوستان یه جایی همچین چیزی رو طراحی کرده بود و جالب هم بود ولی من فایلشو پیدا نمی کنم. با تشکر

[~M*E*H*D*I~]

راستی میشه دوستان یه کدی بنویسند که بشه تعیین کرد که در هر صفحه 20 تا ردیف رو برای مثال با اندازه ارتفاع 1 سانت رو جدا و پایینش تو یه ردیف جمع مقادیر عددی رو بزنه و در یک صفحه چاپ کنه. و همینتطور این کارو تا آخرین ردیف تکرار کنه. یکی از دوستان یه جایی همچین چیزی رو طراحی کرده بود و جالب هم بود ولی من فایلشو پیدا نمی کنم. با تشکر

برای footer ماکروی زیر رو امتحان کنید ، بجای A55 تا A57 ردیف های مد نظر خودتون رو قرار بدید

Sub Macro1()
Dim StrFtr As String
StrFtr = Range("A55") & vbLf & Range("A56") & vbLf & Range("A57")
ActiveSheet.PageSetup.LeftFooter = StrFtr
End Sub