سلام
با این کد میتونین هدر دلخواه رو ایجاد کنین و دیگه نیاز نیست هر بار به قسمت تنظیماتش مراجعه کنین
با احرای این کد یک پیغام میاد و متن مورد نظرتون رو بنویسید
کد:
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
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)