如何在 PDF 中打印 Excel 工作表的部分页面？

Question

I have adjusted my sheet in Page Layout and have 10 pages in total.

I would like to export some of them as a PDF, for example 1, 2, 5, 8 and 10.

Answer 1

Try the Worksheet.ExportAsFixedFormat method:

Sub ExportPages()
    Dim MyWorksheet as Worksheet
    Set MyWorksheet = Application.Workbooks("NameOfYourWorkbook").Worksheets("NameOfYourWorksheet")

    ' This will save pages 1 and 2 in the file "Pages 1 and 2.pdf" in the current folder
    MyWorksheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="Pages 1 and 2", From:=1, To:=2
    ' Repeat this as often as you want setting different values to the options From:= and To:=

    Set MyWorksheet = Nothing
End Sub

To save specific pages like 2, 5 and 7 just call the method multiple times:

MyWorksheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="Page 2", From:=2, To:=2
MyWorksheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="Page 5", From:=5, To:=5
MyWorksheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="Page 7", From:=7, To:=7