Office中国论坛/Access中国论坛

标题: 报表打印标记 [打印本页]

作者: chentaoww 时间: 2011-11-22 21:51
标题: 报表打印标记
报表中已打印的数据在表中自动添加已打印标识可以实现吗？

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

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

作者: yanwei82123300 时间: 2011-11-23 13:36
andymark 老师有例子吗？

作者: chentaoww 时间: 2011-11-23 20:22

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

举个例子好吗 andymark 老师

作者: roych 时间: 2011-11-23 22:11
本帖最后由 roych 于 2011-11-23 22:22 编辑

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

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

作者: ycxchen 时间: 2011-11-24 09:19
ROYCH热心，可嘉！

作者: chentaoww 时间: 2011-11-24 20:18

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

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

作者: Henry D. Sy 时间: 2011-11-25 11:14

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

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

复制代码

[attach]47444[/attach]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)