标题:请教大佬,VFP报表可以直接打印成EXCEL吗? PDF也行
只看楼主
laibinhua
Rank: 2
等 级:论坛游民
威 望:1
帖 子:205
专家分:31
注 册:2010-12-23
结帖率:56.36%
已结贴  问题点数:10 回复次数:3 
请教大佬,VFP报表可以直接打印成EXCEL吗? PDF也行
请教大佬,VFP报表可以直接打印成EXCEL吗?PDF也行
搜索更多相关主题的帖子: EXCEL PDF VFP 打印 报表 
2022-04-13 22:15
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:5 
可以打印成PDF,但不能打印成EXCEL。

坚守VFP最后的阵地
2022-04-14 01:47
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:5 
**指定你的word文档(包含完整路径)
strFilePath="g:\1.docx"
objUDC = CREATEOBJECT("UDC.APIWrapper")
itfPrinter = objUDC.Printers("Universal Document Converter")
itfProfile = itfPrinter.Profile
itfProfile.PageSetup.ResolutionX = 300
itfProfile.PageSetup.ResolutionY = 300
itfProfile.FileFormat.ActualFormat = 2  &&FMT_JPG
itfProfile.FileFormat.PDF.ColorSpace = 24  &&CS_TRUECOLOR
itfProfile.FileFormat.PDF.Multipage = 2  &&MM_MULTI
itfProfile.OutputLocation.Mode = 1  &&LM_PREDEFINED
itfProfile.OutputLocation.FolderPath = "C:\Out"
itfProfile.OutputLocation.FileName = "&[DocName(0)] -- &[Date(0)] -- &[Time(0)].&[ImageType]"
itfProfile.OutputLocation.OverwriteExistingFile = .F.
WordApp = CreateObject("Word.Application")
WordDoc = WordApp.Documents.Open(strFilePath, , 1)
WordApp.ActivePrinter = "Universal Document Converter"
WordApp.PrintOut()
WordDoc.Close
WordDoc = null
WordApp.Quit
WordApp = Null
2022-04-14 08:56
sych
Rank: 3Rank: 3
等 级:论坛游侠
威 望:6
帖 子:179
专家分:183
注 册:2019-10-11
得分:0 
自行搜索安装Universal Document Converter打印机使用起来也非常方便,程序安装后,直接嵌入到打印选项里。用户在使用文档时,只要选择“打印”选项就能调出Universal Document Converter进行文档的转换。具体操作过程可以在软件的演示视频中清楚看到。

软件功能特色:

1、导出到8格式。任何类型的文件可以导出为PDF或TIFF格式,JPEG格式,PNG,PCX,DCX,GIF或BMP。
2022-04-14 08:58



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-508838-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.193508 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved