'下面这段代码是我初学时的练习代码,测试过了没有问题.
'现在我用的是ADODB 你可以自己将Data1控件改为ADODB的方式.
Public datadisk$, aa$, bb$, cc$, i%, lineno%
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
datadisk = "c:\bawang\bwdata\"
Data1.DatabaseName = datadisk + "bwscale.mdb"
Data1.RecordSource = "bwtruck"
Data1.Refresh
Data1.ReadOnly = False
End Sub
Private Sub Form_Activate()
Me.CurrentX = 0
Me.CurrentY = 0
Data1.Recordset.MoveFirst
lineno = 0
Do While True
aa$ = Data1.Recordset.Fields(0)
bb$ = Data1.Recordset.Fields(1)
cc$ = Data1.Recordset.Fields(2)
Me.Print aa$, bb$, cc$
If Not Data1.Recordset.EOF Then
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Exit Do
End If
lineno = lineno + 1
If lineno > 40 Then '40行为一页
Printer.NewPage '换页
lineno = 0
End If
Else
Exit Do
End If
Loop
Printer.EndDoc '结束打印
End Sub