Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro beim Drucken automatisch starten

Makro beim Drucken automatisch starten
12.11.2005 23:41:07
Josef
Hallo Ihr!
Ich habe ein Makro programmiert, das automatisch den Pfad und andere
Informationen in die Fusszeile einfügt.
Dieses Makro soll jetzt immer vor dem Drucken aufgerufen werden.
Dazu dient ja folgende Deklaration:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Mein Problem dabei ist jetzt folgendes. Das Pfad-Makro wird beim
Öffnen von excel automatisch mitaufgemacht (ist Bestandteil einer
makro.xla die im XLStart-Ordner liegt)
Es ist dann als eigenes VBAProjekt im Microsoft Visual Basic zu finden
(dort liegt auch das Pfad-Makro drinnen)
Durch das Drucken des "Druck_Befehls" (Strg+P) wird die offene
Arbeitsmappe gedruckt (logisch) und in DIESER müßte sich das
entsprechende Makro
Private Sub Workbook_BeforePrint(Cancel As Boolean)
befinden.
Wenn es (Private Sub Workbook_BeforePrint(Cancel As Boolean)) in dem VBAProjekt
makro.xla liegt, wird es durch "Drucken" nicht aufgerufen und dadurch
nicht ausgeführt.
Wie kann man dieses Problem lösen?
Danke recht herzlich im voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro beim Drucken automatisch starten
12.11.2005 23:59:43
Josef
Hallo Josef!
Dazu benötigst du eine Klasse!
Die kannst du auch in deinem "makro.xla" unterbringen.
' **********************************************************************
' Modul: ThisWorkbook Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Private Sub Workbook_Open()
initApp
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public myApplication As New clsMyApp

Sub initApp()
Set myApplication.myApp = Application
End Sub


' **********************************************************************
' Modul: clsMyApp Typ: Klassenmodul
' **********************************************************************

Option Explicit

Public WithEvents myApp As Application

Private Sub myApp_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
MsgBox "Ich werde Gedruckt!"
'hier die Anweisungen die vor dem drucken ausgeführt werden sollen!
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Makro beim Drucken automatisch starten
13.11.2005 17:14:19
Josef
Hallo Sepp!
Ich werde das am Dienstag dann gleich mal ausprobieren.
So ganz klar ist mir das Ganze zwar noch nicht (Ich habe das Ganze mal kurz ausprobiert, da ist es mir nicht wirklich gelungen)
Wie gesagt, Dienstag weiss ich mehr!
Josef

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige