Foxtable(狐表)用户栏目专家坐堂 → 套打问题


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

主题:套打问题

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


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

以下是引用实话实说在2018/2/1 13:30:00的发言:
如何让用户自行设置页边距?这个设置窗口应该是怎样的?
17楼的帮助还不是很清楚.

 

1、做一个窗口,把上边距、左边距设置,然后存放起来;

 

SaveConfigValue("aaa", e.form.controls("textbox1").Text)
SaveConfigValue("bbb", e.form.controls("textbox2").Text)

 

2、打印代码

 

dim aaa = getConfigValue("aaa", 10)
dim bbb = getConfigValue("bbb", 10)

e.Form.Page.LeftMargin = aaa '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = bbb '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()


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


加好友 发短信
等级:九尾狐 帖子:2637 积分:19313 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2018/2/2 10:42:00 [只看该作者]

18楼图1的预览按钮代码如下,要打印的是当前窗口,如何将20楼的控件和页边距设置代码加入到【预览】按钮,需要另开窗口吗?

Dim dts = DataTables("合格证打印").Select("[打印模板] = '中兴非标模板 ' And 打印 = true And 已打印 = false")
For Each dt As DataRow In dts
    Dim idx As Integer = Tables("合格证打印").FindRow(dt)
    Tables("合格证打印").Position = idx
    'For i As Integer = 1 To dt("张数")
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        doc.Preview()
        'doc.Print()
    'Next
    'dt("已打印") = True
Next

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


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

回复22楼,不需要每次打印都弹出设置窗口吧?所以不需要写到打印按钮那里。

 

你可以再做一个按钮、菜单之类的,调出设置窗口,设置好以后,再打印。


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


加好友 发短信
等级:九尾狐 帖子:2637 积分:19313 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2018/2/2 11:02:00 [只看该作者]

21楼代码的控件做在哪个窗口?是设置窗口还是18楼图1的窗口?我要打印的是18楼的窗口,不是设置窗口。

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


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

1、做一个窗口,写代码

 

SaveConfigValue("aaa", e.form.controls("textbox1").Text)
SaveConfigValue("bbb", e.form.controls("textbox2").Text)

 

2、打印按钮

 

dim aaa = getConfigValue("aaa", 10)
dim bbb = getConfigValue("bbb", 10)

e.Form.Page.LeftMargin = aaa '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = bbb '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()


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


加好友 发短信
等级:九尾狐 帖子:2637 积分:19313 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2018/2/2 11:18:00 [只看该作者]

我明白,再试试

[此贴子已经被作者于2018/2/2 11:19:26编辑过]

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


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

改成这样啊

 

dim aaa = getConfigValue("aaa", 10)
dim bbb = getConfigValue("bbb", 10)

e.Form.Page.LeftMargin = aaa '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = bbb '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()


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


加好友 发短信
等级:九尾狐 帖子:2637 积分:19313 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2018/2/2 11:35:00 [只看该作者]

搞定了,谢了。

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


加好友 发短信
等级:九尾狐 帖子:2637 积分:19313 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2018/2/2 16:01:00 [只看该作者]

为什么出现下面的错位?这不是边距的问题。

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

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




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


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

首先,你窗口的背景图片/图片控件,属性【背景布局】要设置成 none,不然有可能导致错位;

 

然后,你这个背景图片的dpi值是多少?你这台电脑的dpi值是多少?可以做个按钮测试 msgbox(basemainform.CreateGraphics.DpiX)

 

你图片的dpi值和电脑的dpi值必须一致,才不会造成错位。

 

------------------导出窗口,做一个建议的例子发上来测试一下。


 回到顶部
总数 53 上一页 1 2 3 4 5 6 下一页