title image


Smiley Re: Default-Printer umstellen
Hallo Micha,



also das temporäre Umstellen des Standard-Druckers würde ich so machen:

' bisher eingestellten Standard-Drucker merken

Dim prnDefault As String

prnDefault = Printer.DeviceName



' Umstellen für den Ausdruck des Dokuments

ChangePrinter "Brother HL1240"



' Ausdruck

...



' ursprünglichen Standard-Drucker wiederherstellen

ChangePrinter prnDefault



Jetzt noch folgende Sub, über welche der Druckerwechsel erfolgt:

Public Function ChangePrinter(ByVal strDeviceName As String) As Boolean



Dim bResult As Boolean

Dim x As Integer



bResult = False

If Printers.Count > 0 Then

For x = 0 To Printers.Count - 1

If Printers(x).DeviceName = strDeviceName Then

Set Printer = Printers(x)

bResult = True

Exit For

End If

Next x

End If

ChangaePrinter = bResult

End Function



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: