hur.cn - 华软网

 热门搜索

如何将一段文本设置好格式后放入word中,并用word立刻打开它,以准备打印?

  作者:未知    来源:网络    更新时间:2018/3/3
我想将一段文本内容设置好字型、字号、行距后,然后立即调用word,将文本放入word中以备用户编辑打印,该word文件不需要保存,请给出具体源码,谢谢!
------华软网友回答------
copy,paste
------华软网友回复------
OLEObject ole_word
// Create or "Instantiate" the ole_object variable 
ole_word = CREATE OLEObject
//连接word
IF ole_word.ConnectToNewObject("Word.Application") <> 0 THEN
MessageBox('OLE错误','OLE无法连接!')
return
END IF

ole_word.Visible = True
ole_word.Documents.Add()


ole_word.Selection.Font.Size = 12
ole_word.Selection.Font.Name = "宋体"
         ole_word.Selection.ParagraphFormat.LineSpacingRule = 2
         ole_word.Selection.TypeText('欢迎')

---------------------------------------------------------

以上是高版本用法,低版本你还要去掉后面的乱码(搜索以前的老帖)

/////////////////////////////////////////////////////////////
另外的方法有:
查阅WORD的VBA帮助,录制宏等
------华软网友回复------
我做过把GRID数据窗口中的数据导出到WORD中。用richtext数据窗口没有做过。哈哈
友情 + 帮顶!!!
------华软网友回复------
直接用richtext控件编辑然后直接调用控件的Print()函数打印即可

如果一定要用word,也可以用

rte.SelectTextAll  
rte.CopyRTF()

然后打印word 
然后执行word 的paste

//打印当前文档
ole_word.ActiveDocument.PrintOut



------华软网友回复------
觉得没有必要非调用WORD!
直接打印也可以,设置好的话,打印出来挺漂亮的!      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。