PDA

Vollständige Version anzeigen : Duplexdruck in Word97


Sobsy
09.05.2001, 12:03
Habe ein VBA-Makro geschrieben um unter Word97 SR-2 einen Duplexdruck zu starten.
Duplexdruck bedeutet Vorder- und Rückseite bedrucken nachdem die gedruckten Seiten in den direkte Zufuhr gelegt wurden.

Das Skript sieht wie folgt aus:
Sub duplexdruck()
Dim booDruckfolge As Boolean

booDruckfolge = Options.PrintReverse

Options.PrintReverse = True
ActiveDocument.PrintOut pagetype:=wdPrintEvenPagesOnly, _
Background:=False

MsgBox "Warten Sie, bis alle geraden Seiten ausgedruckt sind!" & vbCr & vbCr & _
"Legen Sie diese Seiten dann wieder in den Papiereinzug Ihres Druckers " & _
"und bestätigen Sie die Fortsetzung des Druckvorgangs mit OK ..."

Options.PrintReverse = False
ActiveDocument.PrintOut pagetype:=wdPrintOddPagesOnly

Options.PrintReverse = booDruckfolge

End Sub

Leider funktioniert es nicht so wie es sollte. Kann mir jemand helfen.
Danke schon im voraus.

Stefan Kulpa
18.05.2001, 08:28
Hallo,

auf den Online-Seiten der MSDN kannst Du fündig werden; u.a. hier:


<A HREF="http://support.microsoft.com/support/kb/articles/Q294/7/48.ASP
" TARGET=_blank>http://support.microsoft.com/support/kb/articles/Q294/7/48.ASP
</A> <A HREF="http://support.microsoft.com/support/kb/articles/Q194/3/06.ASP
" TARGET=_blank>http://support.microsoft.com/support/kb/articles/Q194/3/06.ASP
</A> <A HREF="http://support.microsoft.com/support/kb/articles/Q230/7/43.ASP
" TARGET=_blank>http://support.microsoft.com/support/kb/articles/Q230/7/43.ASP
</A>

Gruß

WalterS
06.07.2001, 18:10
Zum drucken der geraden und ungeraden Seiten gibt es folgenden Trick

Angenommen Bericht = "E_Buch"
dim j as integer

Application.Echo False ' unterdrückt die Bildschirmanzeige, sollte erst nach Funktionieren eingebaut werden
DoCmd.OpenReport "E_Buch", acPreView ' Öffnet den Bericht
for j = 1 to Reports!E_Buch.Pages Step 2 ' geht alle ungeraden Seitenzahlen durch
DoCmd.PrintOut , j, j ' druckt die ungeraden Seiten aus
next
DoCmd.Close acReport, "E_Buch" ' schliesst den Bericht
Application.Echo True ' schaltet Bildschirm ausgabe wieder ein

Mit for j = 2 to Report!E_Buch.Pages Step 2 in obigem Code erehältst du die geraden Seiten. Wichtig für "Pages" und "Printout" ist das der Bericht in Entwurfsansicht geöffnet wird. Application.Echo verwende ich nur nach intensivem Testen. Man kann natürlich auch den Bericht öffnen, minimalisieren und den Fokus wieder auf sein Formular setzen. Dann werden immer die Hinweise "drucke Seite..........." angezeigt.

Stefan Kulpa
06.07.2001, 20:29
<font face="Verdana" size="2">Hallo Walter,

der Beitrag von Sobsy ist wohl im falschen Forum gelandet - er spricht von einem Word-Makro.
Dein Beispiel ist allerdings Access basiert; den DoCmd-Befehl gibt es in Word nicht, das führt wohl eher zu Verwirrung.

Stefan
</font>