Druck-Makro druckt nur leere Blätter

• Druck-Makro druckt nur leere Blätter von Marcel vom 08.04.2005 03:22:55
• AW: Druck-Makro druckt nur leere Blätter - von MichaV am 10.04.2005 00:30:32

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

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

Beiträge aus den Excel-Beispielen zum Thema "Druck-Makro druckt nur leere Blätter"