Sub 另存为pdf()
    Application.ScreenUpdating = False
    Dim wb As Workbook
    '如果需要保存为excel格式的，可以使用注释掉的这几条代码
'    ActiveSheet.Copy
'    Set wb = ActiveWorkbook
'    wb.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
'    wb.Close 1
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "_" & ActiveSheet.Name & ".pdf"
    Set wb = Nothing
    Application.ScreenUpdating = True
End Sub