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

ali.b

2014/07/22, 19:06

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

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

2014/07/23, 09:24

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

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

2014/07/23, 10:07

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

علی فاطمی

2014/07/23, 10:55

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

علی فاطمی

2014/07/23, 15:57

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

ali.b

2014/07/26, 07:28

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