lExportSlozka = 'zz.export'
IF !DIRECTORY(SYS(5) + ADDBS(SYS(2003)) + ADDBS(lExportSlozka)) THEN
					WAIT WINDOW 'Vytvarim export slozku...' TIMEOUT 1
					MD (SYS(5) + ADDBS(SYS(2003)) + ADDBS(lExportSlozka))
ENDIF

lcFile = SYS(5) + ADDBS(SYS(2003)) + ADDBS(lExportSlozka)+"exp"+SYS(2015)+".html"

fSaveKrokHtml(alias k ulozeni,lcFile,'nadpis tabulky')
fSaveKrokHtml(dalsi alias k ulozeni,lcFile,'nadpis tabulky')

fPrintHtml2(lcFile)


FUNCTION fSaveKrokHtml(tcAlias,lcFile,lNazev)
	LOCAL lhtml
	lHtml = cursorToHtml(tcAlias,lNazev)
	STRTOFILE(lHtml,lcFile,.t.)
ENDFUNC


FUNCTION fPrintHtml2(lFile)
DECLARE INTEGER ShellExecute IN shell32.dll ;
   INTEGER hndWin, STRING cAction, STRING cFileName, ;
   STRING cParams, STRING cDir, INTEGER nShowWin

=ShellExecute(0,"OPEN",lFile,"","",1)
ENDFUNC

FUNCTION CursorToHTML(tcAlias,lNazev)
	LOCAL lcRetVal, lnI, lcColHead, lcCell
	LOCAL lcFontSize,lcBorder
	SELECT (tcAlias)

	lRetVal = ""
	lcFont = 'font-size: 8pt;'
 	lcBorder = 'border:1px solid black;'
 	lcRetVal = '<h4 style="margin:0">'+lNazev+'</h4>'+CHR(10)
	lcRetVal = lcRetVal + '<TABLE style="border-collapse:collapse" >'+CHR(10)

	*hlavicka
	lcRetVal = lcRetVal + '<TR style="'+lcFont+lcBorder+'">'
	FOR lnI = 1 to FCOUNT()
	  lcColHead = PROPER(STRTRAN(FIELD(lnI),"_"," "))
	  lcRetVal = lcRetVal +'<TH style="'+lcFont+lcBorder+'"><b>'+lcColHead + '</b></TH>'
	ENDFOR
	lcRetVal = lcRetVal + "</TR>"

	*data
	SCAN
	  lcRetVal = lcRetVal + "<TR>"
	  FOR lnI = 1 TO FCOUNT()
	    lcCell = TRANSFORM(EVALUATE(FIELDS(lnI)))+" "
	    lcRetVal = lcRetVal + '<TD style="'+lcFont+lcBorder+'">'+lcCell + '</TD>'
	  ENDFOR
	  lcRetVal = lcRetVal + "</TR>"+CHR(10)
	ENDSCAN

	*konec
	lcRetVal = lcRetVal + "</TABLE><br>"+CHR(10)+CHR(10)
	RETURN lcRetVal
ENDFUNC