设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 4784|回复: 25
打印 上一主题 下一主题

[模块/函数] 请大家版主所有的在线朋友帮个忙,页面设置模块

[复制链接]
跳转到指定楼层
1#
发表于 2009-1-11 11:55:37 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
Dim up, dn, le, ri, si, liAs Single , co As string'定义边距及页面函数
Sub ymszmk(strName As String) '页面设置模块
On Error GoTo Err_ymszmk
If Nz(DCount("*", "REPORTLIP", "REPORT='" & strName & "'")) = 0 Then
MsgBox "没有此报表的页面设置,请设置", , "提示"
Exit Sub
End If
up = DLookup("REUP", "REPORTLIP", "REPORT='" & strName & "'")
dn = DLookup("REDOWN", "REPORTLIP", "REPORT='" & strName & "'")
le = DLookup("RELEFT", "REPORTLIP", "REPORT='" & strName & "'")
ri = DLookup("RERIGHT", "REPORTLIP", "REPORT='" & strName & "'")
li = DLookup("RECOL", "REPORTLIP", "REPORT='" & strName & "'")
si = DLookup("RESIZE", "REPORTLIP", "REPORT='" & strName & "'")
co = IIf(DLookup("RECOURES", "REPORTLIP", "REPORT='" & strName & "'") Like "横向", acPRORLandscape, acPRORPortrait)Dim prt As Printer
    Set prt = Application.Printers(0)
prt.TopMargin = up * 56.7     '上
prt.BottomMargin = dn * 56.7  '下
prt.LeftMargin = le * 56.7    '左
prt.RightMargin = ri * 56.7   '右
prt.ItemsAcross = li          '列prt.PaperSize = si            '大小
prt.Orientation = co
DoCmd.OpenReport strName, acPreview
Reports(strName).Printer = prt
Exit_Err_ymszmk:    Exit Sub
Err_ymszmk:    If Err = 5 Then   
MsgBox "没有打印机,请先安装打印机!", , "提示"   
Exit Sub  
  End If   
MsgBox Err.Description  
  Resume Exit_Err_ymszmk
End Sub


请教,如上红色在执行中,提示拼写错或表没打开或没找到,
我想将如上设置过的是预览改为直接打印,应该怎么办

请大家帮个忙


新添加附件,请大家帮忙


大家帮个助,帮研究研究,此代码只有预览时生效,怎样才能直接打印呀,



[ 本帖最后由 whaojz 于 2009-1-12 17:11 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
26#
 楼主| 发表于 2009-1-12 23:56:28 | 只看该作者
有人可以帮帮我吗
25#
 楼主| 发表于 2009-1-12 12:45:54 | 只看该作者
去除
Reports(strName).Printer = prt

后,打印还是原来的设置,表中设置的值没有生较
24#
发表于 2009-1-12 11:08:55 | 只看该作者

Reports(strName).Printer = prt
去掉
你已经将prt设置为默认的打印机了。
23#
 楼主| 发表于 2009-1-12 10:51:59 | 只看该作者
6D
“晕,会错贴了,思想开小差。”
我没懂能下吗,能帮改改吗?
22#
发表于 2009-1-12 10:25:34 | 只看该作者
晕,会错贴了,思想开小差。
21#
 楼主| 发表于 2009-1-12 10:03:25 | 只看该作者
请大家版主所有的在线朋友帮个忙吧
20#
 楼主| 发表于 2009-1-11 23:03:33 | 只看该作者
:L
什么很长很长的数据呀,
19#
发表于 2009-1-11 22:59:08 | 只看该作者
看不到你所谓很长很长的数据
18#
 楼主| 发表于 2009-1-11 22:57:15 | 只看该作者
那我得明天传明天上午您在线吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-26 01:42 , Processed in 0.092405 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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