1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Word - VBA

Discussion in 'Office-Programme' started by maggmich, Jul 31, 2003.

Thread Status:
Not open for further replies.
  1. maggmich

    maggmich Byte

    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
     
    maggmich, Jul 31, 2003
    #1
  2. RitaBock

    RitaBock Byte

    Steht die Prozedur in dem zum Dokument gehörenden Modul? Bei mir funktioniert es.

    mfg Rita
     
    RitaBock, Jul 31, 2003
    #2
Thread Status:
Not open for further replies.

Share This Page