Druckermakro
13.11.2008 18:50:22
Klaus
Ich habe in den letzten Jahren ein gutes Wochenberichtsprogramm kreiert, welches einige Kollegen und ich im Firmennetzwerk (Grossfirma) nutzen. Dadurch stellt sich folgendes Problem:
Es gibt mehrere Netzwerkdrucker auf welche unterschiedlich zugegriffen werden soll.
Dazu kommt, dass die Druckerinstallation auf den verschiedenen Laptops nicht gleich ist.
Ich habe ein Makro welches auf den Netzwerkdrucker umschaltet und nach dem Druck wieder auf den Standarddrucker zurücksteuert.
Da, wie schon erwähnt, jeder eine andere Einstellung hat, muss ich bei Programmänderungen immer das Makro für jeden User neu einrichten.
Ist es möglich, verschiedene Einstellungen zentral (im Programm oder am Server) einzurichten und dann aus einem Makro auf diese Einstellungen zuzugreifen. Es werden derzeit schon alle persönlichen Daten über Verknüpfung vom Server synchronisiert. Wie kann ich z.B. durch Makro die Druckereinstellung von einer Zelle übernehmen. Oder gibt es eine einfahcere Lösung?
Hier noch das derzeit verwendete Makro
Sub Wo1druba()
Drucker = Application.ActivePrinter
Application.ActivePrinter = "\\as186lz\iRC2380_ps00907P auf Ne02:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\as186lz\iRC2380_ps00907P auf Ne02:", Collate:=True
Range("AB5").Select
Selection.Copy
Range("A41:C41").Select
ActiveSheet.Paste
Application.ActivePrinter = Drucker
Range("A34").Select
Mit besten Dank für euer Bemühen
Klaus