LL Report nach HTML und UniCode

Deutschsprachiges Forum
1

hi,

ich habe “fertige” Reports wo ich “Arial Unicode MS” als Font verwende.
Damit kann ich chinesische Zeichen “drucken” und sehe die auch im Prewiev.

nun wollte ich die “fertigen” Report als HTML Export ausgeben und habe ich
eine HTML Seite erzeugt, aber ein Problem :

ihr seht es wohl schon … aber das ganze geht doch auf dem Drucker und als
PDF ?

</table>
</td><td valign="middle" class="tdx" width="134" height="22"
style="border-left-width:1px; border-left-style:solid;
border-left-color:rgb(0,0,0); border-right-width:1px;
border-right-style:solid; border-right-color:rgb(0,0,0);
border-top-width:1px; border-top-style:solid; border-top-color:rgb(0,0,0);
border-bottom-width:1px; border-bottom-style:solid;
border-bottom-color:rgb(0,0,0);"><table border="0" cellpadding="0"
cellspacing="0" width="100%">
<tr><td class="tdx" align="left"><font face="Arial Unicode MS"
color="#000000" size="2">26/30
&Ouml;&ETH;&sup1;&uacute;&acute;&oacute;&Iuml;&ordm;</font></td></tr>

ich “denke” das dies die HTML Stelle sein müsste. Da steht doch was mit
“Arial Unicode MS” ?

jemand eine Idee ?

gruss by OHR
Jimmy

*** Code ***

PROCEDURE LL13_Init(lHTML)
DEFAULT lHTML TO .F.

hDll := DllLoad(“CMLL13.DLL”) // change this if you have a different L&L
version
hDlls := DllLoad(“CMLS13.DLL”) // and this also

IF hDll == 0

  • app quits if L&L cannot be loaded
    MsgBox(“Cannot load DLLs”,“List & Label init DLL”)
    Quit
    ELSE

LSLoadTemplates(hDlls) // storage system, DLL functions wrapper
LLLoadTemplates(hDll) // printing system, DLL functions wrapper

LlSetOptionString(-1,LL_OPTIONSTR_LICENSINGINFO,‘blabla’) // license
string, remove for demo

LlSetDebug(LL_DEBUG_CMBTLL)

hJob := LlJobOpen(CMBTLANG_GERMAN) // open job with GERMAN

LlSetOption(hJob, LL_OPTION_ESC_CLOSES_PREVIEW, 1) // some options for
Prewiev

LlSetDlgboxMode(LL_DLGBOXMODE_ALT9)
LlSetOption(hJob, LL_OPTION_UISTYLE, LL_OPTION_UISTYLE_OFFICEXP)

LlSetOption(hJob, LL_OPTION_MULTIPLETABLELINES, 1)

IF lHTML
LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, “HTML”,
“Export.File”,“MYPREIS.HTM”)
LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, “HTML”,
“Export.Path”,ConvToAnsiCP(trim(zpath)))
LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, “HTML”,
“Export.Quiet”,“1”)
LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, “HTML”,
“Export.ShowResult”,“1”)
LlXSetParameter(hJob, LL_LLX_EXTENSIONTYPE_EXPORT, “HTML”,
“Verbosity.Table.Frames”,“2”)
ENDIF

ENDIF
RETURN

PROCEDURE LL_PrintList(lFromDb,;
cDataSource,;
oOwner,;
cFormName,;
bCondition,;
lFromTop,;
lDesigner,;
lPreview,;
aHeaders,;
lHTML)
…

  • init print routine
    IF lHTML
    nRet := LlPrintWithBoxStart(hJob,;
    LL_PROJECT_LIST,;
    cFormName,;
    LL_PRINT_EXPORT,; // Export to
    LL_BOXTYPE_STDWAIT,;
    oOwner:GetHWND() ,;
    “Export to HTML…”,;
    .F.,zPath)

    LlPrintSetOptionString(hJob,LL_PRNOPTSTR_EXPORT,“HTML”)

*** eof ***

2

hi,

jemand eine Idee ?

gruss by OHR
Jimmy

3

hi

jemand eine Idee ?

Ich nehme an, dass Du zusätzlich ein entsprechendes Sprachpaket von
L&L/Combit benötigst.

gibt es so etwas ? was würde man denn für den HTML Export benötigen ?

gruss by OHR
Jimmy