专业报表横向打印真的不行！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 专业报表横向打印真的不行！

共有2179人关注过本帖树形打印复制链接主题：专业报表横向打印真的不行！

cyl123

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：758 积分：6382 威望：0 精华：0 注册：2014/12/21 21:01:00

专业报表横向打印真的不行！ 发帖心情

Post By：2015/5/20 12:07:00 [只看该作者]

专业报表横向打印真的不行！预览时是可以横向，但是打印出来就肯定是竖向的。

关于以下答案不用给了，都不行。

doc.AutoRotate = False '禁止自动旋转打印内容

doc.PageSetting.Landscape = True

版主或狐爸，希望先到打印机打印一份测试，再回复。查看过之前不是贴，也有人提过这个问题。

这段代码预览时横向的，但是打印室竖向的。

Dim doc As New PrintDoc '定义一个报表

doc.PageSetting.Height =100

doc.PageSetting.Width =210

doc.PageSetting.Landscape =True

doc.AutoRotate = False '禁止自动旋转打印内容

Dim rx0 As New prt.RenderText '定义一个文本对象

rx0.Text="横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印"

doc.Body.Children.Add( rx0)

Doc.Preview() '预览报表

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/20 12:12:00 [只看该作者]

Doc.Preview() '预览报表

改成

Doc.Print

-------------------------------------

再不行，直接去设置打印机 http://www.foxtable.com/help/topics/2904.htm

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/5/20 12:19:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表

doc.PageSetting.Height =100

doc.PageSetting.Width =210

doc.AutoRotate = False '禁止自动旋转打印内容

Dim rx0 As New prt.RenderText '定义一个文本对象

rx0.Text="横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印"

doc.Body.Children.Add( rx0)

Doc.Print() '预览报表

逛逛

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12123 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2015/5/20 12:41:00 [只看该作者]

Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Height =100
doc.PageSetting.Width =210
doc.PageSetting.Landscape =True
doc.AutoRotate = False '禁止自动旋转打印内容
Dim rx0 As New prt.RenderText '定义一个文本对象
rx0.Text="横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印横向打印"

doc.Body.Children.Add( rx0)

Dim a As New System.Drawing.Printing.PrinterSettings
a.DefaultPageSettings.Landscape = True
Doc.Print(a) '打印报表

blackzhu

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2015/5/20 12:45:00 [只看该作者]

需要直接打印不要预览

下一主题 >> << 上一主题

主题：专业报表横向打印真的不行！