Microsoft Excel
Macros Print Activesheet
![]() |
Macros Print Activesheet |
Private Sub ButtonPrintEpson_Click()
Application.ScreenUpdating = False
ActiveSheet.PrintOut
Application.ScreenUpdating = True
End Sub
Macros Print To PDF
![]() |
VBA Macros Print To PDF |
Private Sub ButtonPrint_Click()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\~User~\Documents\norazizah\KalendarPDF.pdf", _
OpenAfterPublish:=False
Application.ScreenUpdating = True
End Sub