@BerndR
Eine Ausgabe als BMP JPEG usw. ist Problemlos möglich. Pro Seite wird jeweils 1 Datei erzeugt.
als Einleitung musst du mindestens folgende Befehle absetzten (für BMP)
Code: Alles auswählen
LlPrintStart(hJob, lProject, sName, LL_PRINT_EXPORT , 0 )
LLPrintSetOptionString( hJob, LL_PRNOPTSTR_EXPORT, "PICTURE_BMP" )
Ich verwende zum Start einer Ausgabe in jpg Dateien folgende Funktion:
Code: Alles auswählen
** hJob Geöffneter JobHandle
** lProject Projecttyp z.B. LL_PROJECT_LIST
** sName Projectfile z.B. Liste.lst
** cOutFile Zielfile inkl. LW+Pfad -> i:\Dok_Jpg\Liste.jpg
static function LLSetJPGOut( hJob, lProject, sName, cOutFile )
local ret_val := .f.
cOutFile := alltrim(cOutFile)
do while .t.
if empty( cOutFile )
msgbox("Ausgabe als JPG nicht m”glich, kein Filename angegeben.")
exit
endif
if ! "." $ cOutFile
cOutFile += ".jpg"
endif
if !right(lower( cOutFile ), 3 ) == "jpg" .and. substr(cOutFile, len(cOutFile)-3,1) == "."
cOutFile := left(cOutFile, len(cOutFile)-3) + "jpg"
endif
if !right(lower( cOutFile ), 4 ) == ".jpg"
msgbox("Ausgabe als JPG nicht m”glich, Filename Ext. '.jpg' nicht angegeben.")
exit
endif
cOutFile := stuff(cOutFile, len(cOutFile)-3,0, "_Seite_%d" ) // Platzhalter für Seitennummerierung
if LLErrorMessage( LlPrintStart(hJob, lProject, sName, LL_PRINT_EXPORT , 0 ) )
exit
endif
if LLErrorMessage( LLPrintSetOptionString( hJob, LL_PRNOPTSTR_EXPORT, "PICTURE_JPEG" ) )
exit
endif
if LLErrorMessage( LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, "PICTURE_JPEG", "Resolution", "300" ) )
exit
endif
if LLErrorMessage( LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, "PICTURE_JPEG", "Picture.JPEGQuality", "80" ))
exit
endif
if LLErrorMessage( LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, "PICTURE_JPEG", "Export.Path", left( cOutFile, rat("\", cOutFile) ) ) )
exit
endif
if LLErrorMessage( LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, "PICTURE_JPEG", "Export.File", right( cOutFile, len(cOutFile) - rat("\",cOutFile)) ) )
exit
endif
if LLErrorMessage( LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, "PICTURE_JPEG", "Export.Quiet", "1") )
exit
endif
ret_val := .t.
exit
enddo
return(ret_val)
Cu Carlo