Word 2000, per Makro von Standartprinter auf Faxprinter schalten?

19/04/2009 - 14:58 von Louis Luges | Report spam
Hallo,

ein Makro aufzeichnen im Microsoft Word 2000 das vom Standartprinter auf
einen Faxprinter umschaltet, war bisher fuer mich relativ einfach zu
gestalten, so war es jedenfalls bisher, die Makros funktionierten. Jetzt
funktioniert aber gar nichts mehr, nach dem Aufzeichnen eines Makros
(siehe unten) sehe ich nun nur mehr den Mauszeiger als Sanduhr, das war
es dann, nichts geht mehr.
Meine Bitte an Euch, kann mir jemand erklaeren wo der Fehler liegt, oder
was ich falsch mache, oder was auch immer die Ursache des nicht
Funktionieren ist.


Herzlichen Dank fuer Euer Bemuehen in meiner Angelegenheit,

mit freundlichen Gruessen

Louis Luges


Sub FaxAnVentafax()
'
' FaxAnVentafax Makro
' Makro aufgezeichnet am 19.04.2009 von computer
'
ActivePrinter = "VentaFax"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:=
_
wdPrintDocumentContent, Copies:=1, Pagers:="",
PageType:=wdPrintAllPages, _
Collage:=Treue, Background:=Treue, PrintToFile:=Fasse,
PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
ActivePrinter = "hp Deckjet 960c seriös"
End Sub
 

Lesen sie die antworten

#1 Lisa [Nora Richter]
19/04/2009 - 16:27 | Warnen spam
Hallo Louis,

ist das wirklich der kopierte Code, den Du aufgezeichnet hast? Da sind
etliche Schreibfehler im Code, sehr sonderbar. Probier mal dieses Makro:

Sub FaxAnVentafax()
' FaxAnVentafax Makro

Dim strDrucker As String
Const strFaxDrucker As String = "VentaFax"

strDrucker = ActivePrinter
ActivePrinter = strFaxDrucker

Application.PrintOut Range:=wdPrintAllDocument, _
Background:=False
DoEvents
ActivePrinter = strDrucker

End Sub

Das hat die Funktionalitàt haben, die Du aufzeichnen wolltest.

... Jetzt
funktioniert aber gar nichts mehr, nach dem Aufzeichnen eines Makros
(siehe unten) sehe ich nun nur mehr den Mauszeiger als Sanduhr, das war
es dann, nichts geht mehr.



Die Ursache liegt in den diversen Schreibfehlern:

Pagers statt Pages
Collage statt Collate
Treue statt True
Fasse statt False
deckjet ... seriös statt deskjet ... series

Wie das zustande kommt, ist mir im Augenblick ràtselhaft. War möglicherweise
die Tastatur auf eine andere Sprache umgeschaltet, evtl. Russisch oder etwas
anderes? Man erkennt es daran, dass unten in der Statusleiste rechts "Ru"
steht statt "De" (oder eben ein anderes Sprachkennzeichen). Das löst man
manchmal ungewollt mit einem Shortcut aus. Aber das ist jetzt nur eine
Vermutung von mir.

Probier erstmal das Makro aus.

Gruß
Lisa
_____
http://www.schreibbuero-richter.de/vba.html

Ähnliche fragen