报表页边距设置如何捕获错误代码？

mrd_wxqs

在代码中设置报表的页边距，当设置值超出范围时，不能捕获错误代码，如下提示，请问要如何才能捕获这样的错误代码呢？



我写的代码如下：
On Error GoTo Err_View
    If CurrentProject.AllReports(strReport).IsLoaded Then
        Set ActPrinter = Application.Printers(mm)                               ''为选定的打印机选取打印机对象。
        With ActPrinter                                                                       ''读取用户指定的设置。
            .PaperSize = Me.Cmb纸张
            .TopMargin = Me.Text上 * 56.7
            .BottomMargin = Me.Text下 * 56.7
            .LeftMargin = Me.Text左 * 56.7
            .RightMargin = Me.Text右 * 56.7
            .Orientation = Me.Frm方向
            .DataOnly = Me.Chk数据
        End With
        
        'DoCmd.OpenReport strReport, acViewPreview                   ''以预览模式打开报表。
        ActReport.Printer = ActPrinter                                             ''将报表的打印机设置为已修改的打印机对象。
    End If
    Exit Sub
   
Err_View:
    MsgBox Err.Description, vbExclamation, CurrentDb.Properties("AppTitle")

yanghua1900363

遇到同样的问题 所以就下载了 附件  但打开窗体时提示 “你输入的表达式需要一个激活的报表”

mrd_wxqs

经过两位大师的提醒，我发觉左右边距比较好检测，用打印机的itemsizewidth、纸张宽度、左右页边距相比较可以得出结果；但上下页边距就复杂得多，itemsizeheight只是报表主体节的高度，若报表还有页面的页眉页脚及报表的页眉页脚，甚至还有其他的节和组，这些部分的高度都得考虑，并且itemsizeheight的值有可能比纸张高度大，也可能很小，可能上下边距设置值的和已大于纸张高度但并不大于itemsizeheight，就不能提示错误了。
如tmtony所说，检测上下边距不大于某值（如15），但如果报表打印的结果是产品标签（如60*50)，这时若上下边距各允许设置为15又显得太大，用纸张高度的5%作为允许值也许可行，但也不够合理，请大师们再出出招，这个例子有不小的实用价值，谢谢！

koutx

在你的With块内部最后加上下面语句，即可捕获此类错误：
            If .TopMargin + .BottomMargin >= .ItemSizeHeight Then MsgBox "上下边距超出纸张页面高度", , "错误提示"
        End With

tmtony

设到大值会提示,但并不非法退出哦.
但为什么你要设置这么大哦, 一般在15以下,你可用代码限制用户不可大于这个值

mrd_wxqs

呵呵，我经过多次试验都以为这个没有办法了，而且这个实例在坛子里还算有些参考价值，就改成收费的了。

li08hua

哎，想帮你看看都要收费，没道理！

mrd_wxqs

tmtony 发表于 2010-12-6 21:02
奇怪了,我调到0.01 都可以哦,只不过保存后再打开,变成了打印机允许的最小值

哦，是吗，是将页边距往大的方向设置哦！不是往小的方向设置。比如纸高为210，当上下页边距都设置为100时，就会出错崩溃的。

我又重装了一遍电脑，依然如故。

不是用Access自带的“页面设置”来设置，而是用我的“Fs_页面设置”窗体来设置，先预览报表，然后从工具栏的“页面设置”来调用进行设置。

tmtony

奇怪了,我调到0.01 都可以哦,只不过保存后再打开,变成了打印机允许的最小值

mrd_wxqs

谢谢tmtony的解答。
这些代码我在两台电脑上试了，都会出错。刚好周六重装了一台电脑，今天上午试了同样也会出错，很是纳闷！比如使用hp-lj1320激光打印机的A5纸(148*210),当上下边距各设置为100时，就崩溃了。
我再多试，主要是想解决在MDE下调整报表页边距的问题！