Come stampare un documento Word da VB.NET: Primo Metodo

....
Dim objWord As Object = CreateObject("Word.Application")
objWord.Visible = False
Dim Doc As Object = objWord.Documents.Open()
Application.DoEvents()
With Doc.PageSetup
.LeftMargin = 5
.RightMargin = 5
.TopMargin = 20
.BottomMargin = 20
.Orientation = wdOrientLandscape
End With

objWord.ActiveDocument.PrintOut(Background:=True)
' Mi è capitato che alcune volte il documento non viene stampato
' credo dipenda dal livello di aggiornamento di Office sulla macchina destinataria
' dell'appplicazione. In questo caso sostituire la chiamata precedente con:
' objWord.ActiveDocument.PrintOut(Background:=True)

Application.DoEvents()

Doc.Close(False)
Application.DoEvents()

objWord.quit(False)
Application.DoEvents()
.....