Word - VBA

Dieses Thema im Forum "Office-Programme" wurde erstellt von maggmich, 31. Juli 2003.

Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. maggmich

    maggmich Byte

    Registriert seit:
    26. Januar 2002
    Beiträge:
    104
    Hallo!

    Ich möchte das beim Öffnen des Dokumentes eine Message Box kommt, die
    fragt, ob das gerade geöffnete Dokument gedruckt werden soll. Dazu habe ich
    folgendes geschrieben, jedoch funktioniert es nicht:

    Private Sub Document_Open()
    Dim intResponse As Integer
    Dim strName As String
    Dim docLoop As Document
    intResponse = MsgBox("Wollen Sie dieses Dokument drucken?", vbYesNo)

    If intResponse = vbYes Then
    \' Print
    ActiveDocument.PrintOut
    End If
    End Sub

    Wieso funktioniert es nicht?

    Mfg Jürgen
     
  2. RitaBock

    RitaBock Byte

    Registriert seit:
    8. August 2000
    Beiträge:
    57
    Steht die Prozedur in dem zum Dokument gehörenden Modul? Bei mir funktioniert es.

    mfg Rita
     
Status des Themas:
Es sind keine weiteren Antworten möglich.

Diese Seite empfehlen