| Von |
Pantoffelheld |
| Am |
15. Dezember 2007 um 20:24:47 |
| Frage |
Hallöchen an alle,
ich möchte mich mit folgendem Problem an euch wenden:
Ich habe ein Makro unter maßgeblicher Mithilfe von r.mueller (nochmal Danke!) erstellt, dies öffnet mir ein vorhandenes Word-Dokument und füllt dieses mit Daten aus einer Excel-Datei. Kurz vor Schluss der Prozedur gebe ich dem Nutzer die Möglichkeit, das Word-Dokument abzuspeichern. Und ganz am Ende soll er es auch noch ausdrucken können.
Und da liegt das Problem:
Wenn ich die betreffende Excel-Datei öffne und das Makro zum ersten Mal ausführe, klappt alles wunderbar. Wenn ich jedoch das Makro zum zweiten Mal ausführen will, ohne Excel vorher zu schließen, dann sehe ich zwar für den Zeitraum der von mir gesetzten Wartezeit das Word-Dokmument, habe jedoch keinen Drucken-Dialog und zum Ende der Wartezeit schließt sich das Word-Dokument, ohne dass ich die Chance hatte, es (noch einmal) zu drucken.
Hier der Code, um den es geht:' Dokument gespeichert; Abfrage, ob gedruckt werden soll
If MsgBox("Das Produktdatenblatt wurde erfolgreich gespeichert." & vbCrLf & "Soll das Datenblatt jetzt gedruckt werden?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "Frage") = vbYes Then
With WrdAppl
.Visible = True
.WindowState = wdWindowStateMaximize
.Activate
.ScreenRefresh
.ScreenUpdating = True
DoEvents
End With
Dialogs(wdDialogFilePrint).Show
' Alternative ohne Drucken-Dialog:
' WrdDoc.PrintOut
' 10 Sekunden warten
Application.Wait Now + TimeSerial(0, 0, 10)
Else
Resume Next
End If
' Dokument schließen
WrdDoc.Close
' Speicher freigeben
Set WrdRng = Nothing
Set WrdDoc = Nothing
If bolWordLiefNicht Then
WrdAppl.Quit
End If
Set WrdAppl = Nothing
Exit Sub
Fehler:
MsgBox "Fehler Nr.: " & Err.Number & vbCrLf & Err.Description, vbExclamation, "Fehlermeldung"
Set WrdDoc = Nothing
Set WrdAppl = Nothing
End Sub Hat vielleicht jemand einen Tipp für mich?
Gruß Pantoffelheld
|
|
Zum Seitenanfang