/ / יצירת כותרת תחתונה לפני ההדפסה ב - VBA של

יצירת כותרת תחתונה לפני הדפסה ב - VBA של

להלן נבחן תוכנית ב Excel VBA כי יוצר כותרת תחתונה לפני ההדפסה חוברת עבודה.

יצירת חוברת עבודה לפני אירוע. הקוד שנוסף לאירוע WorkPrint של Workbook יבוצע על-ידי Excel VBA לפני הדפסת חוברת עבודה.

1. פתח את עורך Visual Basic.

2. לחיצה כפולה על חוברת עבודה זו בסייר הפרויקט.

3. בחרו 'חוברת עבודה' מהרשימה הנפתחת. בחר באפשרות PriorPrint מהרשימה הנפתחת.

אירוע לפני אירוע ב - Excel

4. כדי ליצור כותרת תחתונה, הוסף את שורת הקוד הבאה לאירוע WorkPrint של Workbook:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

הערה: אובייקט PageSetup מכיל את כל תכונות הגדרת הדף (כותרת תחתונה שמאלית, שוליים תחתונים, גודל נייר, שוליים שמאליים וכן הלאה) כמאפיינים.

5. בדוק את התוכנית על-ידי הדפסת חוברת העבודה.

תוצאה:

כותרת תחתונה

קרא גם: