Ausdruck nur von bestimmten Seiten

09/05/2008 - 16:17 von Andreas Hess | Report spam
Hallo zusammen,

mittlerweile verwende ich Office 2007.
Ich weiß nicht, ob es daran liegt, aber wenn ich mit dem nachfolgenden
Ausschnitts eines Code etwas ausdrucken möchte, funktioniert das nur
bedingt. Es funktioniert, wenn ALLE Seiten gedruckt werden sollen.
Es funktioniert nicht, wenn nur manche Seiten gedruckt werden sollen.
Diese "manchen Seiten" werden vorher abgefragt und das Ergebnis der
Abfrage in der String-Variablen DruckSeitenVonBis abgelegt.
Die zu druckenden Bereiche werden in Office 2007 ja jetzt mittels
Kommata und Bindestrich, nicht merh mittels Semikola und Bindestrich.
Das wird aber berücksichtigt

Kann jmd helfen?


********************

If DruckSeitenVonBis <> "alle" Then

Application.PrintOut filename:="", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentWithMarkup, Copies:=AnzSeiten,
Pages:=DruckSeitenVonBis, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
False, PrintToFile:=False, PrintZoomColumn:=0,
PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

ElseIf DruckSeitenVonBis = "alle" Then

Application.PrintOut filename:="", Range:=wdPrintAllDocument,
Item:= _
wdPrintDocumentWithMarkup, Copies:=AnzSeiten, Pages:="",
PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True,
Background:= _
False, PrintToFile:=False, PrintZoomColumn:=0,
PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

End If

********************

Danke schon jetzt!

Grüße, Andreas
 

Lesen sie die antworten

#1 Thomas Gahler
09/05/2008 - 17:26 | Warnen spam
Hallo Andreas

Es funktioniert nicht, wenn nur manche Seiten gedruckt werden sollen.


Da wàre eigentlich interessant zuwissen, was denn eigentlich nicht
funktioniert. Wird nichts gedruck, oder weiterhin alles oder sonst was?


If DruckSeitenVonBis <> "alle" Then
Application.PrintOut filename:="", _
Range:=wdPrintAllDocument, _
Item:= wdPrintDocumentWithMarkup, _
Copies:=AnzSeiten, _
Pages:=DruckSeitenVonBis, _ [...]


Soi auf den ersten Blick passt mir dein Wert (wdPrintAllDocument) für die
.Range-Eigenschaft nicht ganz. Ich würde da eher auf wdPrintRangeOfPages
setzen.




Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen