| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 专业报表横向打印真的不行！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68553) |
| -- 作者：cyl123 -- 发布时间：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() \'预览报表 |
| -- 作者：大红袍 -- 发布时间：2015/5/20 12:12:00 -- Doc.Preview() \'预览报表
改成
Doc.Print
-------------------------------------
再不行，直接去设置打印机 http://www.foxtable.com/help/topics/2904.htm
|
| -- 作者：狐狸爸爸 -- 发布时间：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() \'预览报表
|
| -- 作者：逛逛 -- 发布时间：2015/5/20 12:41:00 -- Dim doc As New PrintDoc \'定义一个报表 doc.Body.Children.Add( rx0)
|
| -- 作者：blackzhu -- 发布时间：2015/5/20 12:45:00 -- 需要直接打印 不要预览 |