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

[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