范代码 1” 2. 并且将 DBGridEh1 控件当前显示的内容插入到
文档的末尾 3. 在
文档末尾插入一个空行 4. 在文档末尾插入新的一行文本 5. 将文档中的空行去掉 if PrnWordBegin('C:\打印模板.DOC','C:\目标文件 1.DOC') then begin PrnWordReplace('#TITLE#','示范代码 1'); PrnWordTable(DBGridEh1); PrnWordInsert(''); PrnWordInsert('这是新的一行文本'); PrnWordReplace('^p^p','^p',true); PrnWordSave; end;
源代码如下:
//Word 打印(声明部分) wDoc,wApp:Variant; function PrnWordBegin(tempDoc,docName:String):boolean; function PrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):b oolean; function PrnWordInsert(lineText:String;bNewLine:boolean=true):boolean;overload ; function PrnWordInsert(var imgInsert:TImage;sBookMark:String=''):boolean;overload; function PrnWordInsert(var chartInsert:TChart;sBookMark:String=''):boolean;overload; function PrnWordTable(var dbG:TDBGridEh;sBookMark:String=''):boolean; procedure PrnWordSave; procedure PrnWordEnd; //Word 打印(实现部分) { 功能:基于模板文件 tempDoc 新建目标文件 docName 并打开文件 } function PrnWordBegin(tempDoc,docName:String):boolean; begin result:=false; //复制模版 if tempDoc<>'' then if not shFile