Office: (Office 2010) Standarddrucker

Hallo zusammen

Ich versuche seit geraumer Zeit mir eine Schaltfläche zu basteln mit der ich den Standarddrucker per Mausklick ändern kann.

Folgende Situation:

Ich habe eine Tabelle in der verschiedene Standardwerte enthalten sind, darunter auch 2 verschiedene Drucker.
In einem Formular habe ich ein Unterformular mit genau diesen Werten die bei bedarf abgerufen werden können. Nun habe ich versucht mit folgendem Code den Drucker zu ändern.


-----------------------------------------------
Private Sub Befehl330_Click()

Dim Drucker As String

Drucker = "me!frmunterstandardwerte!tstandarddrucker"

rundll32 printui.dll, PrintUIEntry / Y / n(Drucker)

End Sub
---------------------------------------------------

funktioniert aber nicht und ich bekomme es einfach nicht hin..

Kann mir da bitte jemand helfen??

Danke

 

Hallo,

so kann das leider nicht funktionieren. Du musst den DLL-Aufruf richtig in VBA einbetten:

Code:

Private Sub Befehl330_Click()

   Dim Drucker As String

   Drucker = Me!txtDruckerName

   Shell "rundll32.exe printui.dll, PrintUIEntry /y /n" & Drucker, vbHide

End Sub

Vorausgesetzt wird hier, dass du ein Formular hast, in dem es ein Textfeld namens "txtDruckerName" gibt und einen Befehlsbutton namens "Befehl330".

Du musst insbesondere das korrekte Verwenden der Anführungszeichen beachten; ferner muss unbedingt der RunDLL-Parameter "/y" klein geschrieben werden, denn "/Y" hat eine andere Bedeutung. Es darf auch kein Leerzeichen zwischen "/" und "y" enthalten sein, ebenso nicht zwischen "/" und "n" und Druckername.
Bei dem Drucknernamen im Textfeld "txtDruckerName" muss es sich um den Freigabename des Druckers unter Windows handeln.

 

Hallo

Super, hat funktioniert. Nur ein, zwei kleine Änderungen bei den Bezeichnungen..... Super

Vielen Dank