ACCESS表结构打印方法

ACCESS 的表结构打印方法其实挺实用的，尤其是你想把表设计清晰地展示给别人看时。ACCESS 本身界面就比较直观，你只要进到表的设计视图，字段名、数据类型、主键这些信息一目了然。再通过菜单打印出来，不仅格式清晰，还蛮省事儿的。

要是你追求更灵活的输出方式，比如想把表结构导出成文本或者走自动化流程，那就可以试试用一段小 VBA 脚本来搞定。像这个：

Sub PrintTableStructure(tableName As String)
  Dim db As DAO.Database
  Dim tdf As DAO.TableDef
  Dim fld As DAO.Field
  Dim strOutput As String

Set db = CurrentDb
  Set tdf = db.TableDefs(tableName)
strOutput = "表名：" & tdf.Name & vbCrLf
  For Each fld In tdf.Fields
    strOutput = strOutput & "字段名：" & fld.Name & vbTab & _
                 "数据类型：" & fld.Type & vbTab & _
                 "字段大小：" & fld.Size & vbCrLf
  Next fld
'写入文件或打印操作'
  WriteToFile strOutput
  PrintTableStructurePrinter strOutput
Set fld = Nothing
  Set tdf = Nothing
  Set db = Nothing
End Sub

你也可以拓展一下这个函数，把字段、是否允许空值都加进去。灵活性还是蛮高的。哦对了，打印前记得在 ACCESS 里设置一下页面布局，横向打印更舒服，尤其字段多的时候。

如果你还在用 ACCESS 做内部工具或者报表系统，建议收藏这段代码。实用又不复杂，关键是写出来的结构清晰明了，给同事交接也省事。