VBA研究输出PDF文件合并时出错

Posted 2022-11-04 宋哥

作者：iamlaosong

在做一个打印通知单的工具时（这个工具已经做过很多个，技术基本一样），输出的多个PDF文件合并时出错，单个PDF文件打开没有问题。

合并其他文件没有问题，那问题只能是这些单个PDF文件。PDF文件是用下面语句输出的：

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf & "\\代收付对账单" & Format(rr, "000000") & ".pdf"

不过，显然与这个语句无关，因为我是用老工具改的，这一块没动，唯一动的就是界面布局。我尝试看看问题出在哪儿，经过不断试验，在去掉最后一个单元格的引用后，问题不再出现。

这个单元格内容是序号，引用数据区的数据，将引用直接改成文本，没有问题；将这个引用放到前面去，也没问题。看来问题出在位置上。

这个通知单落款处需要打印一个公章，这个图片会挡住单元格的内容。所以，上面的落款和日期使用的是文本框。当然，为了不挡住公章，文本框要设置成无填充，边框透明。

不知道什么原因，文本框控件后面单元格内容如果是引用的话，打印输出的PDF文件就不能合并（也许是个bug），将这个单元格的引用换成文本框，问题解决。

想到这个引用放到前面没有问题（实际上前面也有很多单元格的数据是引用的），我在后面加了一个文本框，哪怕是这个文本框内容为空，也没问题。唯一要注意的是，这个文本框必须放在这个单元格下面隔一行才可以，也不知道什么原因。