op inslag printen

[theo]

Dag,

Ik wil op inslag printen; kan dit in microsoft word?

dus

pagina
12-1
2-11
10-3

enzovoort

alvast bedankt!

theo

[J.G. Kok]

Theo,

Onderstaande is met name interessant als je printer pagina's op één blad
kunt afdrukken: twee A5 op A4 of twee A4 op A3.
Er wordt eerst bepaald hoeveel pagina's er zijn en desnoods wordt het aantal
pagina's aangevuld totdat er een veelvoud van vier is.
Om tweezijdig te kunnen afdrukken voer je eerst de procedure
AfdrukkenVoorkant uit. Het papier leg je vervolgens weer in de printer,
waarbij het laatst afgedrukte blad onderaan ligt. Vervolgens voer je de
procedure AfdrukkenAchterkant uit.

Overigens worden in deze nieuwsgroep regelmatig vragen gesteld over het
afdrukken van A5 brochures. Ook in de antwoorden daarbij zul je het
afdrukken volgens inslagschema vinden.

Option Explicit
Dim blnVoor As Boolean
Function InslagPaginas()
Dim intPages As Integer
Dim intMod As Integer
Dim i As Integer
Dim rng As Range
Dim lngPos As Long
'bepaal aantal pagina's
intPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
'bepaal of aantal pagina's een veelvoud van 4 is
'anders aantal aanpassen door pagina-einden in te voegen aan het eind
van het document
intMod = intPages Mod 4
If intMod <> 0 Then
'aantal pagina's toevoegen
For i = 1 To 4 - intMod
lngPos = ActiveDocument.Content.End
Set rng = ActiveDocument.Range(Start:=lngPos - 1, End:=lngPos -
1)
rng.InsertBreak (wdPageBreak)
Next
intPages = intPages + 4 - intMod
End If
InslagPaginas = intPages
End Function

Sub InslagSchema(intPages As Integer)
Dim i As Integer
Dim varPages As Variant
If blnVoor Then
For i = 0 To intPages / 4 - 1
varPages = varPages & "," _
& intPages - 2 * i & "," & 1 + 2 * i
Next
Else
For i = 0 To intPages / 4 - 1
varPages = varPages & "," & 2 + 2 * i _
& "," & intPages - 1 - 2 * i
Next
End If
varPages = Mid(varPages, 2)
ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, _
Pages:=varPages
End Sub

Sub AfdrukkenVoorkant()
If Not blnVoor Then
blnVoor = True
InslagSchema InslagPaginas
Else
blnVoor = False
End If

End Sub

Sub AfdrukkenAchterkant()
If blnVoor Then
blnVoor = False
InslagSchema InslagPaginas
Else
MsgBox "U dient eerst de voorkant af te drukken"
End If

End Sub

Jan

[Tom]

Ik heb jouw macro eens uitgeprobeerd, maar vraag met welke paginainstelling
je dit toepast?

Tom.
"J.G. Kok" <jgko...@789freeler.nl> schreef in bericht
news:eKHpC#cjCHA.440@tkmsftngp11...

[J.G. Kok]

Tom,

Mijn antwoord begon met:

Onderstaande is met name interessant als je printer 2 pagina's op één blad
kan afdrukken: twee A5 op A4 of twee A4 op A3.

Hiermee bedoelde ik: gebruik gewoon A4 staand.
Stel de printer standaard in op 2 pagina's per vel.
Voer daarna deze macro uit.

In Word 2000 heb je de mogelijkheid om 2 A5 (staand) op 1 A4 (liggend) af te
drukken.
Dat kun je instellen bij paginainstellingen.
Je maakt je document dan in feite op op A5 formaat.
Als je vervolgens naelkaar de macro's Voorkant en Achterkant uitvoert worden
de pagina's op de juiste volgorde geprint. Je moet er wel voor zorgen dat de
eerste afgedrukte pagina bij de eerste ronde ook de eerste pagina wordt bij
de tweede ronde.

Jan