设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 21238|回复: 27

在MDE中动态设置报表纸张及页边距

[复制链接]

点击这里给我发消息

发表于 2008-3-16 11:45:24 | 显示全部楼层 |阅读模式
8金钱
我使用了代码来动态设置报表的纸张及边距,但出现一个奇怪现象
打开报表时, 代码是执行了,但没有任何效果,可是手工打开页面设置, 发现里面的设置内容的确按代码已经修改了,如果这时按一下确定, 报表纸张设置才有效果


在Open事件中加了如下代码:
Dim rs As Recordset
Set rs = CodeDb.OpenRecordset("Select * From tblrptPageSize ", dbOpenDynaset)

With Me.Printer
     .PaperSize = Nz(rs!rptPageSize, 9)
     .TopMargin = Round(Nz(rs!rptTop, 0) * 56.7, 2)
     .BottomMargin = Round(Nz(rs!rptBottom, 0) * 56.7, 2)
     .LeftMargin = Round(Nz(rs!rptLeft, 0) * 56.7, 2)
     .RightMargin = Round(Nz(rs!rptRight, 0) * 56.7, 2)
     .Orientation = 2
     .Copies = 1
End With

最佳答案

查看完整内容

应该可以,需要用集合的方式打开报表才能改变纸张大小 Public clnClient As New Collection Public Sub GetPage(ReportName As String) '读取页边距 Dim Rs As New ADODB.Recordset Dim Conn As New ADODB.Connection Set Conn = CurrentProject.Connection Dim SQL As String Dim Rpt As Report SQL = "SELECT * FROM Dybbcs where bbmc='" & ReportName & "'" Set Rpt = New Report_Test Rs.Open SQL, Conn, a ...
发表于 2008-3-16 11:45:25 | 显示全部楼层
应该可以,需要用集合的方式打开报表才能改变纸张大小

Public clnClient As New Collection
Public Sub GetPage(ReportName As String)  '读取页边距
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Dim SQL As String
Dim Rpt As Report

SQL = "SELECT * FROM Dybbcs where bbmc='" & ReportName & "'"

Set Rpt = New Report_Test

Rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic

With Rpt.Printer
        .TopMargin = Rs.Fields("bbsbj")
        .BottomMargin = Rs.Fields("bbxbj")
        .LeftMargin = Rs.Fields("bbzbj")
        .RightMargin = Rs.Fields("bbybj")
        .papersize = acPRPSA4
End With

clnClient.Add Item:=Rpt, Key:=CStr(Rpt.Hwnd)
Rpt.Visible = True

Set Rs = Nothing
Set Conn = Nothing
End Sub

打开报表时
GetPage "test"

我这里测试OK
回复

使用道具 举报

发表于 2008-3-16 13:58:47 | 显示全部楼层
以前做的例子 , 能动态设置的
MDE保存调用页边距的例子
回复

使用道具 举报

点击这里给我发消息

 楼主| 发表于 2008-3-16 20:24:49 | 显示全部楼层
andymark兄,好像也不行,跟我那个代码一样的问题, 更新为A4纸或其它设置,保存后再进去还是未更新到

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2008-3-17 09:21:31 | 显示全部楼层
确实是这样,我也正遇到这个问题,与tmtony描述得一样,设置横向竖向也是如此.
回复

使用道具 举报

发表于 2008-3-17 09:29:14 | 显示全部楼层
好像 是  解决不了
回复

使用道具 举报

点击这里给我发消息

 楼主| 发表于 2008-3-17 14:41:59 | 显示全部楼层
使用代码来模拟一下 打开页面设置的功能. 这个方向可能行
回复

使用道具 举报

点击这里给我发消息

 楼主| 发表于 2008-3-17 16:40:32 | 显示全部楼层
学习一下
回复

使用道具 举报

点击这里给我发消息

 楼主| 发表于 2008-3-17 16:59:25 | 显示全部楼层
andymark兄,还是不行
在执行set rpt=new report_test
时,不断死循环.
可能是新对象时就会递归执行 getpage
我把附件传上来

本帖子中包含更多资源

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

x
回复

使用道具 举报

发表于 2008-3-17 17:04:42 | 显示全部楼层
andymark兄,还是不行
在执行set rpt=new report_test
时,不断死循环.
可能是新对象时就会递归执行 getpage
我把附件传上来
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 01:19 , Processed in 0.092919 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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