想要在VFP中打印一个WORD文档，这怎么解决

2012-08-15 11:15:49 559 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

eric5191714 墨衍会员 · AI 创作全网分发关注 + 加入社区

从3dB定向耦合器到双圆极化天线：在HFSS里玩转相位差90°的馈电艺术本文详细介绍了在HFSS中设计3dB定向耦合器与双圆极化天线的关键技术，重点解析了90°相位差生成原理及馈电网络设计。通过HFSS仿真工具，实现从定向耦合器到完整天线系统的集成，优化阵列天线性能，适用于卫星通信和雷达系统。阅读详情

RT，由于一次要处理大量的WORD和EXCEL同时混合打印情况，EXCEL是用VFP调用打印的，WORD代码如下
if type('MYWORD')<>'O'
MYWORD = CreateObject('WORD.APPLICATION')
endif
MYWORD=CREATEOBJECT('WORD.APPLICATION')
filelj='D:\'+m_period+'\output\'+m_bh+'.doc'
ow=MYWORD.DOCUMENTS.open(filelj)
myword.ActiveDocument.PrintPreview
myword.visible=.t.
ow.saved=.t.
ow.close
myword.quit
RELEASE myword

report form (m_period+'\output\'+m_bh+'.doc') to printer
report form (m_period+'\output\'+m_bh+'.doc') to printer prompt

出现“传递了错误的参数到转换器中，要转换文件，请从“文件”菜单中选取”的提示框
然后是“程序错误”：报表文件MYWORD无效。
本人菜鸟一枚，请问这个问题怎么解决。。。

...全文

Cocos Creator Android打包：NDK版本选择与配置全攻略在Android原生开发中，NDK（Native Development Kit）是编译C/C++代码的核心工具链，它决定了代码如何被编译为不同CPU架构（如ARMv7、ARM64）的动态库。其工作原理在于提供了一套完整的交叉编译环境，将高级语言代码转化为设备可执行的二进制指令。这一技术对于游戏引擎和性能敏感型应用至关重要，因为它能直接调用硬件资源，提升运行效率。在实际工程中，NDK版本必须与Android Gradle插件（AGP）版本、项目依赖的C++标准库精密匹配，否则会导致编译失败或运行时崩溃。特别阅读详情

eric5191714

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

myperry 2012-09-16

打赏
举报

应该是使用OLE会比较容易解决。

litigationveteran 2012-08-16

打赏
举报

我也来看看了，很不错。

WWWWA 2012-08-15

打赏
举报

直接在WORD中打印不行？
在VFP中不能打印WORD中DOC文件

eric5191714 2012-08-15

打赏
举报

[Quote=引用 10 楼的回复:]

关键你是 3 个不同的报表，所以不行。
[/Quote]
高人都说不行啦。。。好吧，认啦，谢谢高人

十豆三 2012-08-15

打赏
举报

关键你是 3 个不同的报表，所以不行。

eric5191714 2012-08-15

打赏
举报

[Quote=引用 8 楼的回复:]

想办法将 3 个 PDF 或 TIF 合成一个吧。这方面资料手头没有，你自己找一找吧。
[/Quote]
我知道怎么把三个PDF合成一个，可是问题是我有好多个三个合成一个。。。所以我想VFP直接输出成一个文件，这样多省事

十豆三 2012-08-15

打赏
举报

想办法将 3 个 PDF 或 TIF 合成一个吧。这方面资料手头没有，你自己找一找吧。

eric5191714 2012-08-15

打赏
举报

[Quote=引用 6 楼的回复:]

你的意思是打印成图片，就用 PDF 打印机就行。
[/Quote]
可是这样用PDF打印机打印出来的是三个文件，我想要只打印出一个文件。。。高人求解决办法

十豆三 2012-08-15

打赏
举报

你的意思是打印成图片，就用 PDF 打印机就行。

eric5191714 2012-08-15

打赏
举报

eric5191714 2012-08-15

打赏
举报

[Quote=引用 3 楼的回复:]
If Type('MYWORD')<>'O'
MYWORD = Createobject('WORD.APPLICATION')
Endif
MYWORD=Createobject('WORD.APPLICATION')
filelj='D:\'+m_period+'\output\'+m_bh+'.doc'
ow=MYWORD.DOCUMENTS.Open(filelj)
mywor……
[/Quote]

谢谢啊，高人啊，还有个问题，代码如下：
procedure print_individual
PARAMETER m_period,m_bh
public m_hn

If Type('MYWORD')<>'O'
MYWORD = Createobject('WORD.APPLICATION')
Endif
MYWORD=Createobject('WORD.APPLICATION')
filelj='D:\'+m_period+'\output\'+m_bh+'.doc'
ow=MYWORD.DOCUMENTS.Open(filelj)
myword.ActiveDocument.PrintPreview
myword.ActiveDocument.PrintOut && 打印
myword.Visible=.T.
ow.saved=.T.
ow.Close
myword.Quit
Release myword

*--------
if type('Excel_Received')<>'O'
Excel_Received = CreateObject('EXCEL.APPLICATION')
endif

if type('m_hn')='U'
public m_hn
endif

m_hn = m_bh

** For Excel printing
if !used('count2000a')
use (m_period+'\count2000a') in 0
endif
m_bh=alltrim(m_bh)
select count2000a
locate for alltrim(hn)==m_bh
if found() and cnt1>0
if !used('sum2000a')
use (m_period+'\sum2000a') in 0
endif
select sum2000a
SET ORDER TO HN

** To avoid 'cache' problem that will lead to print all old data

Excel_Received.Workbooks.Open('D:\'+m_period+'\output\'+m_bh+'.xls')
Excel_Received.Worksheets('hospital').Activate
Excel_Received.ActiveSheet.printout(1,3,1)
Excel_Received.ActiveWorkbook.saved=.t.
Excel_Received.Workbooks.Close

report form (m_period+'\SUM2000A') to printer for alltrim(hn)==alltrim(m_bh) noconsole
* report form (m_period+'\SUM2000A') to printer prompt for alltrim(hn)==m_bh noconsole
* report form (m_period+'\SUM2000A') PREVIEW for alltrim(hn)==allt(m_bh)
endif
*CLOSE ALL
我想让这些输出到一个文件里面，请问怎么输出，这样是输出了一个WORD文件，两个EXCEL文件，感激涕零啊

十豆三 2012-08-15

打赏
举报

If Type('MYWORD')<>'O'
MYWORD = Createobject('WORD.APPLICATION')
Endif
MYWORD=Createobject('WORD.APPLICATION')
filelj='D:\'+m_period+'\output\'+m_bh+'.doc'
ow=MYWORD.DOCUMENTS.Open(filelj)
myword.ActiveDocument.PrintPreview
myword.ActiveDocument.PrintOut && 打印
myword.Visible=.T.
ow.saved=.T.
ow.Close
myword.Quit
Release myword

十豆三 2012-08-15

打赏
举报

report form (m_period+'\output\'+m_bh+'.doc') to printer
report form (m_period+'\output\'+m_bh+'.doc') to printer prompt
这样不行

想要在VFP中打印一个WORD文档，这怎么解决

相关推荐