需要Vba代码来组合并从excel中的宏创建单个pdf文件

问题描述

我有一个office excel模板和一个vba代码，它通过使用以下VBA代码定义的Array更改其中一个Cell值（L1）来打印相同工作表的4个副本。





$


Dim i As Integer

Dim VList As Variant



VList =数组（"收件人原件"，"转运人员重复"，"卖方三件"，""） b对于i = LBound（VList）至UBound（VList）

范围（"L1"）= VList（i）

ActiveSheet.PrintOut

下一页



结束次要



$
b $ b我想要的是，在打印这些纸张后，我还要将这些纸张保存为PDF文件，并将所有4份纸张保存在一个连续的pdf文件中。



如何修改此代码以保存为一个包含所有4页的pdf文件



任何帮助都将非常有用。

解决方案

也发布在

请看我的回复。

I have an office excel template and a vba code which prints 4 copies of the same sheet by changing one of the Cell values (L1) with Array as defined by the below VBA code .




Dim i As Integer
Dim VList As Variant

VList = Array("ORIGINAL FOR RECIPIENT", "DUPLICATE FOR TRANSPORTER", "TRIPLICATE FOR SELLER", "")
For i = LBound(VList) To UBound(VList)
Range("L1") = VList(i)
ActiveSheet.PrintOut
Next

End Sub



What I want is that after printing these sheets I also want to save these sheets as PDF files with all the 4 copies of the sheet in a single continuous pdf file.

How can i modify this code to also save as one pdf file with all 4 pages

Any help will be greatly useful.

解决方案

Also posted at http://www.eileenslounge.com/viewtopic.php?f=27&t=30998

See my reply there.

这篇关于需要Vba代码来组合并从excel中的宏创建单个pdf文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！