Office: BeforePrint arbeitet nicht

CL300678 · 16. August 2010

Hallo zusammen,

ich arbeite in einer Datei mit folgender Sub:
Code:

Sub befindet sich in DieseArbeitsmappe

Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Wird vor jedem Ausdruck ausgeführt
'Diese Sub ruft vor jedem Ausdruck das "auto_open"-Makro auf, um sicher zu stellen, dass der Speicherort auf dem Ausdruck erscheint
Dim Sh As Worksheet
Dim Liste(1 To 20) As Integer
Dim i As Integer

i = 1

Application.ScreenUpdating = False

'Speichern der zum Drucken ausgewählt Sheets
For Each Sh In ActiveWorkbook.Windows(1).SelectedSheets
Liste(i) = Sh.index
i = i + 1
Next Sh

auto_open 'Makro ist im Standard-Modul hinterlegt

i = 1
While Liste(i) 0
Sheets(Liste(i)).Select
Application.EnableEvents = False
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Application.EnableEvents = True
i = i + 1
Wend
Cancel = True
Application.ScreenUpdating = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MaW: Ich speichere die Indizes der markierten Blätter vor dem drucken, führe mein auto_open-Makro aus und drucke dann die markierten Blätter aus.

Mein Problem: Die Sub arbeitet nicht!

kann mir jemand erklären, wieso?????

:)

pefeu · 18. August 2010

Hallo,

wahrscheinlich sind Deine Makros durch Application.EnableEvents = False
außer Betrieb gesetzt worden.

mach Dir ein Hilfs-Sub:

Public Sub Hilfe()

Application.EnableEvents = True

End Sub

Starte das und versuch dann, ob Dein Makro wieder aktiv wird.

Gruß Peter

CL300678 · 18. August 2010

Oh Sch.....
Daran hab ich mal wieder nicht gedacht. Problem behoben.

Danke schön!

Office: BeforePrint arbeitet nicht

BeforePrint arbeitet nicht

BeforePrint arbeitet nicht

BeforePrint arbeitet nicht - Similar Threads - BeforePrint arbeitet

Makro arbeitet auf anderem PC nicht ordnungsgemäß

Zeile markieren, in der man gerade arbeitet

Makro arbeitet sehr langsam

In Excel im "Shared File" sehen, ob jemand gerade daran arbeitet

Excel arbeitet fast gar nicht mehr

Outlook 2003 arbeitet sehr langsam / hängt sich auf...