Word: Macro ved print

En makro, der hedder Sub FilePrint() vil blive eksekveret når du vælger Filer - Udskriv. Den overtager menupunktets funktion, så du må selv sørge for resten.

Denne makro viser en meddelelsesboks og viser så print dialogboksen.
Du kan udskifte meddelelsesboksen med din egen kode.

Sub FilePrint()
MsgBox "Hello World"
Application.Dialogs(wdDialogFilePrint).Show
End Sub

Tak det virker - men kun ved brug af Filer - Udskriv.

Hvis man klikker på printer ikonet på værktøjslinien, afvikles makroen ikke.
Findes der en løsning der dækker begge måder ?

Alternativet er at bruge BeforePrint hændelsen. Problemet er at denne ikke er tilgængelig i Word umidelbart. For at gøre den tilgængelig skal du følge nedenstående procedure.


I VBA editoren skal du indsætte et klassemodul i Normal. Kald klassemodulet WordApplication. (Skriv navnet under Name i Prpoperties vinduet).

Øverst i klassemodulet skriver du nu:

Public WithEvents MinWord as Word.Application

Nu har du defineret et applikationsobjekt som du kan referere til. Dette objekt har en række hændelser, bl.a. BeforePrint. Du kan få adgang til disse hændelser ved at vælge MinWord i ruden til venstre og hændelserne i ruden til højre i editoren. Her skal du skrive din kode, fx

Private Sub MinWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
MsgBox "hello world"
End Sub

Resten nedenfor skal du gøre for at sikre at dit eget applikationsobjekt inititeres hver gang du åbner et dokument eller laver et nyt dokument-

Nu skal du så lave et ganske almindeligt modul (ikke et klassemodul) i Normal med denne kode i:

Dim MinWord As New Wordapplication

Sub InitialiserObjekt()
    Set MinWord.MinWord = Word.Application
End Sub

Endelig skal du i Normals ”ThisDocument” indsætte denne kode, der sikrer at dit wordobjekt initialiseres ved alle åbninger eller nye dokumenter.

Private Sub Document_Open()
    InitialiserObjekt
End Sub

Private Sub Document_New()
    InitialiserObjekt
End Sub

Løsningen her har jeg fra Leo Heuser i dk.edb.tekst.ms-word, der skal have al kredit for metoden.

Det virker som det skal.  Tak for det.

Velbekomme!