Autor: Maciej Pilichowski (macias_at_phys.uni.torun.pl)
Data: Fri 16 Feb 1996 - 11:44:07 MET
Hej,
Ufff, no nareszcie admin tina naprawil i listy moge pisac. Do rzeczy jednak
-- jakis czas temu ktos tu dopytywal sie o drukowanie skladanek w Wordzie.
Fakt, Word nie ma zadnych takich bajerow jak WP w tym zakresie, jednak to nie
znaczy, ze nie mozna go zmusic do ubslugi takich skladanek. Jak to zrobic?
Np. chodzi nam o wyrukowanie 15 stron w formacie A5, czyli dwie strony
wchodza na kartke A4. Taki wlasnie ustalamy rozmiar papieru -- A4 w poziomie!
Nastepnie przechodzimy do menu marginesy -- zaznaczamy "marginesy lustrzane" i
dajemy "margines na oprawe" rowny dokladnie polowie szerokosci kartki. To tyle
przygotowan. Teraz piszemy nasz tekst na 15 stronach. Przygotowujemy 4 kartki
A4, skladamy je w kupke, wpychamy do drukarki i...
1. drukujemy strony nieparzyste od 1 do 8
zbieramy kartki i powtornie wpychamy
2. drukujemy strony parzyste od 9 do 15
zbieramy kartki, odwracamy na druga strone i wpychamy
3. drukujemy strony nieparzyste od 9 do 15
zbieramy, wpychamy
4. i drukujemy parzyste od 1 do 8
No, a jakby komus nie chcialo sie wpisywac tych zakresow, to wystarczy
ze raz wklepie ponizsze makro -- samo wyliczy, z jakiego zakresu i ktore
strony ma drukowac, a takze przypomni, ze trzeba odwrocic kartki. Sprawdzilem,
dziala i sie mi podoba ;-) Co prawda 2 razy wiecej wkladania kartek niz
w WP, no ale coz...
Aha, jak ktos nie ma podajnika, to niech uwaza, zeby nie poprzestawial
kartek -- wynik moze zaskoczyc!
PONIZSZE MAKRO NIE DZIALA Z WORDEM 2.0. Przyczyna prozaiczna -- nie ma
tam zakresu nie- i parzystych stron.
Sub MAIN
Dim dlg As FileSummaryInfo
GetCurValues dlg
ls = Val(dlg.NumPages)
lk = Int((ls - 1) / 4) + 1
MsgBox "Wloz " + Str$(lk) + " kartek"
FilePrint .Range = 3, .From = "1", .To = Str$(lk * 2), .Order = 1
MsgBox "Wloz zadrukowane kartki"
FilePrint .Range = 3, .From = Str$(lk * 2 + 1), .To = Str$(ls), .Order = 2
MsgBox "Odwroc kartki i wloz je ponownie"
FilePrint .Range = 3, .From = Str$(lk * 2 + 1), .To = Str$(ls), .Order = 1
MsgBox "Ostatni raz wloz zadrukowane kartki"
FilePrint .Range = 3, .From = "1", .To = Str$(lk * 2), .Order = 2
End Sub
milego dnia zycze
hej
-- Maciej Pilichowski ul. Chodkiewicza 12b/5 87-100 Torun, Poland tel. (+48) (0-56) 334-34 e-mail: macias_at_class1.phys.uni.torun.pl
To archiwum zostało wygenerowane przez hypermail 2.1.7 : Tue 18 May 2004 - 12:39:05 MET DST