Foxtable(狐表)用户栏目专家坐堂 → 预览报表出现异常


  共有2308人关注过本帖树形打印复制链接

主题:预览报表出现异常

帅哥哟,离线,有人找我吗?
rgbjwjb
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:638 积分:6477 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2018/5/31 20:25:00 [只看该作者]

设计“页面设置”窗体是不是也要设置一个数据表?包括:方向、宽度、高度、左边距、右边距、上边距、下边距这些字段,然后在afterload 事件中加入如下代码:Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rdo2.Checked = True Then
    e.Form.Page.Landscape = False
Else
    e.Form.Page.Landscape = True
End If
Dim hig As WinForm.NumericComboBox = e.Form.Controls("hig")
Dim wid As WinForm.NumericComboBox = e.Form.Controls("wid")
e.Form.Page.Width = wid.value
e.Form.Page.Height = hig.Value

Dim zbj As WinForm.NumericComboBox = e.Form.Controls("zb")
Dim ybj As WinForm.NumericComboBox = e.Form.Controls("yb")
Dim sbj As WinForm.NumericComboBox = e.Form.Controls("sb")
Dim xbj As WinForm.NumericComboBox = e.Form.Controls("xb")
e.Form.Page.LeftMargin = zbj.value
e.Form.Page.RightMargin = ybj.value
e.Form.Page.BottomMargin = xbj.value
e.Form.Page.TopMargin = sbj.value
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请指教,谢谢!!!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/31 20:34:00 [只看该作者]

如果你要保存打印的设置,那就需要把数据存放在表格里面。


 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:638 积分:6477 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2018/5/31 22:14:00 [只看该作者]


doc.Preview()面设置”窗体时,是不是要设计一个数据表,包括:方向、宽度、高度、左边距、右边距、上边距、下边距,然后在绑定到窗体,在窗体的afterload 事件中写入如下代码:
Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rdo2.Checked = True Then
    e.Form.Page.Landscape = False
Else
    e.Form.Page.Landscape = True
End If
Dim hig As WinForm.NumericComboBox = e.Form.Controls("hig")
Dim wid As WinForm.NumericComboBox = e.Form.Controls("wid")
e.Form.Page.Width = wid.value
e.Form.Page.Height = hig.Value

Dim zbj As WinForm.NumericComboBox = e.Form.Controls("zb")
Dim ybj As WinForm.NumericComboBox = e.Form.Controls("yb")
Dim sbj As WinForm.NumericComboBox = e.Form.Controls("sb")
Dim xbj As WinForm.NumericComboBox = e.Form.Controls("xb")
e.Form.Page.LeftMargin = zbj.value
e.Form.Page.RightMargin = ybj.value
e.Form.Page.BottomMargin = xbj.value
e.Form.Page.TopMargin = sbj.value
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请指导,谢谢!!

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:638 积分:6477 威望:0 精华:0 注册:2016/12/27 21:05:00
页面设置窗体  发帖心情 Post By:2018/5/31 22:18:00 [只看该作者]

请问:我在 设计“页面设置”窗体时,是不是也要设定一个数据表,包括:方向、宽度、高度、左边距、右边距、上边距、下边距,然后绑定到窗体,在窗体的afterload 事件中写入如下代码:
Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rdo2.Checked = True Then
    e.Form.Page.Landscape = False
Else
    e.Form.Page.Landscape = True
End If
Dim hig As WinForm.NumericComboBox = e.Form.Controls("hig")
Dim wid As WinForm.NumericComboBox = e.Form.Controls("wid")
e.Form.Page.Width = wid.value
e.Form.Page.Height = hig.Value

Dim zbj As WinForm.NumericComboBox = e.Form.Controls("zb")
Dim ybj As WinForm.NumericComboBox = e.Form.Controls("yb")
Dim sbj As WinForm.NumericComboBox = e.Form.Controls("sb")
Dim xbj As WinForm.NumericComboBox = e.Form.Controls("xb")
e.Form.Page.LeftMargin = zbj.value
e.Form.Page.RightMargin = ybj.value
e.Form.Page.BottomMargin = xbj.value
e.Form.Page.TopMargin = sbj.value
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/31 22:20:00 [只看该作者]

没看懂你要表达式什么,你目前遇到什么问题?上传实例具体说明。


 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:638 积分:6477 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2018/6/1 23:17:00 [只看该作者]

我已设计了一个窗体,利用该窗体也能够实现表单打印,我想在该窗口中增加一个“页面设置”按钮,能弹出一个“页面设置“窗体,在这个窗体中能够实现在打印前,自己设置纸张大小、方向和页边距,并能保存上述设置,或者能否直接调用窗口设计器中的“页面设置”窗体,请问如何实现,谢谢!!


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107727 积分:547968 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/6/2 8:46:00 [只看该作者]

无法调用,要自己写代码设置

 回到顶部
总数 17 上一页 1 2