| |
| |
Drucken mit Acrobat Reader- #24423 in section [744244] |
| Sec: |
(1) Allgemeines |
| Von: |
Cyprian Kuschka |
| An: |
Harro Schippan |
| Am/Um: |
15.05.2025 22:55:31 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
Viele Grüße
Cyprian
|
|
|
|
