#DEFINE OLECMDID_PRINT 6 #DEFINE OLECMDID_PRINTPREVIEW 7 #DEFINE OLECMDEXECOPT_PROMPTUSER 1 #DEFINE OLECMDEXECOPT_DONTPROMPTUSER 2 DECLARE INTEGER SetForegroundWindow IN user32 INTEGER hWindow LOCAL cSource, cHtml, cTargetFile cSource = "C:\Documents and Settings\My Documents\My Pictures\03simo.jpg" SET TEXTMERGE ON TEXT TO cHtml NOSHOW <HTML> <BODY bgcolor=#ffffff> <img src="<<m.cSource>>"> </BODY> </HTML> ENDTEXT SET TEXTMERGE OFF cTargetFile = FULLPATH("test.htm") SET SAFETY OFF = STRTOFILE(cHtml, m.cTargetFile) SET SAFETY ON LOCAL oIE As InternetExplorer.Application oIE = CREATEOBJECT("InternetExplorer.Application") WITH oIE .Navigate(cTargetFile) .Visible=.T. = SetForegroundWindow(.HWND) .ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER) ENDWITH