| |
| |
Drucken mit Acrobat Reader- #24425 in section [744246] |
| Sec: |
(1) Allgemeines |
| Von: |
Harro Schippan |
| An: |
Cyprian Kuschka |
| Am/Um: |
16.05.2025 07:12:45 gelesen |
| |
Hallo Harro,
versuche in erster Linie diese Funktion als Alternative. Eventuell passt etwas nicht, dann musst du es passend machen. Hier die Funktion:
FUNCTION DruckePDF_Via_AcrobatCOM(tcPfad, tcPDFFile)
LOCAL loApp, loAVDoc, lcFullname
lcFullname = ADDBS(tcPfad) + tcPDFFile
loApp = CREATEOBJECT("AcroExch.App")
loAVDoc = CREATEOBJECT("AcroExch.AVDoc")
IF NOT loAVDoc.Open(lcFullname, "")
WAIT WINDOW "PDF konnte nicht geöffnet werden" TIMEOUT 2
RETURN .F.
ENDIF
*-- Drucken (alle Seiten 0 bis -1) auf Standard-Drucker
loAVDoc.PrintPages(0, -1, 1, .T., .F.)
loAVDoc.Close(1)
loApp.Exit
RELEASE loAVDoc, loApp
RETURN .T.
ENDFUNC
|
Hallo Cyprian,
hab das grade mal ausprobiert.
Bekomme bei der Zeile:
loApp = CREATEOBJECT("AcroExch.App")
die Message: "No such interface supported"
Da reicht wohl der Reader nicht.
Gruß Harro
|
|
|
|
