VFP如何在Excel单元格中插入一张图片？感谢！ - 编程论坛

#2

sdta2022-10-20 21:25

论坛中有这方面的内容，自己搜索吧

#3

schtg2022-10-21 06:08

回复楼主 yqyang

也可以写入word模版吧

#4

laowan0012022-10-21 08:33

可以考虑用VFP将准考证打印到PDF文件

#5

wengjl2022-10-21 10:44

以下是引用laowan001在2022-10-21 08:33:49的发言：

可以考虑用VFP将准考证打印到PDF文件

我想将VFP的报表输出到PDF，要能自动命名PDF文档的名称，试过N次都没成功。

能不能详细介绍一下！例如：我算好工资后，按部门打印报表，想要以部门的名称，自动命名生成的PDF文档名。

#6

laowan0012022-10-21 11:06

以下是引用wengjl在2022-10-21 10:44:25的发言：

我想将VFP的报表输出到PDF，要能自动命名PDF文档的名称，试过N次都没成功。

能不能详细介绍一下！例如：我算好工资后，按部门打印报表，想要以部门的名称，自动命名生成的PDF文档名。

（1）缺省打印机设置为：Microsoft Print to PDF
（2）在REPORT FORM 语句之前加下面这两句
xfilename = '输出文件名'+CHR(13) && 注意：想要自动打印，输入文件名就不要重复（你那里应该是部门名称之类的），否则会有提示框弹出
KEYBOARD xfilename

我试过，这样可以的

#7

cjc10102022-10-21 11:24

**以下是在I2单元格中放置图片
   SELECT xxhzb
   oxls.range("I2").select    &&&图片放置位置
   oxls.ActiveSheet.pictures.insert(SYS(5)+SYS(2003)+"\pic\"+ALLTRIM(bh)+".bmp").select
   *oxls.ActiveSheet.pictures.insert(".\pic\"+ALLTRIM(bh)+".bmp").select   &&需要选中图片才能调整高度
   oxls.Selection.shaperange.height=120   &&&图片高度
**

#8

fyyylyl2022-10-21 11:46

以下是引用laowan001在2022-10-21 11:06:56的发言：

（1）缺省打印机设置为：Microsoft Print to PDF
（2）在REPORT FORM 语句之前加下面这两句
xfilename = '输出文件名'+CHR(13) && 注意：想要自动打印，输入文件名就不要重复（你那里应该是部门名称之类的），否则会有提示框弹出
KEYBOARD xfilename

我试过，这样可以的

也可以先生成WORD文档，然后利用其导出为PDF文档的功能则不受打印机安装的影响，可以用纯代码生成PDF文档

#9

laowan0012022-10-21 15:49

以下是引用fyyylyl在2022-10-21 11:46:53的发言：

也可以先生成WORD文档，然后利用其导出为PDF文档的功能则不受打印机安装的影响，可以用纯代码生成PDF文档

这样是可以，但还是要人工干预，特别是输出多个PDF的时候就更麻烦了，没法实现自动+全部

#10

fyyylyl2022-10-21 16:03

以下是引用laowan001在2022-10-21 15:49:57的发言：

这样是可以，但还是要人工干预，特别是输出多个PDF的时候就更麻烦了，没法实现自动+全部

不需要的啊！和生成报表一样的，只不过生成WORD文档时代码不如报表简单，生成后另存即可：.ActiveDocument.SaveAs(cFileName,nFileFormat)

#11

laowan0012022-10-21 16:26

以下是引用fyyylyl在2022-10-21 16:03:39的发言：

不需要的啊！和生成报表一样的，只不过生成WORD文档时代码不如报表简单，生成后另存即可：.ActiveDocument.SaveAs(cFileName,nFileFormat)

我怎么没想到啊

#12

sostemp2022-10-23 09:32

回复 10楼 fyyylyl

能分享下WORD的所有nFileFormat表吗

#13

yqyang2022-10-23 09:50

谢谢各位的回复！@cjc1010试了一下你的代码，可以放入图片，但图片没在要插入的单元格里，是悬浮在表上，我用的是2007，也可能是Excel2007就没有将图片嵌入到单位格里的功能。谢谢了！

#14

wengjl2022-10-24 12:11

以下是引用laowan001在2022-10-21 11:06:56的发言：

（1）缺省打印机设置为：Microsoft Print to PDF
（2）在REPORT FORM 语句之前加下面这两句
xfilename = '输出文件名'+CHR(13) && 注意：想要自动打印，输入文件名就不要重复（你那里应该是部门名称之类的），否则会有提示框弹出
KEYBOARD xfilename

我试过，这样可以的

谢谢！