报表打印标记

chentaoww

报表中已打印的数据在表中自动添加已打印标识可以实现吗？

pq318

这个问题我想呢无非两个办法，其一呢是加一个字段显示已打印，其二呢建一个打印记录表，我采用的是后者，因为有的标签会损坏，重复打印，这个办法比较好

andymark

在表中多加一个字段，每打印一次就UPDATE 一下，除了可以实现你说的功能外，还能统计报表打印了几遍

yanwei82123300

andymark 老师有例子吗？

chentaoww

andymark 发表于 2011-11-23 10:05
在表中多加一个字段，每打印一次就UPDATE 一下，除了可以实现你说的功能外，还能统计报表打印了几遍

举个例子好吗 andymark 老师

roych

yanwei82123300 发表于 2011-11-23 13:36
andymark 老师有例子吗？

其实很简单的。一般打印都是在按钮上执行的，因此只需要设置一个更新查询，在点击时先执行，然后再打印报表即可。
例如 ：Update Report set [Report].[Print]= [Report].[Print]+1
示例供参考（为了方便新手，这里只使用宏）

ycxchen

ROYCH热心，可嘉！

chentaoww

roych 发表于 2011-11-23 22:11
其实很简单的。一般打印都是在按钮上执行的，因此只需要设置一个更新查询，在点击时先执行，然后再打印 ...

想把每条记录后面都加个标记，可以实现吗？有附件，帮忙做下，谢谢！~~~~~~~~~~~~~

Henry D. Sy

chentaoww 发表于 2011-11-24 20:18
想把每条记录后面都加个标记，可以实现吗？有附件，帮忙做下，谢谢！~~~~~~~~~~~~~

1. Private Sub Command2_Click()
   
2.     Dim strSQL As String
   
3.     Dim strWhat As String
   
4.     Dim strCriteria As String
   
5.     If Not IsNull(Me.Combo0) Then
   
6.         strWhat = Me.Combo0
   
7.         strCriteria = "班级='" & strWhat & "'"
   
8.         strSQL = "update 成绩表 set 打印标志=打印标志+1 where " & strCriteria
   
9.         CurrentDb.Execute strSQL
   
10.         DoCmd.OpenReport "报表", acViewPreview, , strCriteria
    
11.     End If
    
12. End Sub

复制代码