Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("a1").Value
End Sub
این دستور قبل از پرینت محتویات سل A1 رو توی footer میزاره سمت چپ بالا . حالا اگر مازول توابع شمسی رو هم به فایلتون اظافه کنین به جای آدرس سل از تابع فکر کنم J_today() به راحتی به نتیجه میرسین
کامنت