同样的代码,我在原项目的命令窗口执行有问题,在新项目的命令窗口执行没有问题,为什么?
Dim doc2 As New PrintDoc
doc2.PageSetting.Landscape = True '竖向打印
doc2.Stacking = prt.StackingRulesEnum.BlockTopToBottom
Doc2.PageSetting.LeftMargin = 1 '设置左边距
Doc2.PageSetting.RightMargin = 1 '设置右边距
Doc2.PageSetting.TopMargin = 1 '设置上边距
Doc2.PageSetting.BottomMargin =1 '设置下边距
For I As Integer=1 To 24
Dim 本地图片 As String= "c:\zw\tools\zsa0001" & ("" & i).PadLeft(2,"0") & ".jpg"
Dim rm As New prt.RenderImage '定义一个图片对象
rm.Image = GetImage(本地图片)
rm.height="auto"
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.center '图片水平居中
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.top '图片垂直居上
doc2.Body.Children.Add(rm) '将表格对象加入到报表中
Next
Doc2.Preview()