A
achimmaffy
Hallo,
ich habe eine Access datenbank und darin mehre Datzensätze mit jeweils einem zugeordnetem Hyperlink auf ein Word-Dokument.
Ich will Die Datensätze filtern und von den Treffern automatisch das Worddokument drucken.
Habe auch schon mal Probier.
Const Pfad = "C:\Test.doc"
Dim wdAnw As Object
Dim wdDok As Object
Set wdDok = GetObject(Pfad)
Set wdAnw = wdDok.Parent
wdAnw.Visible = True
wdAnw.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
wdAnw.Activate
wdDok.PrintOut Background:=False
'
'wdDok.Close
'wdAnw.Quit
Set wdDok = Nothing
Set wdAnw = Nothing
Problem ist aber, das die Anweisung getobject nur mit einer Konstante arbeitet.
Und ich bräuchte sowas wie getobject(me.hyperlink)
ODer hat jemand ne andere Idee?
Öffnen kann ich die DOkumente über docmd.runcommand accmdOpenhyperlink
Vielen Dank im Vorraus
ich habe eine Access datenbank und darin mehre Datzensätze mit jeweils einem zugeordnetem Hyperlink auf ein Word-Dokument.
Ich will Die Datensätze filtern und von den Treffern automatisch das Worddokument drucken.
Habe auch schon mal Probier.
Const Pfad = "C:\Test.doc"
Dim wdAnw As Object
Dim wdDok As Object
Set wdDok = GetObject(Pfad)
Set wdAnw = wdDok.Parent
wdAnw.Visible = True
wdAnw.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
wdAnw.Activate
wdDok.PrintOut Background:=False
'
'wdDok.Close
'wdAnw.Quit
Set wdDok = Nothing
Set wdAnw = Nothing
Problem ist aber, das die Anweisung getobject nur mit einer Konstante arbeitet.
Und ich bräuchte sowas wie getobject(me.hyperlink)
ODer hat jemand ne andere Idee?
Öffnen kann ich die DOkumente über docmd.runcommand accmdOpenhyperlink
Vielen Dank im Vorraus
