用户能否自行修改控件套打位置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户能否自行修改控件套打位置

共有2326人关注过本帖树形打印复制链接主题：用户能否自行修改控件套打位置

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 15:17:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/1602.htm

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 15:49:00 [显示全部帖子]

根据7楼直接设置数字，修改数字。

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 16:24:00 [显示全部帖子]

认认真真看 http://www.foxtable.com/webhelp/scr/1602.htm

修改你原来的打印按钮的代码。

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 17:14:00 [显示全部帖子]

以下是引用scstrty666在2017/3/29 16:50:00的发言：

e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距

这样加入用户还不是修改不了边距吗？变量怎样写？

[此贴子已经被作者于2017/3/29 16:50:58编辑过]

如果用边距的方式可以处理那就弄成变量。

做一个表存放数据，然后改代码

e.Form.Page.LeftMargin = Tables("表A").rows(0)("第一列")

e.Form.Page.TopMargin = Tables("表A").rows(0)("第二列")

有点色

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/29 17:30:00 [显示全部帖子]

Dim sz As Row = Tables("szb").Current
e.Form.Page.LeftMargin = sz("左")
e.Form.Page.RightMargin = sz("右")
e.Form.Page.TopMargin = sz("上")
e.Form.Page.BottomMargin = sz("下")

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Doc.AutoRotate = False
Doc.PageSetting.Landscape = True
doc.Print

下一主题 >> << 上一主题

主题：用户能否自行修改控件套打位置