Aufruf eines Dokumentes und automatischer Ausdruck und Beenden.
Der Druck kommt nicht automatisch, man muss erst bestätigen und die Laufzeit ist zu lang vom Word.
Auf einem XP Rechner klappts einwandfrei
hier der Code:
'Urkunde in Word Serienbrief ausdrucken
UrkundeAusdrucken
End Sub
Private Sub UrkundeAusdrucken()
'Word Dokument öffnen
WordDokumentÖffnen ("c:\messe\urkunde.doc")
'Serienbrief vorbereiten
' With objWordDok.MailMerge
' .Destination = wdSendToPrinter
' .SuppressBlankLines = True
' With .DataSource
' .FirstRecord = wdDefaultFirstRecord
' .LastRecord = wdDefaultLastRecord
' End With
'.Execute Pause:=False
'End With
With objWordDok.MailMerge
.Destination = wdSendToPrinter
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
'Word Schließen
WordSchließen
End Sub
Private Sub WordDokumentÖffnen(ByVal strFilename As String)
'Applikation Word im Hintergrund starten
Set objWordApp = CreateObject("Word.Application")
Set objWordDok = objWordApp.Documents.Open(strFilename)
End Sub
Private Sub WordSchließen()
'Dokument schließen
objWordDok.Close (False)
'Applikation schließen
objWordApp.Quit
'Variablen Löschen
Set objWordApp = Nothing
Set objWordDok = Nothing
End Sub
schonmal vielen Dank