Microsoft Excel

 

Macros Print Activesheet

 

Macros Print Activesheet
Macros Print Activesheet

Private Sub ButtonPrintEpson_Click()
    
    Application.ScreenUpdating = False
    ActiveSheet.PrintOut
    Application.ScreenUpdating = True
      
End Sub 


Macros Print To PDF


Microsoft Excel 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