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


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

主题:[求助]窗口四联打印(24*14)总多一张空白

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


加好友 发短信
等级:小狐 帖子:338 积分:2380 威望:0 精华:0 注册:2015/11/28 14:00:00
[求助]窗口四联打印(24*14)总多一张空白  发帖心情 Post By:2016/12/21 15:24:00 [只看该作者]

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

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


加好友 发短信
等级:小狐 帖子:338 积分:2380 威望:0 精华:0 注册: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


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


加好友 发短信
等级:超级版主 帖子:13596 积分:68267 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/21 16:13:00 [只看该作者]

宽高设置调小一点试试

 

e.Form.Page.Width = 220

e.Form.Page.Height = 135


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


加好友 发短信
等级:小狐 帖子:338 积分:2380 威望:0 精华:0 注册: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

调整小了,还是不行。


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


加好友 发短信
等级:超级版主 帖子:13596 积分:68267 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/21 17:39:00 [只看该作者]

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

 

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


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


加好友 发短信
等级:小狐 帖子:338 积分:2380 威望:0 精华:0 注册:2015/11/28 14:00:00
  发帖心情 Post By:2016/12/22 9:03:00 [只看该作者]

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

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

 

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

控件中没有你说的另起一页,窗口整很小了,还是多一页空白。


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


加好友 发短信
等级:小狐 帖子:338 积分:2380 威望:0 精华:0 注册: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


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


加好友 发短信
等级:超级版主 帖子:13596 积分:68267 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:338 积分:2380 威望:0 精华:0 注册: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

怎么都不行,多一张空白纸。晕了。


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


加好友 发短信
等级:超级版主 帖子:13596 积分:68267 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/22 11:01:00 [只看该作者]

 单独做一个窗口,打印一个label文字,看是否也会是两页。

 回到顶部
总数 28 1 2 3 下一页