Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige