报表页边距设置不能捕获错误而崩溃

mrd_wxqs

向各位前辈大师求助：
我以下代码用来设置报表的页边距，有错误捕获功能，但在页边距设置超出范围时却不能捕获错误信息，而是直接崩溃退出，请问是什么原因，望前辈大师们指教，不胜感激涕零！
Private Sub Cmd预览_Click()
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")
End Sub

不能捕获错误信息，直接崩溃退出：
        

tmtony

好像没有遇到过
在其它电脑上有否试过?

mrd_wxqs

回tmtony:
有在两台电脑上试过，都是崩溃退出，这两台电脑分别是：Win2003+Office2003和WinXP+Office2003，报表的纸张大小为自建的(宽108*长100mm)，当上下页边距各设置为50mm或50及45时就会崩溃退出，没有任何出错提示！是否可以用代码计算检测可以设置的页边距范围呢？如果可以的话应该检测报表的哪些项目呢，望前辈大师们不吝赐教，谢谢！