dubbelzijdig uit bak 1, rest dubbelzijdig uit bak 2 printen

[jen]

Kun je in Word een macro maken die het volgende doet:

Briefpapier moet dubbelzijdig uit bak 1 komen
Volgpapier moet dubbelzijdig uit bak 2 komen

(de printer staat al standaard op dubbelzijdig printen)

Bij het opnemen van de macro zie ik het volgende

With ActiveDocument.PageSetup
    .FirstPageTray = wdPrinterPaperCassette
    .OtherPagesTray = wdPrinterMiddleBin
  End With
End Sub

Het probleem is dat de eerste 2 pagina’s dus op briefpapier geprint moeten worden (1x voorkant en 1x achterkant).
De achterkant van het briefpapier blijft nu leeg omdat er staat aangegeven.
FirstPageTray = wdPrinterPaperCassette.

Kun je aangeven dat de eerste 2 pagina’s uit de eerste bak moet komen?

Ik weet dat je dit met een sectie einde kunt oplossen, maar ik wil graag 1 algemene macro. Anders moet ik 150 sjablonen aanpassen.

 

[jen]

Heeft iemand misschien nog idee hoe ik dit anders aan zou kunnen pakken?
Alle suggesties zijn welkom. Ik werk met Word 2003.

 

[snb]

Probeer eens

Sub Macro14()
  Options.DefaultTray = "[COLOR="Blue"]bovenste lade[/COLOR]"
  Activedocument.PrintOut  true, , , , "1,2"
  Options.DefaultTray = "[COLOR="blue"]middelste lade[/COLOR]"
  Activedocument.PrintOut , , , , "3-" & ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End Sub

Controleer eerst even met een macro wat de preciese aanduiding is van de papierladen (menubalk/Afdrukken.../opties...)

 

[jen]

Sorry voor mijn late reactie.
Bedankt voor het meedenken, maar met het testen wordt nu alles 2x geprint en alles komt helaas uit dezelfde bak.

Sub Afdrukkenbriefpapier()
  Options.DefaultTray = wdPrinterPaperCassette
  ActiveDocument.PrintOut True, , , , "1,2"
  Options.DefaultTray = wdPrinterLowerBin
  ActiveDocument.PrintOut , , , , "3-" & ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
End Sub

 

[jen]

Ik heb zelf nog wat zitten proberen en ben zover gekomen dat ik dubbelzijdig kan printen.
Pagina 1 en 2 uit een andere bak dan de andere pagina's.
Alleen werkt het niet bij documenten die via mailmerge zijn samengesteld.

Op het moment dat er een sectie einde volgende pagina (wdSectionBreakNextPage) wordt gevonden. Dan moet er opnieuw gekeken worden naar de printopdracht.
Heeft iemand hier misschien nog een tip voor?

Sub Afdrukkenbriefpapier()
Selection.HomeKey wdStory

With ActiveDocument.PageSetup
    .FirstPageTray = wdPrinterDefaultBin
    .OtherPagesTray = wdPrinterDefaultBin
End With

  Options.DefaultTrayID = 257
  ActiveDocument.PrintOut True, , wdPrintFromTo, , "1", "2"
  Options.DefaultTrayID = 259
  ActiveDocument.PrintOut True, , wdPrintFromTo, , "3"

End Sub

 

[snb]

For Each st In ActiveDocument.Sections
        With st.PageSetup
          .FirstPageTray = 257
          .OtherPagesTray = 259
        End With
    Next

 

[jen]

Bedankt voor je hulp.
Ik ben alleen vergeten te melden dat er in de documenten gebruik wordt gemaakt van meerdere sectie-einden.

Wat ik nu nog zoek is de code voor sectie-einde volgende pagina.

 

[Lytsekleef]

Hoi Jen, ik zit precies met hetzelfde probleem. Heb je de oplossing al voor dit probleem?

Ik heb een brieftemplate waar het eerste blad op briefpapier geprint moet worden en de volgende bladen op witpapier. Daarnaast moet de aangemaakte brief dubbelzijdig geprint worden. Dus pagina 1 en 2 dubbelzijdig op het briefpapier en als door het toevoegen van tekst de brief langer wordt dan 2 pagina's de rest op witpapier afdrukken.

Met paginainstellingen kan ik dit niet regelen. Als ik het in de paginainstellingen regel, wordt de eerste pagina op briefpapier afgedrukt en vanaf de 2e pagina op witpapier en dus dan pas dubbelzijdig.

Alvast bedankt voor je reactie!

 

[Henk Schepers]

even een reactie

Wat ik heb gedaan is een tweede printer aanmaken in configuratiescherm "printers" (dit is dan dezelfde printer)
dan de eigenschappen van elke printer aaanpassen. Bv.gebruik lade 1 en dubblezijdig printen.
dan hoef je alleen in de macro aan te geven met welke printer geprint moet worden en het aantal prints.
dat werkt goed

 

[huijb]

Topic stamt uit 2009 is dus niet meer actueel. Tevens een eigen vraag maken a.u.b. Het is niet netjes om in een ander zijn of haar vraag jouw probleem aan de orde te stellen. Bovendien is het verwarrend voor de helpers.