Foxtable(狐表)用户栏目专家坐堂 → 打印窗体设置页边距不起作用


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

主题:打印窗体设置页边距不起作用

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


加好友 发短信
等级:童狐 帖子:272 积分:2421 威望:0 精华:0 注册:2013/4/13 10:03:00
打印窗体设置页边距不起作用  发帖心情 Post By:2014/7/9 15:25:00 [只看该作者]

代码如下:

Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pnl)
Doc.PageSetting.Width=210
Doc.PageSetting.Height=90
Doc.PageSetting.TopMargin =5
Doc.PageSetting.LeftMargin=5
doc.Preview()

 

其中:

Doc.PageSetting.TopMargin =5
Doc.PageSetting.LeftMargin=5
这两句不起作用,页边距预览的时候无论设置多少都没变化


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/9 15:31:00 [只看该作者]

到这里去设置吧

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140709153033.png
图片点击可在新窗口打开查看


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


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

设置错,窗口要这样设置的。

 

http://www.foxtable.com/help/topics/1602.htm

 


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


加好友 发短信
等级:童狐 帖子:272 积分:2421 威望:0 精华:0 注册:2013/4/13 10:03:00
  发帖心情 Post By:2014/7/9 15:37:00 [只看该作者]

打印前界面:

 


图片点击可在新窗口打开查看此主题相关图片如下:打印前界面.png
图片点击可在新窗口打开查看

打印预览界面:

 


图片点击可在新窗口打开查看此主题相关图片如下:预览.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:童狐 帖子:272 积分:2421 威望:0 精华:0 注册:2013/4/13 10:03:00
  发帖心情 Post By:2014/7/9 15:38:00 [只看该作者]

无论左边距和上边距改成多少,Label打印的位置都不会改变

我将边距改成0,打印的位置还是靠不到边

 


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


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

 谁说无效?

 

Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")
e.Form.Page.LeftMargin = 100 '设置左边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc(pnl)
doc.Preview()

 

http://www.foxtable.com/help/topics/1602.htm


 回到顶部