Office: Standarddrucker festlegen

Hallo,
da ist schon wieder eins meiner Probleme. Mit der folgenden Function wird der Standard-Drucker von Windows festgelegt. Das funktioniert auch. Das hat auch mit Access97 unter w2k hervorragend geklappt.
Nur jetzt mit Access 2002 unter w2k wird der Drucker zwar umgesetzt, aber das Access benutzt den urspünglichen weiterhin. *frown.gif*

Hat jemand eine Lösung?



Public Function SetDefaultPrinter(PrName As String)
' Parameter: Druckername
' Rückgabewert: Erfolg der Aktion
Dim Buffer As String, RW, Tmp As String
On Error GoTo Er

Buffer = String(255, 0)
RW = GetProfileString(ByVal "devices", ByVal PrName, ByVal "", Buffer, Len(Buffer))
If RW

:)

 

Hi Ostra,

guck doch mal in diesen Thread....

http://www.ms-office-forum.net/forum...threadid=80138

Da steht weiter unten ein guter Code für die Druckerauswahl unter Access.

Klappt bei mir seitdem hervorragend.

Grüße Bava, der gleich wieder im klimatisierten Serverraum verschwindet

 

Hi Bava,

danke für den Hinweis, aber es der gleiche Code, den ich benutze.
Das Problem muß in einer anderen Ecke stecken, denn nach erneutem offen der Access2002-Applikation nach der Umstellung des Druckers wird er bedient.

 

hmmm,

wenn du den gleichen Code verwendest, achte doch mal darauf welcher Drucker als Standard in Windows eingestellt ist. Ich hab festgestellt, das die ganze Sache etwas instabil wird, wenn man während Access läuft etwas an der Druckerkonfiguration unter Windows ändert.

Es empfiehlt sich also nicht im Hintergrund die Access-Anwendung laufen zu haben und im Vordergrund in Word einen anderen Drucker zu verwenden....

hth

Bava

 

Danke Bava,

ich habe die Routine entfernt, neu importiert, alles neu kompiliert und....
es läuft.

gruß Ostra

 

Hab den Code, der hier zu finden ist:
http://www.ms-office-forum.net/forum...threadid=99058

Ich denke es ist ein guter Code, der bei den meisten klappt.

Nun, ich habe Windowx XP und Office 2003

Er setzt den originalen Standard-Drucker nicht!

In der Funktion: Function SetDefaultPrinter
passen alle Variablen, ich der Drucker der Übergeben wird (OldPrinter) ist mein vorheriger Standard-Drucker, nur wird der Standard-Drucker nicht gesetzt und nach dem Druckvorgang ist überhaupt kein Drucker mehr als Standard eingestellt!

Ich bitte um Mithilfe, arbeit jetzt schon 2 Tage an dem Mist


Lg MAtthias