| |
| |
Drucken mit Acrobat Reader- #24421 in section [744242] |
| Sec: |
(1) Allgemeines |
| Von: |
Harro Schippan |
| An: |
All |
| Am/Um: |
14.05.2025 12:09:19 gelesen |
Ich komme nicht weiter.
Vielleicht hat jemand noch einen Rat.
Das folgende Programm läuft isoliert auf meinem "Sorgen Rechner" einwandfrei.
Wenn ich das Programm in meine Anwendung einbinde, stürzt VFP ab.
Und zwar an der Zeile:
retcd = ShellExecute(0,lcAction,lcFileName,lcParams,lcDir,0)
Alternative Versuche mit print oder printto haben keinen Absturz, aber auch keine Druckergebnisse.
Habe hier immer ReturnCode 42 vom shellexecute, Acrobat geht auf, aber es kommt kein Druck.
Gruß Harro
********************************************************************************
CLEAR
gcDrucker = "RICOH MP C2003Z PCL 6"
gcDrucker = "RICOH MP C5503 PCL 6"
lcPath = ADDBS("C:\KnG-PDF-Manager")
lnAnz = ADIR(aFiles,lcPath+"*.pdf")
? "Anzahl dateien", lnAnz
FOR lni = 1 to 1
DruckePDF_Via_Acrobat (lcPath,aFiles(lni,1))
ENDFOR
FUNCTION DruckePDF_Via_Acrobat (lcPath,lcPDFFile)
? "Jetzt wird gedruckt:", lcPath+lcPDFFile at 20
*************************************************************************************
* declare ShellExecute
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hndWin ,;
STRING cAction ,;
STRING cFileName ,;
STRING cParams ,;
STRING cDir ,;
INTEGER nShowWin
*************************************************************************************
* Parameter Acrobat Reader
* /n Launch a new instance of Reader even if one is already open
* /s suppressing the splash screen
* /o Don't show the open file dialog
* /h open in mininmized window
* /p - Open and go straight to the print dialog
* /t - Print the file the specified printer.
*************************************************************************************
* Welcher Acrobat ist installiert?
lcAcro32 = '"C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe"'
lcAcro64 = '"C:\Program Files\Adobe\Acrobat DC\Acrobat\Acrobat.exe"'
DO CASE
CASE FILE(lcAcro32)
lcAcro = lcAcro32
CASE FILE(lcAcro64)
lcAcro = lcAcro64
OTHERWISE
? "hier ist was faul, kein Acrobat gefunden"
WAIT WINDOW "Kein Acrobat, Programm Abbruch" TIMEOUT 30
ENDCASE
*************************************************************************************
* Dokument drucken
lcParaAcro = ' /s /h /t '
lcAction = "open"
lcFileName = lcAcro
lcParams = lcParaAcro + ["] + lcPath+lcPDFfile + [" "] + gcDrucker + ["]
lcDir = ""
retcd = ShellExecute(0,lcAction,lcFileName,lcParams,lcDir,0)
? "ShellExecute:", retcd
*************************************************************************************
ENDFUNC
*************************************************************************************
*************************************************************************************
*************************************************************************************
* windowStyle
* Controls how the window appears when you activate the application.
* Must be one of the following:
* SW_HIDE 0
* SW_SHOWNORMAL 1
* SW_SHOWMINIMIZED 2
* SW_SHOWMAXIMIZED 3
* SW_SHOWNOACTIVATE 4
* SW_SHOW 5
* SW_MINIMIZE 6
* SW_SHOWMINNOACTIVE 7
* SW_SHOWNA 8
* SW_RESTORE 9
* SW_SHOWDEFAULT 10
* SW_FORCEMINIMIZE 11
*************************************************************************************
|
|
|
|
