הנושאים החמים
הנושאים החמים
לפעמים עושים מיזוג דואר בוורד, ורוצים להדפיס רשומה רשומה.
(הדבר יעיל בעיקר בהדפסת חוברות ורוצים שעל כל חוברת יהיה שם וכדו', שבהדפסה רגילה - גם מתוך המיזוג דואר - הוא מדפיס חוברת אחת גדולה)
מצאתי מאקרו לזה, ונראה לי שזה עשוי לעזור להרבה אנשים (בדרך כלל מזכירים בתתי"ם מתקשים בזה...)
אמרתי לשתף אתכם.
מדריך לשימוש במאקרו, תמצאו כאן
כדי שהוא ידפיס חוברת, יש להגדיר את ההגדרות במדפסת לפני הפעלת המאקרו.
או להכניס לתוך המאקרו את ההגדרות - שמשתנות בין מדפסת למדפסת.
(הדבר יעיל בעיקר בהדפסת חוברות ורוצים שעל כל חוברת יהיה שם וכדו', שבהדפסה רגילה - גם מתוך המיזוג דואר - הוא מדפיס חוברת אחת גדולה)
מצאתי מאקרו לזה, ונראה לי שזה עשוי לעזור להרבה אנשים (בדרך כלל מזכירים בתתי"ם מתקשים בזה...)
אמרתי לשתף אתכם.
קוד:
[LEFT][FONT=Calibri][FONT=Times New Roman][COLOR=#2f2f2f]Sub הדפסת_רשומות()[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Times New Roman][COLOR=#2f2f2f]Dim i As Integer[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Calibri][COLOR=#2f2f2f]i = 1[/COLOR][/FONT][/FONT][/LEFT]
[LEFT][FONT=Calibri][FONT=Times New Roman][COLOR=#2f2f2f]With ActiveDocument.MailMerge.DataSource[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Calibri][COLOR=#2f2f2f].ActiveRecord = wdFirstRecord[/COLOR][/FONT][/FONT][/LEFT]
[LEFT][FONT=Calibri][FONT=Calibri][COLOR=#2f2f2f]Do[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Calibri][COLOR=#2f2f2f]Application.PrintOut[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Times New Roman][COLOR=#2f2f2f] If .ActiveRecord <> .RecordCount Then[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Calibri][COLOR=#2f2f2f] .ActiveRecord = wdNextRecord[/COLOR][/FONT][/FONT]
[FONT=Calibri][FONT=Calibri][COLOR=#2f2f2f] End If[/COLOR][/FONT][/FONT]
[FONT=Calibri][COLOR=#2f2f2f]i = i + 1[/COLOR][/FONT]
[FONT=Calibri][COLOR=#2f2f2f]Loop Until .ActiveRecord = .RecordCount[/COLOR][/FONT]
[FONT=Calibri][COLOR=#2f2f2f]End With[/COLOR][/FONT][/LEFT]
[LEFT][FONT=Calibri][COLOR=#2f2f2f]Application.PrintOut[/COLOR][/FONT][/LEFT]
[LEFT][FONT=Calibri][COLOR=#2f2f2f]MsgBox "הדפסת בהצלחה " & i & " רשומות"[/COLOR][/FONT]
[FONT=Calibri][FONT=Times New Roman][COLOR=#2f2f2f]End Sub[/COLOR][/FONT][/FONT][/LEFT]
[LEFT][COLOR=#000000][FONT=Calibri][FONT=Arial]<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT][/FONT][/COLOR][/LEFT]מדריך לשימוש במאקרו, תמצאו כאן
כדי שהוא ידפיס חוברת, יש להגדיר את ההגדרות במדפסת לפני הפעלת המאקרו.
או להכניס לתוך המאקרו את ההגדרות - שמשתנות בין מדפסת למדפסת.
