VBA Fehlerroutine
29.12.2003 11:18:05
Rudi
Unser Firmennetzwerk besteht aus mehreren Servern. Bei meiner Anmeldung am Arbeitsplatz wird automatisch einer davon ausgewählt, ohne das ich Einfluss darauf habe auf welchem. Das Problem ist, dass der Drucker geringfügig andere Bezeichnungen hat und dadurch beim Start von Excel grundsätzlich der falsche Drucker eingestellt ist, was mit der Zeit sehr nervig wird. Deshalb hab ich versucht über ein Makro bei Start meiner Arbeitsmappe automatisch den richtigen Drucker einzustellen:
Private Sub Workbook_Open()
On Error GoTo ErrHandler
Application.ActivePrinter = "DR_BETR (Lexmark T520) auf Ne12:"
Exit Sub
ErrHandler:
Application.ActivePrinter = "DR_BETR (Lexmark Optra T520) auf Ne12:"
End Sub
Dies hat auch am Anfang funktioniert, bis ich gemerkt habe, dass es noch mehr Varianten gibt. Ich benötige also ein Makro, das die verschiedenen Druckerbezeichnungen (gibt etwa 6 Möglichkeiten) nacheinander durchläuft, bis es die korrekte gefunden hat. Mit meinem einfachen ErrHandler komme ich also nicht weiter. Leider steh ich mit VBA noch ganz am Anfang und weiß nicht weiter.
Ich würd mich freuen, wenn mir jemand weiterhelfen könnte!
MfG
Rudi
PS: Allen die sich hier so rumtreiben wünsch ich einen guten Rutsch!