主题：调用页面设置窗体没有反应

我在“委转单修改”窗体中调用“页面设置”窗体，不管怎么设置页边距。都没有反应，请问我问题出在哪里？请指教，谢谢！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:预算单管理.rar

每个窗口都有独立的页面设置，互不影响。

我已将“页面设置”窗口中的确定按钮的修改如下：

If  Forms("委转单修改").opened  Then
    Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton1")
    If rdo2.Checked = True Then
        forms("委转单维护B").page.Landscape = False
        Dim hig As WinForm.TextBox = e.Form.Controls("hig")
        Dim wid As WinForm.TextBox = e.Form.Controls("wid")
        forms("委转单维护B").page.Width = wid.value
        forms("委转单维护B").page.Height = hig.Value
        Dim zbj As WinForm.TextBox = e.Form.Controls("zb")
        Dim ybj As WinForm.TextBox = e.Form.Controls("yb")
        Dim sbj As WinForm.TextBox = e.Form.Controls("sb")
        Dim xbj As WinForm.TextBox = e.Form.Controls("xb")
        forms("委转单维护B").page.LeftMargin = zbj.value
        forms("委转单维护B").page.RightMargin = ybj.value
        forms("委转单维护B").page.BottomMargin = xbj.value
        forms("委转单维护B").page.TopMargin = sbj.value
    Else
        forms("委转单维护B").page.Landscape = True
        Dim hig As WinForm.TextBox = e.Form.Controls("hig")
        Dim wid As WinForm.TextBox = e.Form.Controls("wid")
        forms("委转单维护B").page.Width = wid.value
        forms("委转单维护B").page.Height = hig.Value
        Dim zbj As WinForm.TextBox = e.Form.Controls("zb")
        Dim ybj As WinForm.TextBox = e.Form.Controls("yb")
        Dim sbj As WinForm.TextBox = e.Form.Controls("sb")
        Dim xbj As WinForm.TextBox = e.Form.Controls("xb")
        forms("委转单维护B").page.LeftMargin = zbj.value
        forms("委转单维护B").page.RightMargin = ybj.value
        forms("委转单维护B").page.BottomMargin = xbj.value
        forms("委转单维护B").page.TopMargin = sbj.value
    End If
End If
DataTables("纸张设置表").Save()
e.Form.Close

 

 

 

修改后运行，仍然没有反应，请问怎么解决？谢谢指教！！

每个打印按钮，前面加上这种代码，如

 

Dim r As Row = Tables("纸张设置表").current
e.form.page.LeftMargin = r("左边距")
e.form.page.RightMargin = r("右边距")
e.form.page.BottomMargin = r("下边距")
e.form.page.TopMargin = r("上边距")

 

细节自己调整。