VFP 愛用者社區

214152 · 註冊時間: 2005-08-24 文章: 19 來自: 台南 第 1 樓

在作報表預覽時,將其存成 HTM,格式完全跑掉,
請問各位前輩有何解決之道?
TKS.

garfield · 發表於: 星期四九月 01, 2005 9:09 pm 文章主題:

我是沒有試過直接轉html格式,
但我想如果你的報表做成"單純"一點的格式,
它應該會比較準一點.

yoncen · 註冊時間: 2005-08-29 文章: 33 第 3 樓

* *********************************************************************
* * 2004/04/08 ▲將報表數據輸出至.html格式文檔 ▲
* *********************************************************************
* * xx集團公司
* * 版權所有 (C) 2004 嚴禁拷貝
* * 東莞市長安鎮xx工業區 5332701
* * 程式作者:yoncen 盛軍軍
* *
* * 說明:
* 1.本程式將報表數據輸出至html格式文檔,方便Email傳送.
* 2.本系統採用Visual Foxpro 8.0開發,適合任何版本的系統.
* *********************************************************************
FUNCTION genHtml
LPARAMETERS cTable,cTitle,cCaption,cPrnFile
LOCAL htmlText,cChr
cFieldList=cCaption
htmlText=''
cChr = CHR(13) + CHR(10)
nCaption=ALINES(aCaption,cCaption,.T.,",")
nFieldList=ALINES(aFieldList,cFieldList,.T.,",")

htmlText = htmlText+'<html>'+cChr
htmlText = htmlText+'<head>'+cChr
htmlText = htmlText+''+cChr
htmlText = htmlText+''+cChr
htmlText = htmlText+'<meta http-equiv="Content-Type" content="text/html; charset=big5">'+cChr
htmlText = htmlText+'<meta name="GENERATOR" content="Microsoft FrontPage 4.0">'+cChr
htmlText = htmlText+'<meta name="ProgId" content="FrontPage.Editor.Document">'+cChr
htmlText = htmlText+'<title>'+cTitle+'</title>'+cChr
htmlText = htmlText+'</head>'+cChr
htmlText = htmlText+''+cChr+cChr
htmlText = htmlText+'<p style="margin-top: 0; margin-bottom: 0" align="center"><font size="3">'+cTitle+'</font></p>'+cChr+cChr
htmlText = htmlText+'<div align="center">'+cChr
htmlText = htmlText+' <center>'+cChr+cChr
htmlText = htmlText+'<table border="0" width="96%" bgcolor="#4445bb" cellspacing="1" cellpadding="2">'+cChr
htmlText = htmlText+' <tr>'+cChr
* 表格標題
FOR I=1 TO nCaption
htmlText = htmlText+' <td width="7%">'+cChr
htmlText = htmlText+' <p style="margin-top: 0; margin-bottom: 0"><font color="#FFFFFF" size="2">'+aCaption[I]+'</font></p>'+cChr
htmlText = htmlText+' </td>'+cChr
ENDFOR
htmlText = htmlText+' </tr>'+cChr
htmlText = htmlText+' <tr>'+cChr
SELECT "&cTable"
GOTO TOP
* 表格明細數據
SCAN
FOR I=1 TO nFieldList
cField="&cTable"+"."+aFieldList[I]
cField=chkFieldType(&cField)
htmlText = htmlText+' <td width="7%" bgcolor="#FFFFFF">'+cChr
htmlText = htmlText+' <p style="margin-top: 0; margin-bottom: 0"><font size="2">'+cField+'</font></p>'+cChr
htmlText = htmlText+' </td>'+cChr
ENDFOR
htmlText = htmlText+' </tr>'+cChr
ENDSCAN
htmlText = htmlText+' <tr>'+cChr
htmlText = htmlText+' <td width="7%"bgcolor="#F9F9F9"><font size="2">合計</font></td>'++cChr
FOR I=1 TO nFieldList-1
htmlText = htmlText+' <td width="7%" bgcolor="#F9F9F9">　</td>'+cChr
ENDFOR
htmlText = htmlText+' </tr>'+cChr
htmlText = htmlText+'</table>'+cChr+cChr
htmlText = htmlText+' </center>'+cChr
htmlText = htmlText+'</div>'+cChr+cChr
htmlText = htmlText+''+cChr+cChr
htmlText = htmlText+'</html>'
* 保存至html文件
STRTOFILE(htmlText,cPrnFile)
ENDFUNC

yoncen · 註冊時間: 2005-08-29 文章: 33 第 4 樓

* 將所有非字符型數據轉換為字符型數據
FUNCTION chkFieldType
LPARAMETERS cOldValue
LOCAL cNewValue
DO CASE
CASE 'C'$VARTYPE(cOldValue)
cNewValue=cOldValue
CASE 'N'$VARTYPE(cOldValue)
cNewValue=TRIM(STR(cOldValue))
CASE 'D'$VARTYPE(cOldValue)
cNewValue=DTOC(cOldValue)
OTHERWISE
cNewValue=""
ENDCASE
RETURN cNewValue
ENDFUNC

214152 · 發表於: 星期五九月 02, 2005 8:40 am 文章主題:

謝謝各位同胞的指導,我會試試看的.
再次感謝!