Cetak Laporan VB ke Word

Dim MyWord As New Word.Application
MyWord.Documents.Add

MyWord.ActiveDocument.Tables.Add Range:=MyWord.Selection.Range, NumRows:=1, NumColumns:= _
RsGrid.Fields.Count, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

For i = 0 To RsGrid.Fields.Count - 1
MyWord.Selection.TypeText Text:=RsGrid.Fields(i).Name
MyWord.Selection.MoveRight Unit:=wdCell
Next i
RsGrid.MoveFirst
While Not RsGrid.EOF
For i = 0 To RsGrid.Fields.Count - 1
MyWord.Selection.TypeText Text:=RsGrid.Fields(i)
MyWord.Selection.MoveRight Unit:=wdCell
Next i
RsGrid.MoveNext
Wend
Me.CommonDialog1.DialogTitle = "Penyimpanan Laporan Word"
Me.CommonDialog1.Filter = "File Word|*.docx"
Me.CommonDialog1.ShowSave
ActiveDocument.SaveAs Me.CommonDialog1.FileName
ActiveDocument.Close
MyWord.Quit
Set MyWord = Nothing