| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教大红袍 页边距的问题，谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77080) |
| -- 作者：km001 -- 发布时间：2015/11/10 17:31:00 -- 请教大红袍 页边距的问题，谢谢 请问 大红袍 为何我设置的页边距打印预览时无效？ Dim grp As WinForm.Panel = e.Form.Controls("Panel1") Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp) Doc.PageSetting.LeftMargin = 100 \'设置左边距 Doc.PageSetting.RightMargin = 1\'设置右边距 Doc.PageSetting.TopMargin = 100 \'设置上边距 Doc.PageSetting.BottomMargin = 0 \'设置下边距 Doc.Preview() [此贴子已经被作者于2015/11/10 17:30:56编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/11/10 17:36:00 -- Dim grp As WinForm.Panel = e.Form.Controls("Panel1")
Doc.PageSetting.LeftMargin = 100 \'设置左边距
Doc.PageSetting.RightMargin = 1\'设置右边距
Doc.PageSetting.TopMargin = 100 \'设置上边距
Doc.PageSetting.BottomMargin = 0 \'设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
Doc.Preview()
|
| -- 作者：km001 -- 发布时间：2015/11/10 17:40:00 -- 以下是引用大红袍在2015/11/10 17:36:00的发言：
Dim grp As WinForm.Panel = e.Form.Controls("Panel1")
Doc.PageSetting.LeftMargin = 100 \'设置左边距
Doc.PageSetting.RightMargin = 1\'设置右边距
Doc.PageSetting.TopMargin = 100 \'设置上边距
Doc.PageSetting.BottomMargin = 0 \'设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
Doc.Preview() 上面Doc 尚未定义，不可以设置其边距的吖，怎么把定义写到下面了呢？
[此贴子已经被作者于2015/11/10 17:43:17编辑过]
|
| -- 作者：大红袍 -- 发布时间：2015/11/10 17:57:00 -- 哦，写错了。
http://www.foxtable.com/help/topics/1602.htm
|
| -- 作者：km001 -- 发布时间：2015/11/10 18:37:00 -- 谢谢！ |