设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2991|回复: 5
打印 上一主题 下一主题

[基础应用] 表中某一列数据为0的那一行不打印如何实现?

[复制链接]
跳转到指定楼层
1#
发表于 2008-1-4 15:53:12 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
在数据表中,有一列如数量,如果等于0,那么这一行在打印时不输出到打印机,但显示,不知道如何来实现。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2008-1-4 15:59:38 | 只看该作者
用代码:
    ActiveWindow.DisplayZeros = False
    ActiveWindow.SelectedSheets.PrintOut ...
    ActiveWindow.DisplayZeros = True
3#
发表于 2008-1-4 20:13:58 | 只看该作者

我的思路

该问题最终要实现的目标也就是说在等于0的这一行不打印的目的,我的思路是这样,
A.可以把改列的0值隐藏,当然要实现隐藏的方法很多,可以查找0,找到后,点右键隐藏,也可以直接隐藏,也可以用vba直接查找隐藏
B.根据以往的我工作习惯,几个的工作表都一点点篇幅,想打在一张A4纸上,可以用照相功能,当然这个问题好像没有必要哦!!
4#
 楼主| 发表于 2008-1-5 21:59:32 | 只看该作者
原帖由 pureshadow 于 2008-1-4 15:59 发表
用代码:
    ActiveWindow.DisplayZeros = False
    ActiveWindow.SelectedSheets.PrintOut ...
    ActiveWindow.DisplayZeros = True


请问,这段代码在哪里写?
以前从来没用过。

点击这里给我发消息

5#
发表于 2008-1-5 22:19:26 | 只看该作者
这个是录出来的,因为没有装打印机,所以打印那段后面省略了。
你也可以自己录一段,以后再操作就一键完成了。
6#
发表于 2008-2-29 13:29:09 | 只看该作者
恩,试一下,学到好多呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 01:29 , Processed in 0.084007 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表