Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口四联打印(24*14)总多一张空白


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

主题：[求助]窗口四联打印(24*14)总多一张空白
帅哥哟，离线，有人找我吗？
ajie5211
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		[求助]窗口四联打印(24*14)总多一张空白  发帖心情 Post By：2016/12/21 15:24:00 [显示全部帖子]

如题，窗口四联打印，纸张是(24*14)，代码直接打印，总多出一张空白如何解决？

 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/21 15:29:00 [显示全部帖子]

e.Form.Page.Width = 220

e.Form.Page.Height = 135

e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 10 '设置上边距
e.Form.Page.BottomMargin = 10 '设置下边距
e.Form.Controls("打印时间").text = "打印时间:" & Date.Now
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
'doc.AutoRotate = False '禁止自动旋转打印内容
Doc.PrinterName = DefaultPrinter
doc.Print()
'*****保存********
Dim bcbt As WinForm.Button = e.Form.Controls("保存")
If bcbt.Visible = True Then
    bcbt.PerformClick()
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/21 16:40:00 [显示全部帖子]

以下是引用有点色在2016/12/21 16:13:00的发言：

宽高设置调小一点试试

 

e.Form.Page.Width = 220

e.Form.Page.Height = 135

调整小了，还是不行。
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 9:03:00 [显示全部帖子]

以下是引用有点色在2016/12/21 17:39:00的发言：

 是不是你打印的内容超出了纸张的范围了啊？另外做一个小窗口，简单加入内容，看是否也同样会这样。

 

 再有就是，你窗口某些控件，是不是有属性设置 另起一页 成了 true

控件中没有你说的另起一页，窗口整很小了，还是多一页空白。
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 9:18:00 [显示全部帖子]

EPSON LQ-635K ESC/P 2 Ver 2.0打印机始终错误。不知道什么原因。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 10:44:00 [显示全部帖子]

以下是引用有点色在2016/12/22 9:27:00的发言：

 我测试打印，没有问题啊。

 

 你尝试不要设置页面大小。

 

'e.Form.Page.Width = GetConfigValue("_zldzzkd", 240) '纸张宽度为100毫米
'e.Form.Page.Height = GetConfigValue("_zldzzgd", 140) '纸张高度为120毫米
'e.Form.Page.LeftMargin = 1 '设置左边距
'e.Form.Page.RightMargin = 5 '设置右边距
'e.Form.Page.TopMargin = 2 '设置上边距
'e.Form.Page.BottomMargin = 10 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
'doc.AutoRotate = False '禁止自动旋转打印内容
Doc.PrinterName = GetConfigValue("_zlddyj",DefaultPrinter)
doc.print

怎么都不行，多一张空白纸。晕了。
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 11:49:00 [显示全部帖子]

以下是引用有点色在2016/12/22 11:03:00的发言：

先测试10楼，你看看是否你打印机问题

 

http://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=monline_4_dg&wd=%E6%89%93%E5%8D%B0%E6%9C%BA%20%E5%A4%9A%E4%B8%80%E5%BC%A0%E7%A9%BA%E7%99%BD&oq=%E6%89%93%E5%8D%B0%E6%9C%BA%20%E5%A4%9A%E4%B8%80%E5%BC%A0%E7%A9%BA%E7%99%BD&rsv_pq=92a294c90001e1bb&rsv_t=34df3NkqrKKYpm5mJHkqt20cuRRroYu1T98QwbrZMiLOjyW19cU7KZrhtT9ZzjLTwv0x&rqlang=cn&rsv_enter=1&rsv_sug3=5&rsv_sug1=4&rsv_sug7=101&rsv_n=2&bs=%E6%89%93%E5%8D%B0%E6%9C%BA%20%E5%A4%9A%E4%B8%80%E5%BC%A0%E7%A9%BA%E7%99%BD

 

按10楼也多一页。我的打印机用excel打印是正常的，重来没出过问题。原来excel是一张张的打，我现在想用窗口的方式一次打，怎么调整都不对。郁闷了。
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 13:25:00 [显示全部帖子]

以下是引用有点色在2016/12/22 11:53:00的发言：
 打开foxtable自带的例子【piao据打印.table】，测试一下预览和打印是否正常。

这个正常，怎么会事哪？
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 13:34:00 [显示全部帖子]

以下是引用有点色在2016/12/22 11:53:00的发言：
 打开foxtable自带的例子【piao据打印.table】，测试一下预览和打印是否正常。

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
'doc.Preview
Doc.PrinterName = DefaultPrinter
doc.Print()

第一次用的是预览打印，成功了，第二次用的这个代码，直接打印，又多出了一张白纸。
 回到顶部
帅哥哟，离线，有人找我吗？
ajie5211
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：820 积分：5641 威望：0 精华：1 注册：2015/11/28 14:00:00 		  发帖心情 Post By：2016/12/22 14:39:00 [显示全部帖子]

以下是引用有点色在2016/12/22 14:10:00的发言：

 你去打印机那里纸张，把默认纸张设置一下，不能太小。

 

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

 

 如果还不行，就没办法了，就是不兼容。

还是不行。郁闷了。
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询