Sub Click(Source As Button)

     ' --- Wordオブジェクト作成
     Set wordObj = CreateObject("Word.application") 
     
     ' --- ファイルをオープン
     With wordObj
          .Visible = True ' Wordを起動
          .Documents.Open "C:\sample.doc" ' ファイルをオープン
     End With
     
     ' --- プリントアウト
     wordObj.ActivePrinter = "RICOH IPSiO NX700 RPDL"
     wordObj.Application.PrintOut
     
     ' --- ウインドウを最小表示
     wordObj.WindowState = 2 ' wdWindowStateMinimize
     
     ' --- 終了
     wordObj.Quit ' QuitメソッドでWordを終了
     Set wordObj = Nothing ' オブジェクト変数のメモリ領域を開放
     
     Msgbox "Wordを起動してサンプル文書を印刷しました。"
     
End Sub