找回密码
 立即注册

QQ登录

只需一步,快速开始

x_g
银牌会员   /  发表于:2015-9-17 13:30  /   查看:16486  /  回复:20
在 ActiveReport1.5 里,设置报表打印的代码是
Me.Printer.PaperSize = 121   
Me.Printer.Orientation = ddOPortrait   
预览的效果是纵向的,而且会有红线,但是实际用打印机打印用A4纸就会自动打成横向的,不知道这是为什么

20 个回复

正序浏览
frank.zhang
社区贡献组   /  发表于:2015-10-10 12:09:00
21#
为了给你提供更优质的服务,请对本次服务进行评分。我们会认真对待你提出的宝贵意见,谢谢
回复 使用道具 举报
ZenosZeng讲师达人认证 悬赏达人认证
超级版主   /  发表于:2015-9-24 18:21:00
20#
回复 19楼x_g的帖子

x_g 您好

这个功能目前看来有些超出AR本身的功能,甚至可能需要直接控制打印机,不过我们还在尝试直接通过AR满足这一功能,我们有最终结果之后给你回复。
回复 使用道具 举报
x_g
银牌会员   /  发表于:2015-9-24 09:55:00
19#
回复 18楼frank.zhang的帖子

恩,谢谢,请问如何设置呢?
并且我不太理解为什么
PageSettings.DefaultPaperSize = False
.PageSettings.PaperKind = Printing.PaperKind.B4
这种写法就可以自动去匹配纸张
回复 使用道具 举报
frank.zhang
社区贡献组   /  发表于:2015-9-23 17:48:00
18#
您好,
打印的时候如果发现纸张宽度不符合,会自动去匹配纸张,变成横向的。
这个其实是一个打印策略的设置,您可以通过判断来实现纸张的转换。
回复 使用道具 举报
x_g
银牌会员   /  发表于:2015-9-23 14:06:00
17#
谢谢您的回复,但是效果和我所想的不太一致,我希望报表预览的时候是纵向的,就是我上传的那个文件的状态,
Me.PageSettings.PaperWidth = 121
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
打印的时候如果发现纸张宽度不符合,会自动去匹配纸张,变成横向的。
该效果在下面这种情况下可以实现
.PageSettings.DefaultPaperSize = False
.PageSettings.PaperKind = Printing.PaperKind.B4
该情况下,会去用B4纸张预览,如果用A4纸打印的话,打印机会要求选择纸张,如果选择的是A4纸,就会横向打印出来,使得信息显示完全
我的问题是:
下面这一段代码有什么问题
Me.PageSettings.PaperWidth = 121
Me.PageSettings.Orientation = Section.PageOrientation.Portrait
为什么效果不能像B4一样,自定义设定了纸张的宽度,如果打印的纸张不符合,却不会自动匹配纸张?
回复 使用道具 举报
frank.zhang
社区贡献组   /  发表于:2015-9-23 12:23:00
16#
您好,
需要在报表开始时,修改报表的方向,参考代码:
  1.     Private Sub SectionReport1_ReportStart(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ReportStart
  2.         Me.PageSettings.Margins.Bottom = 303.0 / 1440
  3.         Me.PageSettings.Margins.Top = 300.0 / 1440
  4.         Me.PageSettings.Margins.Left = 400.0 / 1440
  5.         Me.PageSettings.Margins.Right = 200.0 / 1440

  6.         Me.PageSettings.DefaultPaperSize = False
  7.         Me.PageSettings.PaperWidth = 121
  8.         Me.PageSettings.Orientation = Section.PageOrientation.Landscape
  9.     End Sub
复制代码



本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复 使用道具 举报
x_g
银牌会员   /  发表于:2015-9-23 11:34:00
15#
回复 14楼frank.zhang的帖子

恩,没事
回复 使用道具 举报
frank.zhang
社区贡献组   /  发表于:2015-9-23 11:31:00
14#
回复 13楼x_g的帖子

您好,
您的问题已经提交给产品组,由于开发团队在美国,并且调查通常需要一些时间,所以不会这么快,希望能够谅解。通常需要2,3个工作日。
给您带来了不便,非常抱歉。
回复 使用道具 举报
x_g
银牌会员   /  发表于:2015-9-23 10:32:00
13#
回复 12楼frank.zhang的帖子

您好,请问问题有结果了吗
回复 使用道具 举报
123下一页
您需要登录后才可以回帖 登录 | 立即注册
返回顶部