کد ایجاد سرصفحه دلخواه (آموزشی)

[ali.b]

سلام
با این کد میتونین هدر دلخواه رو ایجاد کنین و دیگه نیاز نیست هر بار به قسمت تنظیماتش مراجعه کنین
با احرای این کد یک پیغام میاد و متن مورد نظرتون رو بنویسید

Sub SetPageHdrs()     

Dim vHdr, vDft 
    vDft = ActiveSheet.PageSetup.CenterHeader 
    vHdr = InputBox("Enter Header", "Custom Header", vDft) 
    Application.PrintCommunication = True 
    With ActiveSheet.PageSetup 
        .LeftHeader = "" ' left hdr
        .CenterHeader = vHdr 
        .RightHeader = "" 
    End With 
End Sub

[amin.t]

سلام
با این کد میتونین هدر دلخواه رو ایجاد کنین و دیگه نیاز نیست هر بار به قسمت تنظیماتش مراجعه کنین
با احرای این کد یک پیغام میاد و متن مورد نظرتون رو بنویسید

Sub SetPageHdrs()     

Dim vHdr, vDft 
    vDft = ActiveSheet.PageSetup.CenterHeader 
    vHdr = InputBox("Enter Header", "Custom Header", vDft) 
    Application.PrintCommunication = True 
    With ActiveSheet.PageSetup 
        .LeftHeader = "" ' left hdr
        .CenterHeader = vHdr 
        .RightHeader = "" 
    End With 
End Sub

سلام میشه بگید منظورتون هدر چیه ؟
بی زحمت فایل هم بزارید

[ali.b]

Header and footer که به اصطلاح به اون سرصفحه Header و footer پایین صفحه هست
گاهی وقتها نیاز هست که متن و یا اعدادی به طور ثابت و پیوسته در سر صفحه ها و یا پایین صفحه به طور خودکار تکرار بشن
الان سیستمم مشکل داره در اولین فرصت فایلشو میزام

[علی فاطمی]

با سلام
کد زیر ارور میده ، البته آفیس من 2007 32 بیت هستش.
Application.PrintCommunication = True

[علی فاطمی]

جناب آبسرخی با سلام ،
مشکل ارور که تو پست قبلی عرض کردم مشخص شد؟

[ali.b]

سلام جناب اقای فاطمی نمن با افیس 2013 32 بیت مشکلی ندارم
احتملا به خاطر ورژن افیستون هست
بهتره اپدیت کنید و به نسخه 2013 ارتقا بدین تا خیلی از کد ها و توابع خاصی که مخصوصا اونهایی که در فرم ها استفاده میشه ، دچار مشکل نشن