header en footer optioneel printen

[bibroni]

Hoi,

Ik heb standaard documenten gemaakt in Word 2007 voor ons bedrijf met netjes een header en een footer. Nu hebben we ook luxe papier waarop al een header staat voor gedrukt. Ze zouden graag willen dat je, op het moment dat je gaat printen, een keuze kunt maken welk papier je in de printer hebt gedaan en afhankelijk van die keuze de header en footer wel of niet geprint wordt.
Met zoeken ben ik terecht gekomen bij "conditional headers and footers" en het lijkt er op dat je iets zou moeten kunnen met Visual Basic for Applications... Ik zie alleen niet hoe ik dit gecombineerd krijg. Misschien gewoon omdat mijn VB programeer kunsten net iets boven het nul niveau liggen .

Kan iemand mij de juiste kant op wijzen?

Ik hoop het, uiteraard, ook nog downwards compatible te maken...

[Verwijderd]

begin eens met een macro op te nemen waarbij je header en footer verwijdert, en dan op die code verder te werken. aangezien vziw de vba-objecten in dit verband niet gewijzigd zijn, zal dit backwards compatibel zijn tem word 97.

voor extra gemak kan je indien mogelijk ook nog verschillende lades gebruiken voor het papier, zodat de gebruikers enkel hoeven te kiezen waarop ze willen afdrukken, en niet naar het printerlokaaltje moeten om eerst het juiste papier in te steken.

[Rfce]

* Rfce Denk even simpel
Heeft die printer meerdere bakken? Zo ja stop en ene papier in bak1 en het andere in bak2.
Maak 2 printers aan, 1 print default naar bak 1 en de ander naar bak2. Zo hoef je niet moeilijk te gaan doen met programma's maken die headers uitlezen of whatsoever.

[bibroni]

Dank voor de reacties! De printer heeft helaas maar één lade, en staat dus ook niet in een printerhok maar gewoon op het bureau :-p.

Waar ik, denk ik, vooral naar zoek is hoe is de keuze mogelijkheid krijg om de header wel of niet te krijgen zodra de gebruiker op "printen" drukt. Als dat niet mogelijk is zal ik moeten zorgen dat ze netjes het "header verwijder script" aan roepen (als ze er aan denken om het luxe papier te gebruiken moeten ze er misschien ook maar even aan denken om dat script te runnen...)

Ik ga weer even verder vogelen!

[Rfce]

ik heb even lopen stoeien... hier is een vba macro, zodra je deze runt (kun je ook achter een knopje zetten), zet hij de header en footer op hidden en print dan, vervolgens zet hij ze weer aan.

code:

Sub PrintZonderHeadFoot()
    Dim s As Section
        For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = True
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = True
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = True
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = True
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = True
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = True
    Next s
    
    Options.PrintHiddenText = False
    Dialogs(wdDialogFilePrint).Show
    
    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = False
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = False
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = False
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = False
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = False
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = False
    Next s

End Sub

[bibroni]

Rfce schreef op woensdag 23 juni 2010 @ 13:35:
ik heb even lopen stoeien... hier is een vba macro, zodra je deze runt (kun je ook achter een knopje zetten), zet hij de header en footer op hidden en print dan, vervolgens zet hij ze weer aan.

code:

Sub PrintZonderHeadFoot()
    Dim s As Section
        For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = True
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = True
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = True
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = True
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = True
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = True
    Next s
    
    Options.PrintHiddenText = False
    Dialogs(wdDialogFilePrint).Show
    
    For Each s In ActiveDocument.Sections
        s.Headers(wdHeaderFooterEvenPages).Range.Font.Hidden = False
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = False
        s.Headers(wdHeaderFooterPrimary).Range.Font.Hidden = False
        s.Footers(wdHeaderFooterEvenPages).Range.Font.Hidden = False
        s.Footers(wdHeaderFooterFirstPage).Range.Font.Hidden = False
        s.Footers(wdHeaderFooterPrimary).Range.Font.Hidden = False
    Next s

End Sub

Wow bedankt!