Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Fehlermeldung - Es wurde kein Standarddrucker gewählt - bei jedem Programmstart

Frage Entwicklung Basic

Mitglied: imebro

imebro (Level 2) - Jetzt verbinden

03.02.2015 um 14:12 Uhr, 3136 Aufrufe, 4 Kommentare

Hallo,

wir nutzen auf einem Terminalserver (Server 2008) ein individuell für uns programmiertes Programm auf unserer Arbeitsstelle.
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.

Danke und schöne Grüße,
imebro
Mitglied: emeriks
03.02.2015 um 18:42 Uhr
Hi,
wie greift Ihr denn auf die TS zu? ICA oder RDP?
Kann es sein, dass es sich bei den verbundenen Druckern um automatisch verbundene Clientdrucker handelt?

Entweder das TS-Benutzerprofil komplett löschen und neu aufbauen.

Oder von Hand löschen
HKEY_CURRENT_USER\Printers
(Dabei gehen aber auch alle benutzerspezifischen Einstellungen dieses Benutzers zu den einzelnen Druckern flöten.)

Danach neu anmelden lassen.

E.
Bitte warten ..
Mitglied: imebro
04.02.2015, aktualisiert um 09:51 Uhr
Hallo,

wir greifen über die Remotedesktopverbindung auf den Terminalserver zu.
Benutzerprofil löschen ist ganz sicher "mit Kanonen auf Spatzen geschossen"
Denke nicht, dass das nötig sein wird.

Es funktionierte ja bis vor ein paar Tagen, wo ich für die Kollegen ein Makro geschrieben hatte (mit Hilfe dieses Forums), um automatische Druckvorgänge realisieren zu können.

Hier der Link zum letzten Thread:
Druckername per VBA-Script

Ich kopiere hier einmal das von der betroffenen Kollegin hauptsächlich benutzte Makro ein:

01.
Sub D_ePost() 
02.
03.
    ActivePrinter = "E-POSTBUSINESS BOX Printer" 
04.
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ 
05.
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ 
06.
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _ 
07.
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 
08.
09.
    ActivePrinter = "\\dasfile\Maier_Blanko" 
10.
11.
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.

ABER:
Wenn die Kollegin dann am nächsten Tag auf den Terminalserver zugreift und das besagte Programm startet, erhält sie die Fehlermeldung

--> "Es wurde kein Standarddrucker gewählt".

Dann muss sie über "Start \ Geräte und Drucker" manuell einmal einen anderen Drucker als Standarddrucker wählen und anschließend wieder den gewünschten Drucker "\\dasfile\Maier_Blanko".

Erst dann kann sie die Fehlermeldung wegklicken und wieder normal arbeiten.
Das Problem taucht dann auch nicht mehr auf... bis zum nächsten Tag...

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
Bitte warten ..
Mitglied: emeriks
04.02.2015 um 16:37 Uhr
Benutzerprofil löschen ist ganz sicher "mit Kanonen auf Spatzen geschossen"
Mitnichten ....

Es funktionierte ja bis vor ein paar Tagen, wo ich für die Kollegen ein Makro geschrieben hatte (mit Hilfe dieses Forums), um automatische Druckvorgänge realisieren zu können.
Nette "Randinformation".

Versuche mal, den Standarddrucker abschließend so zu setzen:
01.
CreateObject("WScript.Network").SetDefaultPrinter "\\dasfile\Maier_Blanko"
Ändert das was?

E.
Bitte warten ..
Mitglied: imebro
06.02.2015, aktualisiert um 09:25 Uhr
Danke Dir "emeriks"...

Habe diese Codezeile jetzt mal an beiden Rechnern eingetragen und beim Test funktionierte es damit
Mal abwarten, ob es durchgehend so bleibt.
Am Montag / Dienstag weiß ich dann mehr, wenn die beiden Kolleginnen wieder da sind.

Jemand Anderes hatte mir den Tipp gegeben, den kompletten Code wie folgt abzuändern:

01.
Sub D_ePost() 
02.
03.
    Static sPrinter As String 
04.
  
05.
    IF sPrinter = "" THEN sPrinter = "\\dasfile\Maier_Blanko" 
06.
07.
    ActivePrinter = "E-POSTBUSINESS BOX Printer" 
08.
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ 
09.
        wdPrintDocumentContent, Copies:=1, Pages:="", _ 
10.
        PageType:=wdPrintAllPages, _ 
11.
        Collate:=True, Background:=True, PrintToFile:=False, _ 
12.
        PrintZoomColumn:=0, _ 
13.
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 
14.
15.
    ActivePrinter = sPrinter 
16.
17.
End Sub
Wäre das sinnvoll oder soll ich es lieber so lassen, wie es im Moment ist?

Danke und schöne Grüße,
imebro
Bitte warten ..
Ähnliche Inhalte
Grafikkarten & Monitore
Grafikkarte Fehlermeldung "Anzeigetreiber wurde zurückgesetzt"
Frage von MeterpeterGrafikkarten & Monitore6 Kommentare

Hallo ich habe mir ein neuen Rechner zusammengestellt und installiert. Windows 10 GTX 960 Gigabyte h97 hd3 Mainboard i5 ...

Visual Studio
Tastaturabfrage während Programmstart
gelöst Frage von MartinSVisual Studio2 Kommentare

Guten Tag, ich möchte während des Programmstarts meine Tastatur abfragen, ob eine bestimmte Taste gedrückt ist. Diese soll die ...

Datenbanken
Access - Berichterstellung eines gewählten Datums
gelöst Frage von m-hansDatenbanken4 Kommentare

Hallo, ich habe eine minimal Access Datenbank erstellt mit einem Formular über das ich meine gewünschten Daten eingebe. Unter ...

Windows Server
Standarddrucker auf Terminalserver
Frage von DeeJayBeeWindows Server4 Kommentare

Hallo, Auf unserem Terminalserver 2008 R2 wird bei Benutzern der durchgeleitete Drucker automatisch immer als Standarddrucker festgelegt. Kann man ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing7 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...