Alleen pagina 2 printen van een word document

[pennif]

Kan iemand me helpen met het maken van een makro ?
Ik wil namelijk dat wanneer iemand op het printer icoontje klikt, dat er alleen pagina 2 en hoger geprint wordt.
Pagina 1 mag niet geprint worden.
Dit wil ik graag zo maken zonder in het menu te komen.

 

[joost verdaasdo]

Hai Frank,

Dat kan.

Open het document waarin je deze functionaliteit wilt.
Ga naar extra/macro's/beveiliging en zet deze opgemiddeld.

Toets ALT+F11 en kies invoegen/module

Plak deze code in het codevenster (F7):

Sub FilePrintDefault()
Dim iTotal As Integer

 iTotal = ActiveDocument.BuiltInDocumentProperties(14)
 ActiveDocument.PrintOut Background:=False, _
                         From:=2, _
                         To:=iTotal, _
                         Item:=wdPrintDocumentContent, _
                         Copies:=1, _
                         Range:=wdPrintFromTo
End Sub

Deze code wordt gerund op het moment dat een gebruiker de printknop op de gewone werkbalk gebruikt.

See Yah! :thumb:

 

[pennif]

Helaas

Ik werk met word 2003 en helaas werkt de makro niet.

 

[joost verdaasdo]

Ik werk ook met 2003 wat werkt er niet? :thumb:

 

[pennif]

Ik heb de gegevens geplaatst in mijn document,
het bestand opnieuw opgeslagen maar loopt vast met de melding compileer fout sysntax error?
Ik zal je het document toesturen, dit is dus een document uit honderden. Misschien ziet U de fout (of mijn fout) direct.

met vriendelijke groet

 

[joost verdaasdo]

Ah ik zie het al ik heb een foutje gemaakt.

Hier de aangepaste versie:

Sub FilePrintDefault()
Dim sTotal As String

 sTotal = ActiveDocument.BuiltInDocumentProperties(14)
 ActiveDocument.PrintOut Range:=wdPrintFromTo, _
                         From:="2", _
                         To:=sTotal
End Sub

See Yah! :thumb:

 

[pennif]

Harstikke bedankt, 't werkt perfect.

Groeten
Frank

 

[joost verdaasdo]

Hai Frank,

Goed zo..graag gedaan! :thumb: