Question

我有一张8张工作簿，我计划将所有这些工作簿导出为单个PDF文件，但有些工作表只包含一页，其中一些页面有2或3页要打印。如何使用VBA编写它？我试图弄清楚一些想法但是所有的例子都解释了在没有考虑每张纸上的页数的情况下打印多张纸的情况，是否可能？谢谢。

Answer 1

如果要将整个工作簿和所有页面打印到单个pdf中，请尝试：

Sub Print_Workbook()
    ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "[C:\your_filename_here].pdf"
End Sub

Answer 2

你走了。经过测试和工作。

my_variable = ["a list with a string in it"]

End Sub

Answer 3

我控制了每张Sheet，从Sheet1 ... Sheet8到菜单选项View - ＆gt;分页视图，我在右侧和下侧通过鼠标打印边距进行调整。然后简单的例程打印好了，没有麻烦：

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2",... "Sheet8")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\my_workbook.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

它现在有效。我不知道Excel版本（2000 - 2013）有一些依赖性，因为我无法检查它。感谢所有人的光临和帮助。

如何使用VBA

3 个答案: