如何獲取打印區域範圍？

Question

我想在UserForm中創建另存爲...按鈕。

當我單擊它時，會出現一個對話框，將activesheet的打印區域範圍保存爲* .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"，以適應你的目的！ ;）