Herbers Excel-Forum - das Archiv

Dialogs(xlDialogPrint)

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