运行“打印为PDF” VBA代码后，如何从Excel工作表中删除“打印区域预览”？

Question

我正在使用VBA代码使用ActiveX按钮运行Excel代码从Excel工作表中打印两个选定的工作表（渠道和其他报告）。 获取PDF后，视图将移动到最后打印的图纸，并且两个图纸在excel图纸上都有打印预览行。这些是页面标记，而不是我们通常在excel中看到的虚线。

我尝试删除虚线的打印网格线，但这不起作用。我需要这些选项卡即使在打印后也要可见，否则我可以在打印为PDF时使用VBA取消隐藏它们。

Private Sub CommandButton1_Click()

Dim Path As String
Path = "C:\COMPASS_REPORT\"

If Dir(Path, vbDirectory) = "" Then
    MkDir (Path)
End If


PDF_FileName = Path & "POP_" & Format(Now, "yymmdd") & ".pdf"

ThisWorkbook.Sheets(Array("Funnel", "Other reports")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
PDF_FileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
 IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

我希望在打印PDF后可以使纸张恢复正常。同样，如果有一种方法可以控制应在VBA代码末尾显示的工作表，那也很好。谢谢您的提前帮助。