Dialogs(xlDialogPrint)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Dialogs(xlDialogPrint)
von: harry
Geschrieben am: 16.03.2005 09:42:24
hi leute!
hab da ein problem, bei dem ich einfach nicht weiterkomme:
ich rufe in einem makro den dialog drucken auf. nun möchte ich feststellen, ob ok oder abbrechen ausgewählt wurde.
hintergrund: wenn drucken gewählt wird, möchte ich datum und uhrzeit in die dateieigenschaften schreiben, wenn abbrechen gewählt wird nicht.
bin für jeden tip dankbar!
liebe grüße,
harry

Bild

Betrifft: AW: Dialogs(xlDialogPrint)
von: Matthias G
Geschrieben am: 16.03.2005 09:47:03
Hallo Harry,
Sub test()
Dim aw
aw = Application.Dialogs(xlDialogPrint).Show
If aw Then
    MsgBox "gedruckt"
Else
    MsgBox "abgebrochen"
End If
End Sub
Gruß Matthias
Bild

Betrifft: AW: Dialogs(xlDialogPrint)
von: harry
Geschrieben am: 16.03.2005 09:50:38
hi matthias,
genau das, was ich gesucht habe, klappt perfekt!
vielen dank + liebe grüße,
harry
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kennwort bei Dateiaktualisierung mit VBA - neuer V"