Word printen met meerdere opdrachten.

[Holidaybuggy]

Wie kan mij helpen?

Ik wil graag een document printen van ±400bladzijde.

Maar...
Eerst moet bladzijde 1 worden geprint.
Dan bladzijde 2
Dan bladzijde 3 enz..
t/m ±400

Kortom, in afzonderlijke printopdrachten.
(ivm printregistratiesysteem)

Hoe doe ik dat?

 

[winnie de pooh]

Hoi,

Dit is bij mij zo.

Bestand> Afrdukken> Dan krijg je schermpje met allemaal instellingen> Dan links staat een kopje Afdrukbereik met de opties

- Alles
- Huidige Pagina (waarschijnlijk bij jou aangevinkt)
- Pagina 's ...

Vink dus wel even Alles aan.

suc6:thumb:

 

[Holidaybuggy]

Bedankt voor je reactie!

Maar nee, dat bedoelde ik niet.
Windows ziet het dan nog als 1 printopdracht.

Ik bedoel print pagina 1

nieuwe printopdracht print pagina 2

nieuwe printopdracht print pagina 3
(t/m ±400 bladzijde)

Dit wil ik liever niet met de hand doen.
Ik heb al wel gezocht maar kon alleen vinden dat Word bv opende op bladzijde 15 met een macro.

Ik wil dat Word elke bladzijde als een aparte printopdracht behandeld. (misschien kan dat dan ook wel met een macro)

 

[winnie de pooh]

Hmm tja van macro's heb ik geen verstand.

 

[Holidaybuggy]

Geeft niet, bedankt voor je reactie.

Hopelijk is het wel mogelijk wat ik wil.

 

[haakmeer]

als het gaat om selectief afdrukken
kan je ook optie - Pagina 's ... gebruiken.
bv
als je pagina 1 4 6 10 150 en 200 tm 210 wilt afdrukken
kan je dat alsvolgt invoeren
1,4,6,10,15,200-210 (- komt overeen met t/m)

Nu worden alleen de opgegeven pagina afgedrukt

 

[Holidaybuggy]

beste mensen,

de standaard optie's met printen van Word zijn mij helemaal bekend.

Maar als ik SELECTIEF afdruk dan wordt het behandelt als 1 printopdracht.
(dubbelklik op printericoon rechtsonderin tijdens printen van document. je ziet dan 1 print opdracht)

Wat ik dus bedoel is om ±400 printopdrachten te maken van een document met ±400 blz.

Dus als ik dan het printcommando geef dan wil ik een rij van ±400 printopdrachten zien als ik dubbelklik op het printertje rechtsonderin.

(Dus per bladzijde één printopdracht.)

 

[winnie de pooh]

Hmm ja ik begrijp nu GOED wat je bedoelt.

Ja ik denk dat je het toch telkens opnieuw moet doen. Maar dat is wel erg omhandig.

Maar even wat wil je hier mee bereiken dat je 400 printertaken hebt opens taan?

 

[Holidaybuggy]

We hebben hier een verouderd printsysteem die een beetje moet bijhouden hoeveel pagina's elke werknemer print.
Maar daar klopt niks van want als er 1 werknemer is die 1 bladzijde print en de volgende print er 20 dan heb je alsnog maar 2 printopdrachten.

Dus het systeem houdt nu alleen het aantal printopdrachten bij en op zo'n manier hoop ik het aantal bladzijde bij te kunnen houden.

Ik denk trouwens dat het wel met een printmacro moet kunnen maar helaas heb ik daar niet genoeg kennis voor.

Wie wel?

 

[Holidaybuggy]

Niemand enig idee?

 

[Holidaybuggy]

Ik ben nog steeds niet uit mijn probleem!

Is het helemaal niet mogelijk wat ik wil?
Want ik kan wel verzinnen wat ik graag wil hebben maar als het technisch niet mogelijk is dan is dan zoek ik me helemaal rot.

 

[ecd]

Hoi ik ben niet echt goed in macro's maar dit moet te zijn
maak eerst een macro die de huidige pagina print en daarna naar de volgende pagina gaat die macro ziet er ongeveer zo uit:
Sub print_per_pagina()
'
' print_per_pagina Macro
' Macro opgenomen op 20-6-2005 door Erik Demmers
'
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=""
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End Sub

Hierna moet je deze macro zichzelf laten aanroepen alles zou dan moeten werken

 

[Holidaybuggy]

Bedankt voor je reactie.

Ik heb het geprobeerd maar helaas.
De macro werkt (er komt een printopdracht uit) maar...
Het is en blijft maar 1 printopdracht.

Waar kan dat nog meer aan liggen?

 

[Holidaybuggy]

Niemand een idee?

 

[pmeijne]

Ik werk zelf niet met VBA ofzo, maar je zou zoiets kunnen maken:

$aantal_pagina = document.aantalpaginas()

$teller = 1

While $teller < $aantal_pagina
{

document.printpagina($teller)
$teller = $teller + 1

}

Dit is even symbolisch, misschien dat een VBA-expert hier wat moois van kan maken

Maar is het niet makkelijker een ander print-systeem te gaan zoeken? Want dit zorgt er wel voor dat je 400 pagina's langer erover doen om te worden geprint, en legt waarschijnlijk nog meer druk op je printserver.

En ik neem aan dat de registratie van het aantal pagina's is om te voorkomen dat de mensen teveel printen