Sub
Farbausdruck_Auslastung()
Dim
DruckerAlt
As
String
Dim
DruckerAusgabe
As
String
Dim
NameDatei
As
String
Dim
NameKaPaPlanung
As
String
Dim
Pfad
As
String
Normalansicht
Pfad = Sheets(
"Einstellungen"
).Range(
"B25"
)
NameKaPaPlanung =
"Kapa-Planung PF"
ActiveSheet.PageSetup.PrintArea =
"$A$1:$O$40"
If
Month(
Date
) < 10
Then
NameDatei = Year(
Date
) &
"-0"
& Month(
Date
)
Else
NameDatei = Year(
Date
) &
"-"
& Month(
Date
)
If
Day(
Date
) < 10
Then
NameDatei = NameDatei &
"-0"
& Day(
Date
)
Else
NameDatei = NameDatei &
"-"
& Day(
Date
)
NameDatei =
""
& NameDatei &
"_"
& Left(NameKaPaPlanung, 15) &
".pdf"
SetCurrentDirectory (Pfad)
DruckerAlt = Application.ActivePrinter
DruckerAusgabe = Sheets(
"Einstellungen"
).Range(
"Farbdrucker"
)
If
DruckerAlt = DruckerAusgabe
Then
Else
Application.ActivePrinter = DruckerAusgabe
End
If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=
True
, IgnorePrintAreas:=
False
Application.ActivePrinter = DruckerAlt
Seitenansicht
End
Sub