Foxtable(狐表)用户栏目专家坐堂 → [求助]疯了,纵向piao据打印就是变成横向


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

主题:[求助]疯了,纵向piao据打印就是变成横向

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 11:14:00 [显示全部帖子]

 不预览,直接print

 

 

doc.Preview() '预览

 

改成

 

doc.Print


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 11:15:00 [显示全部帖子]

或者看一下这里,直接去打印机那里设置。

 

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

 


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 14:22:00 [显示全部帖子]

以下是引用huangfanzi在2015/7/13 12:19:00的发言:
又经过反复测试,老师的方法一是可行的,可惜不能预览了,方法二还是老样子,我可能改不来代码,老师能根据我一楼的代码帮我改下吗?

 

方法二的意思,是你在打印那里设置纸张默认就是横向的。

 

然后下面这些红色代码可以不要

 

e.Form.Page.Width = 241 '纸张宽度为XX毫米
e.Form.Page.Height = 139.7 '纸张高度为XX毫米
e.Form.Page.LeftMargin = 25 '设置左边距
e.Form.Page.RightMargin = 25 '设置右边距
e.Form.Page.TopMargin = 10 '设置上边距
e.Form.Page.BottomMargin = 10 '设置下边距


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

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 14:55:00 [显示全部帖子]

 方法二,是要设置成横向;

 

 嗯嗯,是的,边距设置,默认是纵向,设置横向打印以后,就是旋转90度的。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 15:19:00 [显示全部帖子]

以下是引用huangfanzi在2015/7/13 15:16:00的发言:
老师,还有个地方不明白,
e.Form.Page.Width = 241与doc.PageSetting.Width = 241有何区别。

 

没什么区别。

 

设置 e.Form.Page.Width 之后,执行e.Form.GernatePrintDoc()后,会设置生成 doc.PageSetting.Width = 241


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 19:13:00 [显示全部帖子]

 没有其它方法。

 

 方法二的意思是,叫你设置打印机默认的打印是横向,那么每一种打印都是横向打印的啊。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/13 22:12:00 [显示全部帖子]

 是默认的纸张了吗?

 回到顶部