Office: (Office 2013) Makro: Range:=wdPrintCurrentPage druckt immer Seite 1

Hallo und danke für die Aufnahme hier,

zu meinem ersten Problem:
ich habe ein Makro, das ist recht kurz und lautet

Code:

Application.PrintOut Range:=wdPrintCurrentPage

Das ist als Button eingefügt und wenn ich da drauf drücke, druckte er mir bisher die aktuelle Seite.

Plötzlich hat sich das geändert und der Klick darauf druckt mir Seite 1.

Wenn ich über Drucken -> Aktuelle Seite drucken drucke, druckt er mir auch die aktuelle Seite.

Wenn ich das mit Makro aufzeichnen mache, erstellt er mir ein längeres Makro

Code:

Sub Makro2()
'
' Makro2 Makro
'
'
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Das speichere ich ab, führe es aus und er druckt mir wieder Seite 1. Er erkennt also nicht, dass ich mich auf Seite 2 oder 5 oder 1800 befinde.

Woran kann das liegen?

//iSd3d

 

Hallo,
ich kann dir leider nicht weiterhelfen.

Wollte nur anmerken, dass ich genau dasselbe Problem habe!
Alles schon versucht, Druckertreiber neu installiert, anderes Dokument, Makro aufgezeichnet, händisch in Visual Basic eingegeben...
Es ist echt nervig!!

Dieses Problem ist bei mir auch erst vorige Woche aufgetreten, bis zu diesem Zeitpunkt, gab es mit dem Makro/ Visual basic Modul kein Problem.
Seltsam finde ich nur, dass es bei meinem Arbeitskollegen mit gleichen Voraussetzungen (PC, Officeversion, gleicher Drucker)nach wie vor funktioniert??!

Möglicherweise habe ich ein Update durchgeführt und es liegt daran.....Visual Basic oder vllt. .NET Framework...??
Wäre natürlich der Wahnsinn, wenn es an einem Windows Update liegen würde..

naja, was soll ich sagen....This is Windows...

 

Tatsächlich habe ich mir genau das gedacht, wollte aber vorher mal sicher gehen, dass ich nicht einen grundsätzlichen Fehler gemacht habe.

Ein Bug in Word bedeutet aber, wie in Office eben üblich, dass man sich dran zu gewöhnen hat, weil er niemals beseitigt wird. Die Serienbriefe zum Beispiel sind ja seit mindestens 15 Jahren völlig verbuggt.

Eine Umgehung für häufig benötigte Seiten sind eigene Makros mit Inhalt

und entsprechend eigene Makros mit weiteren Seiten, wobei man dann schon fast die interne Druck-Funktion über "Start" benutzen kann.....

 

Für mich arbeitstechnisch der Wahnsinn schlechthin. Habe ein Word Dokument mit 520 Seiten, auf jeder Seite eine Adresse und bedrucke damit Kuverts.
Bei meinem Arbeitskollegen funktioniert das Makro übrigens auch nicht mehr. ...Wahrscheinlich ist das automatische Update durchgelaufen...*yeej*
Kennst du vllt. eine Möglichkeit, in der Seriendruck Ansicht schnell eine Adresse/Seite zu suchen und diese zu drucken??
Bin als Übergangslösung nun auf LibreOffice umgestiegen =D..doch da gefällt mir die Suchfunktion nicht, es werden Suchbegriffe nur abwärts gesucht bis Dokumentende und nicht quasi in Schleife durch das Dokument..

 

Update: Habe nun einen Workaround im answers.microsoft forum entdeckt:
http://answers.microsoft.com/en-us/...ng-since/f046b81a-06f0-4a20-a974-ef36a5001443

Es dürfte tatsächlich an einem Windows Update liegen.

Sub Makro1()

Dim rng As Range
With ActiveDocument
Set rng = .Bookmarks("\page").Range
rng.Select
.PrintOut , , wdPrintSelection
End With

End Sub

...So wie ich es verstehe, markiert dieses Makro alles auf der jeweiligen Seite und es wird die Markierung gedruckt.

 

Hurra, es geht wieder!

https://support.microsoft.com/de-de/kb/3080790