| |
|
|
| Uwe ''Pascal'' Niemeier (10.03.11)
Hi people! my Lösungsvorschlag ex XProfan 11.2 / XP: CompileMarkSeparationwindow %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>()
SeeYou Pascal |
|
|
| |
|
|