Druck-Makro druckt nur leere Blätter
08.04.2005 03:22:55
Marcel
Ich habe durch aufzeichnen ein Makro erstellt, das verschiedene Files öffnet, ausdruckt und wieder schliesst.
Beim abspielen werden die Files geöffnet und entsprechende Druckaufträge erzeugt. Leider sind alle Seiten, die ausgedruckt werden leer. Woran kann das liegen?
Nachstehend der Code des Makros:
Sub III_FY01_Q1()
' III_FY01_Q1 Makro
' Makro am 04.04.2005 von Marcel aufgezeichnet
ChDir "C:\Score-Game\Order-Evaluation\Order_Evaluation FY01-Q1"
Workbooks.Open Filename:= _
"C:\Score-Game\Order-Evaluation\Order_Evaluation FY01-Q1\Evaluation_FY01-Q1.xls" _
, UpdateLinks:=3
Sheets("A-Won Orders").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ChDir "C:\Score-Game\Order-Evaluation"
Workbooks.Open Filename:="C:\Score-Game\Order-Evaluation\Statistics.xls", _
UpdateLinks:=3
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Windows("Evaluation_FY01-Q1.xls").Activate
Sheets("B-Won Orders").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Windows("ScoreGameCockpit.xls").Activate
Windows("Statistics.xls").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Windows("Evaluation_FY01-Q1.xls").Activate
Sheets("C-Won Orders").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Windows("Statistics.xls").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Windows("Evaluation_FY01-Q1.xls").Activate
Sheets("D-Won Orders").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Windows("Statistics.xls").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWorkbook.Save
ActiveWorkbook.Close
Range("N15").Select
ActiveCell.FormulaR1C1 = "OK"
Range("N16").Select
End Sub
Vielen Dank im voraus für eine Antwort
Schöne Grüsse
Marcel