Hallo, ich exportiere ein PDF File auf einen Server und möchte dieses über den Adobe Acrobat 9 drucken.
Alles Über einen "Nach eingang neuer Mail" Agent.
Code ist folgender:
.....
file = fpath + o.Source
Call o.ExtractFile(fpath + o.Source)
Set AcroApp = CreateObject("AcroExch.App")
Set AcroAVDoc = CreateObject("AcroExch.AVDoc")
If acroAVDoc.Open(file, "") = True Then
Set acroPDDoc = acroAVDoc.GetPDDoc()
nPages = acroPDDoc.GetNumPages()
acroAVDoc.PrintPages 0, nPages - 1, 0, 1, 1
acroAVDoc.Close 1
Set acroAVDoc = Nothing
Set acroPDDoc = Nothing
End If
Call acroApp.Exit
Set acroApp = Nothing
Über den Client gestartet funktioniert der Agent super. Ist eben halt auch lokal.
Nach Eingang neuer Mail gestartet speichert er mir das File ab, öffnet dann eine "Speichern Unter" Message Box und öffnet mir anschließend das über die Speichern unter abgelegte PDF File im Acrobat. Das wars.
Hat mir jemand vielleicht einen Hinweis, wo ich nach dem Problem suchen kann ?
Danke
Chris