VB中自带的报表打印怎么实现，我一直没有尝试成功，希望有个详细的例子，谢谢！

Question

一直报错，希望能有个调试通过的例子

Answer 1

不要用Environment，直接添加DataReport。在细节中用RptTextBox控件按自己的打印要求布局。将其DataField属性对应相应的字段，注意不要设置DataMember，双击DataReport，添加代码如下：
Private Sub DataReport_Initialize()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim Sql As String
    '连接数据库(Access)
    Set cn = New ADODB.Connection
    With cn
        .Provider = "MSDataShape.1" '一定要加这句
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & App.Path & "\db1.mdb;" & _
        "Persist Security Info=False"
    End With
    '组合查询语句：
    Sql = "SELECT * FROM TableName " & _
        "where ID ='" & Form1.Text1.text & "'"
    '打开查询记录集
　　Set rs = New ADODB.Recordset
    rs.Open Sql, cn, adOpenStatic, adLockReadOnly
    Set Me.DataSource = rs
End Sub