ich möchte für html-Daten ein Druckvorschau mit WebObject.IWebBrowser2 erzeugen.
Mit getDataHTML() simuliere ich Daten aus eine DB.
Wenn ich die HTML-Daten in eine Datei schreibe und mit FF ansehen, ist die Anzeige korrekt.
Mit den WebGadget erscheint ein Fragezeichen für das Häkchen.
Warum?
Code: Alles auswählen
Enumeration
#myWindow
EndEnumeration
Enumeration
#myWebGadget
EndEnumeration
Enumeration 1
#OLECMDID_OPEN
#OLECMDID_NEW
#OLECMDID_SAVE
#OLECMDID_SAVEAS
#OLECMDID_SAVECOPYAS
#OLECMDID_PRINT
#OLECMDID_PRINTPREVIEW
#OLECMDID_PAGESETUP
#OLECMDID_SPELL
#OLECMDID_PROPERTIES
#OLECMDID_CUT
#OLECMDID_COPY
#OLECMDID_PASTE
#OLECMDID_PASTESPECIAL
#OLECMDID_UNDO
#OLECMDID_REDO
#OLECMDID_SELECTALL
#OLECMDID_CLEARSELECTION
#OLECMDID_ZOOM
#OLECMDID_GETZOOMRANGE
#OLECMDID_UPDATECOMMANDS
#OLECMDID_REFRESH
#OLECMDID_STOP
#OLECMDID_HIDETOOLBARS
#OLECMDID_SETPROGRESSMAX
#OLECMDID_SETPROGRESSPOS
#OLECMDID_SETPROGRESSTEXT
#OLECMDID_SETTITLE
#OLECMDID_SETDOWNLOADSTATE
#OLECMDID_STOPDOWNLOAD
EndEnumeration
Enumeration 0
#OLECMDEXECOPT_DODEFAULT
#OLECMDEXECOPT_PROMPTUSER
#OLECMDEXECOPT_DONTPROMPTUSER
#OLECMDEXECOPT_SHOWHELP
EndEnumeration
Procedure.s getDataHTML()
HTML.s=""
HTML + "<html><head><title>Test</title><style>"
HTML + "#col1 { width: 120px; }"
HTML + "#col2 { width: 150px; }"
HTML + "table {border-collapse: collapse; word-wrap: break-word; table-layout: fixed; border:1; width: 270px;}"
HTML + "table, th, td {border: 1px solid black; }"
HTML + "</style>"
HTML + "<meta http-equiv='X-UA-Compatible' content='IE=edge' />"
HTML + "<meta http-equiv='Content-Type' content='text/html; charset=ISO-8859-1' />"
HTML + "</head><body><table>"
HTML + "<col id="+#DQUOTE$+"col1"+#DQUOTE$+"><col id="+#DQUOTE$+"col2"+#DQUOTE$+">"
HTML + "<thead><tr><th>Artikel</th><th>Überprüft</th></tr></thead>"
HTML + "<tbody><tr><td>Kette</td><td>✓</td></tr></tbody>" ; <== Häkchen
HTML + "</table></body></html>"
ProcedureReturn HTML
EndProcedure
OpenWindow(#myWindow, #PB_Any, #PB_Any, 800, 615, "")
WebGadget(#myWebGadget, 5, 35, 790, 250, "")
HTML.s = getDataHTML()
;Debug HTML
SetGadgetItemText(#myWebGadget, #PB_Web_HtmlCode, HTML)
WebObject.IWebBrowser2 = GetWindowLong_(GadgetID(#myWebGadget), #GWL_USERDATA)
Repeat
While WindowEvent(): Wend
Delay(1)
WebObject\get_Busy(@IsBusy.l)
Until IsBusy = 0
WebObject\ExecWB(#OLECMDID_PRINTPREVIEW, #OLECMDEXECOPT_PROMPTUSER, 0, 0)
Repeat
EventW = WaitWindowEvent()
Until eventW = #PB_Event_CloseWindowMarcelX
