סימני חיתוך

[Yisrael]

מוזר עד מאוד.
כשאני מדפיס את המסמך שלך מוורד אני לא רואה כלום, אבל כשאני מדפיס אותו ע"י מדפסת אחרת אני רואה את סימני החיתוך.
חוץ מזה כשאני מפעיל את המאקרו אצלי אני לא רואה כלום גם בהדפסה ע"י מדפסת חיצונית...

 

[אלחנן אריאל]

חוץ מזה כשאני מפעיל את המאקרו אצלי אני לא רואה כלום גם בהדפסה ע"י מדפסת חיצונית...

לא הבנתי.

 

[Yisrael]

באם אני מפעיל את המאקרו על מסמך וורד אצלי, אינני רואה דבר בין אם אני מייצא אותו ע"י האופציה של וורד ובין אם אני מייצא אותו ע"י מדפסת חיצונית.
לעומת זאת את המסמך וורד שאתה נתת כאן ע"י הדפסה במדפסת PDF אני רואה את סימני החיתוך.

 

[אלחנן אריאל]

כפי הנראה המאקרו לא עובד אצלך!

 

[Yisrael]

אם אין אני לי מי לי...

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

בשביל להגדיר על איזו כותרת יפעל המאקרו צריך לשנות בשורה הבאה בתוך הסוגריים לאפשרות הנרצית:

Set rng = Selection.Sections.First.Headers(wdHeaderFooterPrimary).Range

תודה לאלחנן ולקרש (בפרטי) על הניסיון לעזור, וקרדיט לעמוד הזה...

 

[אלחנן אריאל]

אנשים טובים, יש למישהו רעיון לסימני חיתוך בגבולות העמוד כולל השוליים?

 

[Yisrael]

אנשים טובים, יש למישהו רעיון לסימני חיתוך בגבולות העמוד כולל השוליים?

לא הצלחתי להבין כוונתך, אם יהיו סימני חיתוך בגבולות העמוד ממש הרי לא תראה אותם כלל, לא?
או שלא הבנתי אותך נכונה...

 

[אלחנן אריאל]

לא הצלחתי להבין כוונתך, אם יהיו סימני חיתוך בגבולות העמוד ממש הרי לא תראה אותם כלל, לא?
או שלא הבנתי אותך נכונה...

אם אני עובד על מסמך בגודל חצי שמינית, ומדפיסו לפדף ע"ג דף A4, אראה את סימני החיתוך.

 

[Yisrael]

מכיון שאיני מנוסה ביצירת מסמכים בגדלים שונים אשמח אם תבהיר לי בדיוק היכן מגדירים את גודל הדף במסמך והיכן את הדף המודפס ב-PDF

 

[אלחנן אריאל]

1. בהגדרת עמוד, יש כרטיסיה נייר, בה מגדירים את גודל הדף.

2. בהדפסה רגילה לפדף במדפסת של אדובי, אם לא תשנה כלום בהגדרות, הוא ידפיס את המסמך על גודל נייר A4, ונמצא שהמסמך ממוקם במרכזו של דף A4 עם שוליים רחבות יותר.

מקווה שהובנתי,
ותודה רבה מאוד

 

[צורת הדף]

אלחנן, מחוק שורות אלו מהמאקרו ונסה שוב:

With ActiveDocument.PageSetup
    sngLeft = .LeftMargin
    sngRight = .RightMargin
    sngTop = .TopMargin
    sngBottom = .BottomMargin
End With

 

[אלחנן אריאל]

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

ותודה רבה מאוד ר' קרש, על כל עזרתך בכלל, ובפרט.

 

[Yisrael]

גם אני בעניותי חשבתי לעשות כהר' קרש, אלא שלכאו' לפי מה שהצלחתי להבין יהיה זה פתרון רק לסימני החיתוך השמאליים (למעלה ולמטה) ואילו סימני החיתוך הימניים לא יצאו במקומם.

אם נשים לב המאקרו הנ"ל מיועד לרוחב וגובה עמוד מסוימים (A4 כלשהו או במילים אחרות: 21.59*27.94), והשינוי ניכר במעט (אצלי לכה"פ) - שוב - בצד הימני.

במחשבה שנייה, לכאורה גם הסימונים שבצד שמאל למעלה לא ייצאו במקום הרצוי.

לפום ריהטא לפתרון הבעיה יש להחליף בכל מקום שכתוב בפונקציות את הספרה 792 להחליף במשתנה שיכיל את הערך של ActiveDocument.PageSetup.PageHeight, ובכל מקום שכתוב את הספרה 612 יש להחליף במשתנה שיכיל את הערך של ActiveDocument.PageSetup.PageWidth.

כל זה מלבד מה שקרש כתב.

כן נראה לענ"ד מקופיא.

 

[Yisrael]

לכאורה הקוד הבא יעשה את המבוקש:

Sub PlaceCropmarks()
Dim sPrintField As String
Dim rng As Range
sPrintField = " \p page " & Chr$(34) & " .5 setlinewidth "
sPrintField = sPrintField & BottomLeft
sPrintField = sPrintField & TopLeft
sPrintField = sPrintField & TopRight
sPrintField = sPrintField & BottomRight
sPrintField = sPrintField & "stroke" & Chr$(34)
Set rng = Selection.Sections.First.Headers(wdHeaderFooterFirstPage).Range
rng.Collapse wdCollapseStart
rng.Fields.Add Range:=rng, _
    Type:=wdFieldPrint, _
    Text:=sPrintField, _
    PreserveFormatting:=True
End Sub
Function BottomLeft() As String
Dim sReturn As String
sReturn = 0 & " " & -2 & " moveto "
sReturn = sReturn & 0 & " " & -38 & " lineto "
sReturn = sReturn & -2 & " " & 0 & " moveto "
sReturn = sReturn & -38 & " " & 0 & " lineto "
BottomLeft = sReturn
End Function
Function TopLeft() As String
Dim PageHeig As Single, sReturn As String
PageHeig = ActiveDocument.PageSetup.PageHeight
sReturn = 0 & " " & PageHeig + 2 & " moveto "
sReturn = sReturn & 0 & " " & (PageHeig - 2) + 36 & " lineto "
sReturn = sReturn & -2 & " " & PageHeig & " moveto "
sReturn = sReturn & -38 & " " & PageHeig & " lineto "
TopLeft = sReturn
End Function
Function TopRight() As String
Dim PageWid As Single, PageHeig As Single, sReturn As String
PageWid = ActiveDocument.PageSetup.PageWidth
PageHeig = ActiveDocument.PageSetup.PageHeight
sReturn = PageWid & " " & PageHeig + 2 & " moveto "
sReturn = sReturn & PageWid & " " & (PageHeig - 2) + 36 & " lineto "
sReturn = sReturn & PageWid + 2 & " " & PageHeig & " moveto "
sReturn = sReturn & (PageWid + 2) + 36 & " " & PageHeig & " lineto "
TopRight = sReturn
End Function
Function BottomRight() As String
Dim PageWid As Single, PageHeig As Single, sReturn As String
PageWid = ActiveDocument.PageSetup.PageWidth
PageHeig = ActiveDocument.PageSetup.PageHeight
sReturn = PageWid & " " & -2 & " moveto "
sReturn = sReturn & PageWid & " " & -38 & " lineto "
sReturn = sReturn & PageWid + 2 & " " & 0 & " moveto "
sReturn = sReturn & (PageWid + 2) + 36 & " " & 0 & " lineto "
BottomRight = sReturn
End Function

אלחנן, תודיעיני אם עובד...

 

[אלחנן אריאל]

אינו עובד אצלי.

 

[Yisrael]

ועכשיו?

Sub PlaceCropmarks()
Dim sPrintField As String
Dim rng As Range
sPrintField = " \p page " & Chr$(34) & " .5 setlinewidth "
sPrintField = sPrintField & BottomLeft
sPrintField = sPrintField & TopLeft
sPrintField = sPrintField & TopRight
sPrintField = sPrintField & BottomRight
sPrintField = sPrintField & "stroke" & Chr$(34)
Set rng = Selection.Sections.First.Headers(wdHeaderFooterPrimary).Range
rng.Collapse wdCollapseStart
rng.Fields.Add Range:=rng, _
    Type:=wdFieldPrint, _
    Text:=sPrintField, _
    PreserveFormatting:=True
End Sub
Function BottomLeft() As String
Dim sReturn As String
sReturn = 0 & " " & -2 & " moveto "
sReturn = sReturn & 0 & " " & -38 & " lineto "
sReturn = sReturn & -2 & " " & 0 & " moveto "
sReturn = sReturn & -38 & " " & 0 & " lineto "
BottomLeft = sReturn
End Function
Function TopLeft() As String
Dim PageHeig As Single, sReturn As String
PageHeig = ActiveDocument.PageSetup.PageHeight
sReturn = 0 & " " & PageHeig + 2 & " moveto "
sReturn = sReturn & 0 & " " & (PageHeig - 2) + 36 & " lineto "
sReturn = sReturn & -2 & " " & PageHeig & " moveto "
sReturn = sReturn & -38 & " " & PageHeig & " lineto "
TopLeft = sReturn
End Function
Function TopRight() As String
Dim PageWid As Single, PageHeig As Single, sReturn As String
PageWid = ActiveDocument.PageSetup.PageWidth
PageHeig = ActiveDocument.PageSetup.PageHeight
sReturn = PageWid & " " & PageHeig + 2 & " moveto "
sReturn = sReturn & PageWid & " " & (PageHeig - 2) + 36 & " lineto "
sReturn = sReturn & PageWid + 2 & " " & PageHeig & " moveto "
sReturn = sReturn & (PageWid + 2) + 36 & " " & PageHeig & " lineto "
TopRight = sReturn
End Function
Function BottomRight() As String
Dim PageWid As Single, PageHeig As Single, sReturn As String
PageWid = ActiveDocument.PageSetup.PageWidth
PageHeig = ActiveDocument.PageSetup.PageHeight
sReturn = PageWid & " " & -2 & " moveto "
sReturn = sReturn & PageWid & " " & -38 & " lineto "
sReturn = sReturn & PageWid + 2 & " " & 0 & " moveto "
sReturn = sReturn & (PageWid + 2) + 36 & " " & 0 & " lineto "
BottomRight = sReturn
End Function

ד"א, בעצם שמתי לב שלא הוזכר בכל האשכול הזה שבוורד 2010 ישנה אופציה מובנית כזו...

 

[אלחנן אריאל]

1. שום דבר! לא מוסיף שום סימני חיתוך.

2. אצלך זה כן עובד?

3. לא הבנתי כוונתך, יש כזו אופציה מובנית ב2010?

 

[Yisrael]

1. - 2. אני אינני מצליח להדפיס ל-PDF דף קטן על A4 ולכן אינני רואה כלום באופן רגיל מכיון שהסימנים הם ממש בגבולות העמוד. מה שאני עושה זה להפעיל את המאקרו כאשר גודל העמוד מוגדר לקטן מ-A4 ואחרי הפעלתו אני משנה גודל העמוד ל-A4, ואז מדפיסו. באופן זה אני רואה את הסימון הימני למעלה מכיון ששאר הסימונים שוב הנם מעבר לגודל העמוד ואינם ניתנים לראייה.

תנסה לבדוק באופן שכתבתי ותראה אם זה עובד או שתדפיס למדפסת PostScript אם ישנה ברשותך כזו...

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