XProfan

window %maxX,%maxY
appendmenubar 1,"Drucken mit Vorschau"
appendmenubar 2,"Drucken ohne Vorschau"
usermessages 16
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
def %Exec 4
def &OLECMDID_PRINTPREVIEW 7
def $IID_OleCommandTarget "{b722bccb-4e68-101b-a2bc-00aa00404770}"
declare Document&,IOleCommandTarget&,Html$
declare WebBrowser&,WebControl&
Html$="C:\Test.html"
WebControl&=create("HTMLWin",%hwnd,Html$,1,0,0,width(%hwnd),height(%hwnd))
WebBrowser&=HTMLWin("QueryInterface",WebControl&)'--In Profan-Hilfe nicht dokumentiert!!
''--oder auch:
'Html$="C:\Test.html"
'WebBrowser&=ocxCreate(Html$,%hwnd,0,0,width(%hwnd),height(%hwnd),$50b00000,addr(WebControl&))

while 1

    waitinput
    case %umessage=16:break

    if %menuitem=1'-----------Drucken mit Vorschau über IOleCommandTarget

        IOleCommandTarget&=QueryInterface(WebBrowser&,$IID_OleCommandTarget)
        CallMethod(IOleCommandTarget&,%Exec,0,&OLECMDID_PRINTPREVIEW,0,var#,0)
        ocxRelease(IOleCommandTarget&)

    elseif %menuitem=2'-------Drucken ohne Vorschau über IHTMLDocument2

        Document&=ocxget(WebBrowser&,"Document")
        ocxMethod(Document&,"execCommand","print")
        ocxRelease(Document&)

    endif

endwhile

ocxRelease(WebBrowser&)
destroywindow(WebControl&)
ocxDeInitss=s2>()