Question

请问VBA大神，我下面这个程序怎样修改，打印的是sheet2和sheet3，而且这两个表格打印到同一个pdf

Answer 1

楼下的回答基本正确，只需要在
Sheets(Array("Sheet1", "Sheet2")).Select
后面加：
Sheets("Sheet1").Activate
然后还可以使用你原来的那句： ActiveSheet.ExportAsFixedFormat 。。。。 即可
否则得到的是空白的。
附完整的：
Sheets(Array("Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate '可省略
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\user\Administrator\Desktop\三" & Format(Now, "yyyymmddhhmmss") & ".pdf"

追问

如果保存的文件名 是sheet1 中B2的内容咋办

追答

将Filename改成
Filename=sheets("Sheet1").range("B2").value
即可

Answer 2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(Array("sheet2", "sheet3")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\" & Format(Now, "yyyymmddhhmmss") & ".pdf"
ThisWorkbook.Close False
End Sub

ps:不需要那么多replace,用format设置下日期时间格式即可.路径自己改.