myexcel.Activeworkbook.printout

myexcel.ActiveWorkbook.Close True
myexcel.Quit
Set myexcel = Nothing