Herbers Excel-Forum - das Archiv

Druck-Makro druckt nur leere Blätter

Bild

Betrifft: Druck-Makro druckt nur leere Blätter
von: Marcel

Geschrieben am: 08.04.2005 03:22:55
Hallo
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
Bild

Betrifft: AW: Druck-Makro druckt nur leere Blätter
von: MichaV

Geschrieben am: 10.04.2005 00:30:32
Hi,
weiß wohl keiner eine Antwort? Schreib mal unter jede ActiveWindow.SelectedSheets.PrintOut - Zeile ein DoEvents. Das gibt dem Drucker Zeit, den Druckbefehl zu verarbeiten.
Vielleicht hilft das.
Gruß- Micha
 Bild
Excel-Beispiele zum Thema "Druck-Makro druckt nur leere Blätter"
Anwendername im Kommentar nicht fettgedruckt Feststellen, ob eine Schaltfläche mit Shift-Taste gedrückt wurde