指定每页打印的记录数,类似银行存折打印功能,指定页指定打印行数的示例

lhpyyh

指定每页打印的记录数,类似银行存折打印功能,指定页指定打印行数的示例.rar (87.81 KB, 下载次数: 265)

2012-12-11 09:43 上传

点击文件名下载附件

hustnzj

感谢分享，但楼主最好能简单分析一下思路：比如本例就是通过创建一个临时的数据源表tblreport，并通过其中的pagenum字段来选择报表的数据源。
代码写得很好，我自己改了下，也可以用：

1. Private Sub cmdPrint_Click()
   
2.     On Error GoTo Err_cmdPrint_Click
   
3.     Dim i As Long
   
4.     Dim myLines As Integer
   
5.     Dim CurrentPage As Integer
   
6.     Dim stDocName As String
   
7.     Dim rst As Object
   
8.     myLines = Forms!frmOpen!CobLines
   
9.     DoCmd.SetWarnings False
   
10.     '    DoCmd.RunSQL "DELETE tblReport.* FROM tblReport"
    
11.     DoCmd.RunSQL "DELETE FROM tblReport"
    
12.     '按ID升序追加到表
    
13.     '    DoCmd.RunSQL "INSERT INTO tblReport ( ID, Model, PcName, Composition, Specification, Price ) " _
    
14.          '               & "SELECT ID, Model, PcName, Composition, Specification, Price " _
    
15.          '               & "FROM computer ORDER BY ID"
    
16.     DoCmd.RunSQL "INSERT INTO tblReport " _
    
17.                & "SELECT * " _
    
18.                & "FROM computer ORDER BY ID"
    
19.     Set rst = CurrentDb.OpenRecordset("tblReport", dbOpenDynaset)
    
20.     '    rst.MoveFirst
    
21.     i = 0
    
22.     Do Until rst.EOF
    
23.         rst.Edit
    
24.         rst!pageNum = (i - i Mod myLines) / myLines + 1
    
25.         rst.Update
    
26.         i = i + 1
    
27.         rst.MoveNext
    
28.     Loop
    
29.     rst.Close
    
30.     Set rst = Nothing
    
31.     stDocName = "rpt报表"
    
32.     DoCmd.OpenReport stDocName, acPreview
    
33. Exit_cmdPrint_Click:
    
34.     Exit Sub
    
35. Err_cmdPrint_Click:
    
36.     MsgBox Err.Description
    
37.     Resume Exit_cmdPrint_Click
    
38. End Sub

复制代码

chlzj

留个脚印，学习一下！

LMY123

ACCESS固定行数输出