Vba 我正在尝试以PDF格式打印活动页，是否也可以分别打印第1页和第2页？到目前为止，我有这个

我正在尝试以PDF格式打印活动页，是否也可以分别打印第1页和第2页？到目前为止，我有这个。我希望导出的名称使用单元格B1、I1和J1中的值

子生产工作表（）

Dim ws As工作表
将strPath设置为字符串
Dim myFile作为变量
作为字符串的Dim strFile
关于错误转到错误处理程序
设置ws=ActiveSheet
'输入名称并选择文件的文件夹
'在当前工作簿文件夹中启动
strFile=Replace（Replace（ws.Name，“，”），“，”和“”）_
& "_" _
&范围（“B1”和“I1”和“J1”）_
&“.pdf”
strFile=thishworkbook.Path&“\”strFile
myFile=Application.GetSaveAsFilename_
（InitialFileName:=strFile_
FileFilter:=“PDF文件（*.PDF），*.PDF”_
标题：=“选择要保存的文件夹和文件名”）
如果myFile为“False”，则
ws.ExportAsFixedFormat_
类型：=xlTypePDF_
文件名：=myFile_
质量：=xlQualityStandard_
IncludeDocProperties:=True_
IgnorePrintAreas:=假_
OpenAfterPublish:=False
MsgBox“PDF文件已创建。”
如果结束
出口商：
出口接头
错误处理程序：
MsgBox“无法创建PDF文件”
复出机

---

End Sub

只需使用

ExportAsFixedFormat

功能的

From

和

To

参数：

ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False, _
    From:=1, _
    To:=1

第2页也是一样

ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=myFile, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False, _
    From:=1, _
    To:=1