PDA

Vollständige Version anzeigen : OLE Word Dokument drucken


joerg_k
06.05.2004, 10:29
Hallo,

ich habe in einer Tabelle ein Datenfeld in dem Word Dokumente als OLE-Objekte abgelegt sind. Nun möchte ich dieses Dokument durch klicken eines Buttons komplett ausdrucken.
Wie muß ich vorgehen ???

joerg_k
07.05.2004, 10:36
Hab selbst ne Lösung für mein Problem gefunden. :D :D :D

Wenn's mal jemand braucht:


Private Sub btn_Dokument_drucken_Click()

Dim oApp As Object

Set oApp = CreateObject("Word.Application")
Set oApp = Me![Feld_Dokument].Object.Application

oApp.Visible = True 'WORD starten
oApp.Activate 'WORD-Fenster aktivieren

oApp.PrintOut PrintToFile:=False

oApp.Visible = False 'WORD beenden

End Sub


Zur Info: Feld_Dokument ist das Formular-Feld in dem das OLE-Objekt angezeigt wird. :cool: