Word drucken ohne Abfrage

Sub brief()
Dim pfad As String
Dim dok As String
Dim objword As Object
Dim i
i = InputBox("Wie oft soll gedruckt werden?", Default:=1)
pfad = "C:\\Intern\08\"
dok = "Protokoll_V1.doc"
Set objword = CreateObject("word.Application")
objword.Application.Visible = False
objword.Application.Documents.Open pfad & dok
objword.Activate
objword.Application.activedocument.PrintOut Copies:=i
objword.Application.activedocument.Saved = True
objword.Application.Quit
Set objword = Nothing
End Sub