ActiveReport的打印问题 怎么设置ActiveReport显示居中,还有为什么页面太宽(比如30cm)时会打印空白页?谢谢拉 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你非得设宽为30cm的话,那可以在AR的file->page setup->printer settings里将papersize改为custom paper size, 里面的Width值设为17010 (30*567)----1cm=567twips AR1.1是没有的!1.建议升级2.在代码中Private Sub ActiveReport_Initialize() '自定义纸张的高度 Me.Printer.PaperHeight = 15876 '自定义纸张的宽度 Me.Printer.PaperWidth = 11910 '设置纵向打印 Me.Printer.Orientation = ddOPortraitEnd Sub 顺便提供ar2.0.1195 版下载及注册地址:http://expert.csdn.net/Expert/topic/1721/1721322.xml?temp=.6970026 注册码:新建一文本文件,贴下面内容,然后另存为crack.reg,然后双击crack.reg:REGEDIT4[HKEY_CLASSES_ROOT\Licenses\0F60458A-9C91-47CD-9DC9-4C6188C3C498]@="dy3thxiuioqr452fhgdr4tf" [HKEY_CLASSES_ROOT\Licenses\9FD745D6-4105-4EAF-B01A-E3F3BE4B3A9D]@="atxthxiufoqr452fbgdr4if 我下载了,功能比1.1的多哦,不过我以前是用1.1编的报表,更新为2.0后,报表的有些格式变了.:(对了,还有,我想先用1.1的代码来实现可是还是会打印出空白页注:我报表的宽度是20CM还不到,我代码如下Private Sub ActiveReport_Initialize() '自定义纸张的高度 Me.Printer.PaperHeight = 25000 '自定义纸张的宽度 Me.Printer.PaperWidth = 17000 '设置纵向打印 Me.Printer.Orientation = ddOPortraitEnd Sub 还有,当我设置断点时,发现Me.Printer.PaperHeight =16836 Me.Printer.PaperWidth =11904 并没有按照我设置的长度来赋值,为什么??? [加分贴]关于对外部程序ListView中某一项进行双击的问题。来者有分,送完止为。 关于数据的组合的问题!!急急急。。。希望有那位大哥能帮忙!! ADO编程的问题 activereport做分栏有没有更好的方法? rs.recordcount和rs.AbsolutePosition总是等于-1! 往word模板里填空 哪里有柱状图程序可供下载、参考?(急) 请教在VB中如何访问WORD不规则表格中的属性 谁见过发廊收银系统??? TextBox中的最大字符长度问题 把vsflexgrid和别的控件中的值一起转进.xls文件中。 求救VB控制文本编辑器
如果你非得设宽为30cm的话,那可以在AR的file->page setup->printer settings里将papersize改为custom paper size, 里面的Width值设为17010 (30*567)----1cm=567twips
1.建议升级
2.在代码中
Private Sub ActiveReport_Initialize()
'自定义纸张的高度
Me.Printer.PaperHeight = 15876
'自定义纸张的宽度
Me.Printer.PaperWidth = 11910
'设置纵向打印
Me.Printer.Orientation = ddOPortrait
End Sub
新建一文本文件,贴下面内容,然后另存为crack.reg,然后双击crack.reg:
REGEDIT4[HKEY_CLASSES_ROOT\Licenses\0F60458A-9C91-47CD-9DC9-4C6188C3C498]
@="dy3thxiuioqr452fhgdr4tf" [HKEY_CLASSES_ROOT\Licenses\9FD745D6-4105-4EAF-B01A-E3F3BE4B3A9D]
@="atxthxiufoqr452fbgdr4if
对了,还有,我想先用1.1的代码来实现
可是还是会打印出空白页
注:我报表的宽度是20CM还不到,我代码如下
Private Sub ActiveReport_Initialize()
'自定义纸张的高度
Me.Printer.PaperHeight = 25000
'自定义纸张的宽度
Me.Printer.PaperWidth = 17000
'设置纵向打印
Me.Printer.Orientation = ddOPortrait
End Sub
Me.Printer.PaperWidth =11904
并没有按照我设置的长度来赋值,为什么???