VFP 愛用者社區

[tony@topasia.com.hk]

我在一個發票程式中的備註欄用了RICHTEXT, 但在REPORT WRITER中不知如何可以打印出來 !!

[garfield]

以下文章是在 vfp精英站中找到的

如何在VFP報表中應用RichText

概述
有時具有在 Visual FoxPro 報表中添加格式效果是很好的. 這可以通過用 Rich Text ActiveX 控件, 一個通用字段和一個 OLE 綁定控件在 Visual FoxPro 報表上來完成.

更多信息
該示例顯示如何給一個字段的部分內容加上下劃線並在報表上顯示格式. 你可以應用任何在 Rich Text 中的效果或效果組合到你的示例中.

1 打開 Visual FoxPro 並創建一個新報表.

2 添加一個圖片/OLE - 綁定控件到報表的細節帶. 設置它的字段表達式為 Dcolor.gcolor.

3 保存報表為 rtfDemo.

4 粘貼以下代碼到一個新程序中. 保存該程序到與上述報表相同的目錄中, 然後運行它.

CLOSE ALL
CLEAR ALL
tSafety = SET("safety") && 保存 Safety 的 SET 狀態到變量中
SET SAFETY OFF && 檢查 Dcolor 表是否存在
IF FILE("dcolor.dbf")
USE dcolor EXCLUSIVE
ELSE
CREATE TABLE dcolor (dcolor c(20),gcolor g) && 如果 DColor 不存在, 創建它並添加記錄
INSERT INTO dcolor (dcolor) VALUES ("Red")
INSERT INTO dcolor (dcolor) VALUES ("Green")
INSERT INTO dcolor (dcolor) VALUES ("Blue")
INSERT INTO dcolor (dcolor) VALUES ("Purple")
INSERT INTO dcolor (dcolor) VALUES ("Orange")
INSERT INTO dcolor (dcolor) VALUES ("Yellow")
ENDIF
_rtfFile = SYS(3)+".rtf" && 創建一個合法的帶 .RTF 擴展名的文件名
* 注意: 文件擴展名必須是 .RTF
SCAN && 在 dColor 表的通用字段中創建一個 Richtext OLE 綁定控件
SET TEXTMERGE TO &_rtfFile NOSHOW
SET TEXTMERGE ON
*!! 重要 !! 以下 richtext formatting 行需要在你的程序中寫在一行中.
\\{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl
{\f0\fnil\fcharset0 Times New Roman;}}\viewkind4\uc1\pard\f0\fs20
The big \ul <>\ulnone dog\par}
SET TEXTMERGE TO
APPEND GENERAL gcolor FROM &_rtfFile CLASS "RICHTEXT.RICHTEXTCTRL.1"
ENDSCAN
SET SAFETY &tSafety
ERASE &_rtfFile

REPORT FORM rtfdemo PREVIEW NOCONSOLE
USE
CLOSE ALL
當報表顯示時, 帶顏色的下劃線在文本下.

注意: 在有些情況下打印預覽 RTF 格式文本可能看起來不正確. 但是, 在打印時, 輸出格式是正確的.

提示: 要生成一個類似於上面代碼中的串, 在 Microsoft 寫字板中為你的表達式創建一個模板 (或其它可以創建 Rich Text 文件的程序). 下劃線, 顏色和應用其它格式到你的文本, 然後保存它到一個 .RTF 文件. 在記事本中打開 .RTF 文件並複製/粘貼 Rich Text 代碼到你的 Visual FoxPro 程序中.

[tony@topasia.com.hk]

十分感謝，但我尚在消化中 !!