EXCEL VBA 将工作薄内所有工作表存为一个PDF文件

可以通过录制宏得到一段代码，稍加孙中修改后即可使用，如下图示：

代码：

Option Explicit

Sub EtoPDFs()

'

'另存为PDF

'   戚凯毕'全选工作表

  Sheets.Select

 '另存为PDF文件‘ThisWorkbook.Name’部分因为不知道你的工作簿后缀是高芹什么，否则可以通过mid或者left函数修改保存的名字

  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

      ThisWorkbook.Path &"\" &ThisWorkbook.Name &".pdf", Quality _

      :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

      OpenAfterPublish:=True 

End Sub

这很简单的。首先，您要做“页面设置”，如图，使类似如启芦肢图的1*-3行在每页显示。

然后您调整行高（或纸张大小），使每页的显示符合您的要求。

打印预览符合要求后，您要做哗册的是：另存为，保存类型为pdb即可。本人试的效果如下图。

祝您 一切顺利。悄世