On Error Resume Next
Const FILEPATH = "F:\All_Tables.xlsx"
Const PRINTERNAME = "Dr6 (HP LaserJet Pro M201dw)"
Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
With objExcel.Workbooks.Open(FILEPATH,True,True)
	.PrintOut ,,,,PRINTERNAME
	.Close False
End With
objExcel.DisplayAlerts = True
objExcel.Quit