VBA示例：将工作簿中所有指定工作表的指定区域保存为PDF文件

文章预览

学习Excel技术，关注微信公众号： excelperfect 标签： VBA 这是在 vbaexpress.com 中看到的一个示例，个人觉得对学习 VBA 编程基础很有帮助。 如下图 1 所示，在表中列出了工作簿中除本工作表外其他相关工作表的名称、工作表代码名称、工作表标题行区域、工作表中要打印的区域、以及是横向还是纵向打印，最后一列设置是否要打印（“ y ”表示打印，“ n ”表示不打印）。 图 1 下图 2 是 VBE 中工作簿的工程资源管理器界面，列出了工作表名及相应的工作表代码名。 图 2 下面是实现功能的 VBA 代码： Const cSheet As Long = 1 Const cCodeName As Long = 2 Const cTitle As Long = 3 Const cArea As Long = 4 Const cOrient As Long = 5 Const cYN As Long = 7 Sub PrintThem()  Dim rPrint As Range, rLast As Range, rFirst As Range, rRow As Range Dim ws As Worksheet Dim A() As String Dim iA As Long Dim sFile As ………………………………