ich möchte ein Verzeichnispfad und eine Druckerauswahl variabel gestalten.
Diese sollen später in unterschiedlichen Makros dieser Arbeitsmappe eingebunden werden.
(ich möchte die Transparenz und den Pflegeaufwand reduzieren)
Leider funktioniert meine Idee nicht:
Sub Verzeichnis_definieren()
' Verzeichnis definieren:
verzeichnis = "\\juprdb01\co_BAB$\Analysen\Leistungsanalyse\"
End Sub
Sub Druckerauswahl()
'Standarddrucker definieren:
Standarddrucker = Application.ActivePrinter
'Wahl des Druckers
Select Case Range("Drucken!E3")
Case Is = 1
Application.ActivePrinter = Standarddrucker
Case Is = 2
Application.ActivePrinter = "\\JUPRDS50\Kyocera Mita KM-C850 KX Var2 auf Ne10:"
Case Is = 3
Application.ActivePrinter = "\\JUPRDS50\CC1_FS1600 auf Ne01:"
End Select
End Sub
'Jetzt sollen die Makros eingebunden werden?
Sub FM_Monat()
Application.Run Macro:= _
"'Drucken Leistungsanalyse.xls'!Verzeichnis_definieren"
Application.Run Macro:= _
"'Drucken Leistungsanalyse.xls'!Druckerauswahl"
Workbooks.Open Filename:=verzeichnis & Range("Drucken!b18"), UpdateLinks:=0
Sheets("FM_Monat").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Saved = True
ActiveWindow.Close
'Standarddrucker wieder einrichten
Application.ActivePrinter = Standarddrucker
'Tabellenblatt "Drucken" aktivieren
Sheets("Drucken").Select
End Sub
Ich würde mich über eine Hilfestellung und einen Lösungsansatz sehr freuen.
Gruß
Wilfried