郁闷了我好几天的ActiveReport问题!
有人在AR下试过自定义纸张大小的吗?
我现在遇到问题,怎么设置都不对.我的代码如下!
'***************************************************************
' 配置打印单据时候的AR设置
'***************************************************************
Public Sub ConfigBillAR(ByRef AR As arBill)
Dim newBillConfig As New clsBillIni '读边距的配置文件
AR.PageSettings.PaperSize = 256
If newBillConfig.GetOrientation = "H" Then
AR.PageSettings.Orientation = ddOLandscape
AR.PageSettings.PaperWidth = 14118
AR.PageSettings.PaperHeight = 7541
Else
AR.PageSettings.Orientation = ddOPortrait
AR.PageSettings.PaperWidth = 7541
AR.PageSettings.PaperHeight = 14118
End If
AR.PageSettings.LeftMargin = newBillConfig.GetLeftMargin * 56.7
AR.PageSettings.RightMargin = newBillConfig.GetRightMargin * 56.7
AR.PageSettings.TopMargin = newBillConfig.GetTopMargin * 56.7
AR.PageSettings.BottomMargin = newBillConfig.GetBottomMargin * 56.7
Set newBillConfig = Nothing
End Sub
在报表那边有一份设置,就是用File菜单设置的,设的横打.
我现在的情况是:
打印的内容很宽,而实际的纸也很宽.那我应该是设横打还是纵打?
还有,AR的自定义纸型在2K下是否有和Printer一样的问题?
如果我dim myAr as new BillAr
然后设置myAR的纸型等等,是否会优先于在File菜单中的设置!