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

tmtony · 发表于 2008-3-16 11:45:24

我使用了代码来动态设置报表的纸张及边距,但出现一个奇怪现象
打开报表时, 代码是执行了,但没有任何效果,可是手工打开页面设置, 发现里面的设置内容的确按代码已经修改了,如果这时按一下确定, 报表纸张设置才有效果

在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

purplerose · 发表于 2016-4-10 10:58:26

嗯，高手出招就是不一样的，学习一下^==^

xie62 · 发表于 2012-8-6 09:08:13

学习学习

newbuswalker · 发表于 2010-9-1 12:43:12

解压密码是什么？

yihesmxx · 发表于 2010-8-11 14:36:04

学习学习

hynmail · 发表于 2010-1-14 23:06:01

学习来着。

c101 · 发表于 2009-10-18 20:51:52

学习
学习

ilovshevchenko · 发表于 2009-8-24 09:04:34

宝贵经验啊

dfs4344 · 发表于 2009-4-23 11:00:16

学习学习.

panyifan · 发表于 2009-2-12 14:38:47

学习。。。学习。。。。。。。学习。。。。。。。。。。。。。。。。

Henry D. Sy · 发表于 2008-11-14 14:21:02

站长小气，才8个大洋。[:31]

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access中国官方群 (162780177)

主题相关群

地区相关群[您还没设置居住地]

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

群介绍
主题无相 (随机显示版	同地区群块其他地区)