قرار دادن تاریخ روز در Page Header

[mokaram]

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

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

با درود
راه ها متفاوت هست

1- دستور زیر در ایونت workbook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   ActiveSheet.PageSetup.LeftFooter = Range("a1").Value

End Sub

این دستور قبل از پرینت محتویات سل A1 رو توی footer میزاره سمت چپ بالا . حالا اگر مازول توابع شمسی رو هم به فایلتون اظافه کنین به جای آدرس سل از تابع فکر کنم J_today() به راحتی به نتیجه میرسین

[Amin_D]

با سلام
راهکارهایی که در تاپیک دوستان راهنمایی کردند امتحان کردم ولی جواب نگرفتم (یعنی توی هدر محدوده سلکت شده برا پرینت چیزی نیومد)

تاپیک های دیگه هم متاسفانه جواب نگرفتم ف هر چند مثال هایی که ضمیمه شده بود با تاپیک مرتبط نبود(فکر میکنم بخاط قدیمی بودن مطلب)
از جمله:

http://forum.exceliran.com/showthread.php/184-%D8%AF%D8%B1%D8%AC-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D8%B4%D9%85%D8%B3%DB%8C-%D8%AF%D8%B1header

با تشکر