Vba 如何获得打印区域范围？

我想创建另存为。。。用户窗体中的按钮

---

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

以下是如何以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”

，以符合您的目的！；）