添加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
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
横向距离可以拖动控件调整,纵向距离可以调整细节、标头的Height的值。
打印时打印程序会按你纸张尺寸自动分页
强烈建议换一个报表工具!vb自带的确实太烂!