Office中国论坛/Access中国论坛

标题: [已解决THKS！]ACCESS如何调出打印机选择那个窗口？ [打印本页]

作者: sunny-xie 时间: 2008-1-12 15:40
标题: [已解决THKS！]ACCESS如何调出打印机选择那个窗口？
如图：
[attach]27840[/attach]

CutePDF Writer这个软件不知道大家用过没有，他可以把文件打印成PDF档，我的目的就是通过做一个可以选择打印机的按钮，把当前窗体打印成PDF档（如果可以这样，就不用写转PDF档的代码），ACCESS能实现否，请达人告之如何做，THKS！

[ 本帖最后由 sunny-xie 于 2008-1-15 10:22 编辑 ]

作者: sgrshh29 时间: 2008-1-12 17:45
如果是你图示的对话框选择，这样：
docmd.runcommand accmdprint
如果不要对话框直接打印的话，先选择打印机，然后再用打印语句调用这个函数：
private function setprn() as boolean
dim prn as printer
for each prn in printers
if prn.devicename = "cutepdf writer" then
set printer = prn
setprn = true
exit function
end if
next
end function

作者: sunny-xie 时间: 2008-1-12 19:58
感谢2位，看到效果了
不过有个问题，怎么打印的是3页，有1页是空白页，如何设置？请看库
[attach]27844[/attach]

作者: soulwolf009 时间: 2008-1-12 20:24
小菜鸟向前辈多多学习

作者: sunny-xie 时间: 2008-1-14 08:33
字段太多，

作者: sunny-xie 时间: 2008-1-14 11:16
标题: 回复 6# 的帖子
做成报表好象比较累，字段太多不能自动生成(自己设置，拖动字段的位置时好卡？)，而且图片不知道如何在报表里表示，直接打印窗体较方便，但有一页空白页，何解？

作者: sunny-xie 时间: 2008-1-14 14:17
标题: 回复 9# 的帖子
直接另存为报表，没效果，字段可能是没帮顶的原因？空白页是怎么回事，没有这个页就解决了

烦请斑竹，打开我上传的库调试，THKS！

作者: sgrshh29 时间: 2008-1-14 14:55
[attach]27862[/attach]

作者: sunny-xie 时间: 2008-1-14 15:10
标题: 回复 11# 的帖子
还是有空白页，不过是第三页，前面是第一页。。

[ 本帖最后由 sunny-xie 于 2008-1-14 15:11 编辑 ]

作者: sunny-xie 时间: 2008-1-14 15:45
改动何时显示这个属性为两者都显示时，变为4页，有2页空白的，但是没检查到第一个空白是那个窗体的
[attach]27863[/attach]

作者: huangxiuwen 时间: 2008-1-14 16:05
顶你。顶你。顶你。顶你。顶你。

作者: lzymbz 时间: 2008-1-15 01:16
看看你做的效果
如果可以这样那就太好了

作者: chenddxs 时间: 2009-1-12 12:27
凑够10条回复才看得到

作者: kevin5433 时间: 2009-1-22 07:28
[:50]

作者: Henry D. Sy 时间: 2009-1-22 07:49
DoCmd.RunCommand acCmdPrint

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