Table In Microsoft Word

[AlterEgo]

I would like to make a table in a Microsoft Word document from a bunch or records in my Access database.

How to do that?

[Hack]

Try this

Private Sub cmdMakeWordTable_Click()
Dim MyWord As Object
Dim x, y, res
  x = 1
  y = 1
SQL = "SELECT name, type, address FROM MyTable  "
Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset, dbSQLPassThrough)
Set MyWord = CreateObject("Word.Application")
 
With MyWord
    .Documents.Add
    .ActiveDocument.PageSetup.Orientation = wdOrientLandscape
    .ActiveDocument.PageSetup.LeftMargin = 70
    .ActiveDocument.PageSetup.TopMargin = 30
    .Selection.Font.Name = "Verdana"
    
    res = .Application.ActiveDocument.Tables.Add _
    (.Application.ActiveDocument.Range, Rs.RecordCount + 1, _
    Rs.Fields.Count)
        'Populating the Data from table
        Do While Rs.EOF = False
            .Application.ActiveDocument.Tables(1).Cell(x, y) = Rs.Fields(0)
            .Application.ActiveDocument.Tables(1).Cell(x, y + 1) = Rs.Fields(1)
            Rs.MoveNext
            x = x + 1
        Loop
End With
Set MyWord = Nothing
End Sub

[AlterEgo]

Thank you Mr. Hack.

One more question. How to print it now?

[Hack]

Click on the Printer icon on the Word toolbar...