VBA: Word-Formatvorlage aus Access drucken

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

es wurde bereits besprochen Daten über die Berichte auszudrucken.

Meine Lösung funktioniert bisher so, dass eine Word-Formatvorlage mit den nötigen Daten aus Access gefüllt wird.

Ich würde gerne noch den (vollautomatischen) Briefdruck starten.
Also z.B. Button „Briefdruck“ in Access welcher die Vorlage öffnet, ausfüllt und druckt. Die ersten beiden Schritte sind bereits implementiert.

Mir fehlt noch eine Möglichkeit über das Word-Objekt auf das aktuelle Dokument zuzugreifen und die Methode „PrintOut“ zu starten.
Gibt es so was ähnliches wie:

Dim Word as Object
Dim WordDoc as Object

Set Word = GetObject(, „Word.Application“)

If Err.Number 0 Then
On Error GoTo Fehler_Word
Set Word = CreateObject(„Word.Application“)
End If

…

Set WordDoc = Word.Documents.CurrentDocument (???)
WordDoc.Printout

Die letzten beiden Zeilen sind nicht gültig.

Evtl. würde ich mich auch mit einem Word-Makro zufrieden geben, welches das aktuelle Dokument druckt.

Vielen Dank für Eure Hilfe!

Gruss

Florian

#2 
Public Function WordDocDrucken(FName As String)
Dim WordObj As New Word.Application
With WordObj
 .Documents.Open FileName:=FName
' usw.
 .PrintOut Background:=False
 .Quit SaveChanges:=No
' oder:
' .ActiveDocument.Saveas FileName:="C:\woauchimmer\Mein.Doc"
' .Quit
End With
End Function

Und - ansonsten: Ja - zeichne das, was du willst, halt als Word-VBA-Makro auf und portiere es nach Access (du musst halt nur alles mit dem Word-Automationsobjekt referenzieren!)

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)