'Aktuelle Seite' mit WORD 2002-Makro drucken

Hallo,

'Aktuelle Seite drucken' funktioniert einwandfrei aus dem Druckmenü und auch per Makro auf den Standarddrucker.

Da ich mit mehreren Druckern arbeite, möchte ich den zu verwendenden Drucker im Makro einstellen:

Sub Samsung_AktS()
'
Standarddrucker = Application.ActivePrinter
ActivePrinter = "Samsung CLP-300 Series"
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
ActivePrinter = Standarddrucker
End Sub

Ergebnis: es wird mit dieser Methode stets die der aktuellen Seite vorangehende gedruckt.
Wie bringe ich das Makro dazu, tatsächlich die aktuelle Seite zu drucken?

Danke und freundliche Grüße
Hajo

 

Hi,

wir wär's damit:

Code:

 ActiveDocument.PrintOut Range:=wdPrintCurrentPage + 1

 

Hallo Sailor Bill,

danke für die Mitarbeit; leider funktioniert das nicht mit der letzten Seite einer Datei: 'Ungültiger Druckbereich'.

Nach Einsatz einiger Stunden bin ich auf folgende Lösung gekommen:

Seite markieren, kopieren, neue Datei öffnen (die nur eine Seite enthält), einfügen und drucken:

Sub Samsung_AktS()
'
' Laser_AktS Makro
' Makro aufgezeichnet am 03.11.2007 von
'
Standarddrucker = Application.ActivePrinter
ActivePrinter = "Samsung CLP-300"
Selection.GoTo What:=wdGoToBookmark, Name:="\page"
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdPasteDefault)
ActiveDocument.PrintOut Range:=wdPrintCurrentPage
ActiveDocument.Close _
SaveChanges:=wdDoNotSaveChanges
ActivePrinter = Standarddrucker
End Sub

 

Warum so kompliziert.

Wie ist denn die Fehlernummer zu "'Ungültiger Druckbereich"?

Dann kannst Du das mit der Fehlerbehandlung abhandeln:

Code:

On Error Goto Handler
ActiveDocument.PrintOut Range:=wdPrintCurrentPage + 1
On Error Goto 0

Handler:
If err.Number = <Fehlernummer> Then
  ActiveDocument.PrintOut Range:=wdPrintCurrentPage
  err.Number = 0
  Resume Next
End If

 

Hallo Sailor Bill,

danke, das war's.

Freundliche Grüße

Hajo

 

Hi,

"das war's" im Sinne von "das ist die Lösung" oder im Sinne von "Ende, Schluß, aus"?

Ich nehme mal an, ersteres.