פורום מחשבים

פורום לענייני מחשבים, תוכנות, אינטרנט, סינונים, שרתים, חומרה, רשתות, תקשורת ועוד.
מנהל הפורום: יעקב ויצמן

מחשבים ותוכנות > תוכן מקצועי

  • 922
  • לפעמים עושים מיזוג דואר בוורד, ורוצים להדפיס רשומה רשומה.
    (הדבר יעיל בעיקר בהדפסת חוברות ורוצים שעל כל חוברת יהיה שם וכדו', שבהדפסה רגילה - גם מתוך המיזוג דואר - הוא מדפיס חוברת אחת גדולה)
    מצאתי מאקרו לזה, ונראה לי שזה עשוי לעזור להרבה אנשים (בדרך כלל מזכירים בתתי"ם מתקשים בזה...)
    אמרתי לשתף אתכם.

    קוד:
    [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]

    מדריך לשימוש במאקרו, תמצאו
    כאן
    כדי שהוא ידפיס חוברת, יש להגדיר את ההגדרות במדפסת לפני הפעלת המאקרו.
    או להכניס לתוך המאקרו את ההגדרות - שמשתנות בין מדפסת למדפסת.
    0 תגובות

    אולי מעניין אותך גם...

    הצטרפות לניוזלטר

    איזה כיף שהצטרפתם לניוזלטר שלנו!

    מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

    לוח מודעות

    הפרק היומי

    הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


    תהילים פרק כה

    אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
    נקרא  2  פעמים
    למעלה