VBA Print Error ..

Dear Expexts

i've code error of " application-defined or Object-defined error "
can u help me fix as it are auto printing


code :

Private Sub Worksheet_Calculate()
    Application.ActivePrinter = "Zebra  Z4MPlus DTe (EPL) on USB001:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "Zebra  Z4MPlus DTe (EPL) on USB001:", Collate:=True
End Sub