Falzmarkierung wird nicht mitgedruckt

Computer: Software & Programmierung Office Software
#1

Hallo,

ich habe mir folgendes Makro aus dem Internte gezogen, dass die Erstellung von Falz- und Lochmarkierungen ermöglicht. Mein Problem ist jedoch, dass die Markierungen nicht mit auf das Papier gebracht werden.

MAKRO:

Sub Falz_LochmarkierungSetzen()

Dim Objekt As Object
Dim Falt1 As Shape
Dim Falt2 As Shape
Dim Loch As Shape

Set Objekt = ActiveDocument.Sections(1).Headers(1)
Set Falt1 = Objekt.Shapes.AddLine(CentimetersToPoints(0.2), _
CentimetersToPoints(10.4), _
CentimetersToPoints(0.1), _
CentimetersToPoints(10.4))

Falt1.Line.Weight = 0.25
Falt1.LockAnchor = True

Set Falt2 = Objekt.Shapes.AddLine(CentimetersToPoints(0.2), _
CentimetersToPoints(20.3), _
CentimetersToPoints(0.1), _
CentimetersToPoints(20.3))

Falt2.Line.Weight = 0.25
Falt2.LockAnchor = True

Set Loch = Objekt.Shapes.AddLine(CentimetersToPoints(0.3), _
CentimetersToPoints(14.85), _
CentimetersToPoints(0.1), _
CentimetersToPoints(14.85))
Loch.Line.Weight = 0.25
Loch.LockAnchor = True

End Sub

#2

Basisfrage
Hallo Eric,

kann es sein, dass die Falzmarken ganz am Rande des Blattes sind? Bist du dir sicher, dass dein Drucker die auch drucken KANN? Viele Drucker (auch Laserdrucker) haben ca. 1/4" unbedruckbaren Rand.

Gruß

Stefan

#3

Hallo,

ja, ich habe Falzmarkierungen absichtlich an den Rand gesetzt. Werd aber mal versuchen ob sie gedruckt werden wenn ich sie mehr mittig setze

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Habe die Falzmarkierungen mehr in die Mitte gesetzt. Jetzt funktioniert es und sie werden mit ausgedruckt.

MfG Eric

#5

Hallo Eric,

hast Du noch den Link wo Du dir das Markro hergeholt hast … oder kennt jemand einen guten anderen?

viele grüße
Steffi