| |
Visual-Basic EinsteigerFehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: imebro | Datum: 04.02.15 11:38 |
| Hallo,
wir nutzen auf einem Terminalserver (Server 2008) ein individuell für uns programmiertes Programm auf unserer Arbeitsstelle. Der Zugriff erfolgt über eine Remotedesktopverbindung.
Der damalige Programmierer arbeitet jedoch seit ein paar Jahren nicht mehr mit uns zusammen.
Das Programm basiert auf einer älteren Delphi-Version und für die Nutzung wird Word 2000 benötigt, welches auch installiert ist.
Nun erschien seit ein paar Monaten bei einer Kollegin bei jedem Programmstart die Fehlermeldung
"Es wurde kein Standarddrucker gewählt"
Dies ist jedoch nicht so, denn wenn ich unter "Geräte und Drucker" schaue, ist der für das Programm benötigte Drucker gewählt.
Jedesmal muss die Kollegin das Programm über den Taskmanager raus kicken und dann unter "Geräte und Drucker" zunächst einen anderen Drucker zum Standarddrucker machen und anschließend den ursprünglichen wieder auswählen. NUR DANN startet das Programm ohne diese Fehlermeldung.
Seltsam ist, dass es auch nicht über ein Script funktioniert, welches ich kurz testweise geschrieben hatte. Dieses Script setzt einfach einen anderen Drucker als Standard und danach den ursprünglichen Drucker wieder als Standard... klappt nicht!!
Es geht tatsächlich nur dann, wenn man diese 2 Schritte manuell durchführt.
Seit gestern hat nun eine weitere Kollegin das gleiche Problem und deshalb stelle ich jetzt hier die Frage und würde mich freuen, wenn Ihr helfen könnt.
Ich kopiere hier einmal das von der betroffenen Kollegin hauptsächlich benutzte Makro ein:
Sub D_ePost()
'
ActivePrinter = "E-POSTBUSINESS BOX Printer"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
'
ActivePrinter = "\\dasfile\Maier_Blanko"
'
End Sub Zunächst war der Drucker "\\dasfile\Maier_Blanko" der Standarddrucker.
Dann erfolgt über das Makro zunächst der Druck auf dem ePost-Drucker und am Ende wird wieder der ursprüngliche Standarddrucker gesetzt.
Das funktioniert alles prima, bis auf das Problem mit der Fehlermeldung, die an jedem neuen Tag auftaucht, wenn sie sich auf dem Terminalserver angemeldet hat und das Programm startet.
IDEE:
Kann es sein, dass vielleicht über die letzte Code-Zeile "ActivePrinter = "\\dasfile\Maier_Blanko" der Standarddrucker nicht korrekt oder dauerhaft... oder wie auch immer... gesetzt wird?
Könnte man ggf. über den Einsatz von "strPrinterDefault" im Code etwas erreichen?
Danke und schöne Grüße,
imebro | |
Re: Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: imebro | Datum: 05.02.15 15:49 |
| Hmmm... 30 Views und kein Tipp?
Wäre schön, wenn jemand von Euch einen Rat hätte.
Danke und Gruss,
imebro | |
Re: Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: Blackbox | Datum: 05.02.15 17:47 |
| Hallo,
ich denke Du bist nah an der Lösung dran ;) Es dürfe die letzte Codezeile sein. Verändere die Sub vielleicht so:
Sub D_ePost()
'
Static sPrinter As String
IF sPrinter = "" THEN sPrinter = "\\dasfile\Maier_Blanko"
ActivePrinter = "E-POSTBUSINESS BOX Printer"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
'
ActivePrinter = sPrinter
'
End Sub | |
Re: Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: minimalist | Datum: 05.02.15 17:49 |
| Na ja, Word 2000, Delphi ist Pascal. Muss man erstmal wissen:
Also was genau tut das Delphi Programm?
Printer Buttons erstellen wäre vieleicht eine Lösung? | |
Re: Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: imebro | Datum: 06.02.15 09:25 |
| Danke Dir.
Werde den Code mal testen.
LG
imebro | |
Re: Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: imebro | Datum: 06.02.15 10:04 |
| Hallo und danke.
Was das Programm nun genau macht, würde den Rahmen hier sprengen.
Es wurde speziell für uns programmiert und druckt eben Dokumente in Word 2000 aus.
Es gibt also eine Schnittstelle zu MS Office 2000...
Printer Buttons habe ich schon erstellt, aber das hatte nichts verändert.
Versuche jetzt zunächst mal den Code-Vorschlag von "Blackbox" und hoffe, dass er schon eine Lösung bringt
Danke und Gruss,
imebro | |
Re: Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart | | | Autor: OGGI | Datum: 06.02.15 18:34 |
| Im Heimnetzwerk funktionieren lange Druckernamen mit Sonderzeichen, Leerzeichen und mehr als 8 Zeichen in der Regel. In einem Firmennetzwerk sollte man sich jedoch an die alte DOS-Konvention halten und wenn möglich eben nicht mehr als 8 Zeichen verwenden. Der Code ist in Ordnung, schließlich läuft der ja schon "ewig". Freigaben und Berechtigungen der User überprüfen. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevWizard für VB5/6
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|