Antworten

Von:

An:

Betreff:

Druckern mit Acrobat Reader

Klicken sie auf ein Symbol um es in die Nachricht einzusetzen:

Text Optionen:

<verbatim>
[quote]
<verbatim>
[quote]
Hallo Harro,

<verbatim>
[quote]
lcPDFFile = ADDBS('C:\KnG-PDF-Manager\RE-352124-127650.pdf')
[/quote]
</verbatim>

Damit wird ein Backslash ans Ende des Dateinamens gehängt. Mag es evtl. daran liegen, dass nichts gedruckt wird?

Viele Grüße
Bernhard Sander

[/quote]
</verbatim>

Danke, hatte aus zwei Zeilen eine gemacht.
Leider keine Verbesserung im Programm.

Warum liefert der SHELLEXECUTE ".T." und nicht 42 ??

****************************************************************************** Drucke PDF-Files mit SHELLEXECUTE printto
CLEAR 
DECLARE ShellExecute IN shell32.DLL INTEGER, STRING, STRING, STRING, STRING, INTEGER
lcPDFFile = "C:\KnG-PDF-Manager\RE-352124-127650.pdf"

IF FILE(lcPDFFile )
	? "Datei ist vorhanden"
ELSE 
	? "Mist"
	RETURN 
ENDIF

lcPrinter = "RICOH MP C5503 PCL 6"
*lcPrinter = "RICOH MP C5503 [0026739C204D]"

FOR lni = 1 TO 10
	retcd = ShellExecute(0,"printto", lcPDFFile , lcPrinter,"/t",2)
	? lni, 	retcd at 20, lcPDFFile 
ENDFOR 
? "fertig"
*****************************************************************************

[/quote]
</verbatim>