如何获得打印区域范围？

Question

我想在UserForm中创建另存为...按钮。

当我单击它时，会出现一个对话框，将活动表的打印区域范围保存为* .pdf文件。

Answer 1

以下是如何在PDF中导出活动工作表的打印区域：

Dim Ws As Worksheet
Set Ws = ThisWorkbook.ActiveSheet
ws.Range(ws.PageSetup.PrintArea).ExportAsFixedFormat _
    Type:=xlTypePDF _
    FileName:="sales.pdf" _
    Quality:=xlQualityStandard _
    DisplayFileAfterPublish:=False

您只需要更改"sales.pdf"以符合您的目的！ ;）