Standarddrucker beim Ausdruck setzen: Problem Nexx
10.08.2004 10:52:40
Andreas
jeder kennt das doch von euch: Man soll will in Excel per VBA einen Standarddrucker einstellen. Man weiß den Namen (in unserem Fall ist das "Tobit FaxWare") kennt aber die Anschlußnummer (z.B. "Ne01:") nicht. Nach endlosen versuchen mit Import von WSH, etc. habe ich folgende kleine Lösung gefunden. Jeder gute VBA-Programmierer würde mich zwar erschlagen, aber diese Lösung funktioniert einwandfrei und ohne Import irgendwelcher Objekte:
Sub SetTobitFaxware()
FuncSetTobitFaxware (0)
End Sub
Sub FuncSetTobitFaxware(a)
Dim n
On Error GoTo IncPrnNr
If a < 10 Then
n = "Ne0" & a & ":"
Else
n = "Ne" & a & ":"
End If
Application.ActivePrinter = "Tobit FaxWare auf " & n
Exit Sub
IncPrnNr:
FuncSetTobitFaxware (a + 1)
End Sub
Gruß,
Andreas