以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  调用页面设置窗体没有反应  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120032)
--  作者：rgbjwjb
--  发布时间：2018/6/5 23:00:00
--  调用页面设置窗体没有反应
我在“委转单修改”窗体中调用“页面设置”窗体，不管怎么设置页边距。都没有反应，请问我问题出在哪里？请指教，谢谢！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:预算单管理.rar
--  作者：有点蓝
--  发布时间：2018/6/5 23:15:00
--  
每个窗口都有独立的页面设置，互不影响。

你在页面设置使用的是e.Form.Page.xxx，那么设置的是“页面设置”这个窗口的设置，对其他窗口没有影响

1、在需要打印的窗口打印按钮打印前重新设置诸如e.Form.Page.xxx的代码

2、把页面设置窗口确定按钮的e.Form.Page.xxx改为Forms("需要打印的窗口").Page.xxx
--  作者：rgbjwjb
--  发布时间：2018/6/7 10:21:00
--  

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

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

 

 

 

修改后运行，仍然没有反应，请问怎么解决？谢谢指教！！
--  作者：有点甜
--  发布时间：2018/6/7 10:38:00
--  

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

 

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("上边距")

 

细节自己调整。