Before_Print global

29/10/2007 - 14:34 von Max Miro | Report spam
Guten Tag,

gibt es eine Möglichkeit (Add_in, Startordner o.à.) das Ereignis
'Before_Print'
in allen möglichen Excelmappen zu beeinflussen, d.h. ohne es in jeder
einzelnen Mappe neu zu codieren?

Vielen Dank im Voraus.

M.
 

Lesen sie die antworten

#1 stefan onken
29/10/2007 - 16:25 | Warnen spam
On 29 Okt., 14:34, Max Miro wrote:
Guten Tag,

gibt es eine Möglichkeit (Add_in, Startordner o.à.) das Ereignis
'Before_Print'
in allen möglichen Excelmappen zu beeinflussen, d.h. ohne es in jeder
einzelnen Mappe neu zu codieren?

Vielen Dank im Voraus.

M.



hallo Max,
ja das geht. Füge im VBA-Editor einer Datei ein Klassenmodul ein
(Einfügen/Klassenmodul), standardmàßig heisst das dann Klasse1. Darein
als erste Zeile
Public WithEvents xlApp As Excel.Application
(statt xlApp auch irgendein anderer Variablenname)
nach Return steht dir im Klassenmodul das Ereignis WorkbookBeforePrint
zur Verfügung.

Private Sub xlApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As
Boolean)
MsgBox wb.Name
End Sub

Damit das auch beim drucken feuert, muss in dieselbe Datei zB ins
Workbook_Open (Modul DieseArbeitsmappe)

Dim kls As New Klasse1
Private Sub Workbook_Open()
Set kls.xlApp = Application
End Sub

kls ist wieder ein beliebiger Variablenname, Klasse1 muss der Name des
Klassenmoduls sein.
Speichern und Datei neu öffnen, dann sollte bei jedem drucken der Name
des zu druckenden Workbooks per Msgbox angezeigt werden.

Gruß
stefan

Ähnliche fragen