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