谁能给我做一个vb+accsee的报表程序实例，我学学!(200分)

[gohomesina]

要求：打印rst返回的记录集里的内容，可打所有的内容，也可打一条记录。麻烦在里面多加说明，因为我从来没用过报表!程序发过来后立即结帖!

[Daniel0318]

Option Explicit
'******************************************************
'建议A4纸打印
'******************************************************

Const PageLines = 25 '每页行数
Const xLeft = 15 '起始横坐标
Const yTop = 15 '起始横坐标
Const yHeader = 30

Dim Pages As Integer

Public Sub PrintList()

'主函数
Dim RecordCount As Integer
Dim i As Integer
Dim j As Integer
Dim l As Integer

'设置坐标
Printer.Scale (0, 0)-(160, 200)

'判断共几页
RecordCount = frmQuery.LVResult.ListItems.Count
If RecordCount Mod PageLines = 0 Then
Pages = RecordCount / PageLines
Else
Pages = Int(RecordCount / PageLines) + 1
End If

'打印每页
For i = 1 To Pages

'打印清单头
Call PrintHeader(i)

'计算每页打印行数
If i < Pages Then
l = PageLines
Else
l = RecordCount - (Pages - 1) * PageLines
End If

'打印该页内容
For j = 1 To l
Call PrintContent(j, (i - 1) * PageLines + j)
Next j

'若不是最后一页，换页
If i < Pages Then
Printer.NewPage
End If

Next i

'打印结束
Printer.EndDoc

End Sub

Private Sub PrintHeader(ByVal p As Integer)
'打印清单框架

'打印标题
Printer.FontSize = 20
Printer.FontBold = True
Printer.CurrentX = xLeft + 45
Printer.CurrentY = yTop
Printer.Print "信件查询单"

' 设置字体
Printer.FontSize = 10.5
Printer.FontBold = True


Printer.CurrentX = xLeft
Printer.CurrentY = 25
Printer.Print "查询时间：" & Format(Now, "yyyy年mm月dd日 hh时nn分")

'打印列头
Printer.CurrentX = xLeft
Printer.CurrentY = yHeader
Printer.Print "序号"

Printer.CurrentX = xLeft + 15
Printer.CurrentY = yHeader
Printer.Print "条码号"

Printer.CurrentX = xLeft + 40
Printer.CurrentY = yHeader
Printer.Print "来源"

Printer.CurrentX = xLeft + 65
Printer.CurrentY = yHeader
Printer.Print "目的"

Printer.CurrentX = xLeft + 90
Printer.CurrentY = yHeader
Printer.Print "登记时间"

Printer.CurrentX = xLeft + 55
Printer.CurrentY = 185
Printer.Print "第" & p & "页 共" & Pages & "页"

End Sub

Private Sub PrintContent(ByVal cl As Integer, ByVal fl As Integer)
'cl当前打印纸上行号
'fl当前列表中行号

Const LHeight = 5.8

'打印每条记录
Printer.CurrentX = xLeft
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(1)

Printer.CurrentX = xLeft + 15
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(2)

Printer.CurrentX = xLeft + 40
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(3)

Printer.CurrentX = xLeft + 65
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(4)

Printer.CurrentX = xLeft + 90
Printer.CurrentY = yHeader + cl * LHeight
Printer.Print rst.fields(5)

End Sub

[gohomesina]

对不起，我没写邮箱。
[e-mail]
麻烦你给我发 过来好码？我是菜鸟，请多写点说明!

[数据结构与算法学习、智能算法]

你好：
试着找一些关于vb数据库地书看一下

[lxcc]

http://www.21code.com/codebase/?pos=down&id=2028

[flxa]

gz

[cnwd]

我给你发了一个，注意查收

[tanyaliji]

up
mailto:[e-mail]
thankyou!!!!!!!!!!!!