Foxtable(狐表)用户栏目专家坐堂 → [求助]支piao打印窗口横纵向设置问题


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

主题:[求助]支piao打印窗口横纵向设置问题

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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
[求助]支piao打印窗口横纵向设置问题  发帖心情 Post By:2013/9/24 13:20:00 [只看该作者]

我按照教程制作支piao打印窗口,设置了为纵向打印.但是正式打印时,又自动转为横向打印,如果打印时调整成纵向,又只能打印一半,请教老师如何解决?(我用的是EPSON LQ 630K针式打印机)



此主题相关图片如下:102.gif
按此在新窗口浏览图片


此主题相关图片如下:101.gif
按此在新窗口浏览图片


[此贴子已经被作者于2013-9-24 13:27:07编辑过]

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


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

超长了,所以就自动转向了. 强行转回来,长度不够还是打印不全的.

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/9/24 14:52:00 [只看该作者]

试试这个:

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

 

此外直接打印,不要预览看看


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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
  发帖心情 Post By:2013/9/24 18:57:00 [只看该作者]

打印出现这个内容,代码如下,问题出在哪里?


Dim doc As New PrintDoc
Dim
 ra As New prt.RenderArea
doc.PageSetting.Width = 
219
doc.PageSetting.Height = 
85
doc.AutoRotate = 
False '禁止自动旋转打印内容
ra.Width = 
"Parent.Width" 
ra.Height = 
"Parent.Height"
ra.Style.Borders.All = New prt.Linedef(
5, Color.Red) 
doc.Body.Children.Add(ra) 
doc.Print()

[此贴子已经被作者于2013-9-24 18:57:50编辑过]

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


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

 你打印按钮的代码改成

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False '禁止自动旋转打印内容
doc.Print()

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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
  发帖心情 Post By:2013/9/25 13:23:00 [只看该作者]

问题已经解决.谢谢各位老师的解答.

 回到顶部