小数位数调到2位，末尾为0显示也是2位，报表打印只有1位数
此主题相关图片如下：01.png
此主题相关图片如下：02.png
Dim Doc As New PrintDoc '定义一个报表
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.TopMargin= 8 '设置上边距
Doc.PageSetting.BottomMargin = 2 '设置底边距
Doc.PageSetting.Width=210 '宽度
Doc.PageSetting.Height=297 '高度
Doc.PageSetting.Landscape = True '横向打印
Doc.PageSetting.Color = True '彩色打印
Dim _T As String '定义一个分段文本
Dim Text0 As New prt.RenderText '定义一个文本对象
_T="安钢集团信阳钢铁有限责任公司"
Text0.Text=_T.Replace("//",vbcrlf) '分段文本
Text0.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text0.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text0.Style.Font=New System.Drawing.Font("宋体",11,1,3,1,False) '文本字体
Text0.Style.Padding.All=0.5 '单元格文本内距
Text0.Style.CharSpacing =0 '字符间距为毫米
Text0.Style.TextIndent =0 '首行缩进
Text0.Style.LineSpacing =100 '设置行距
Text0.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text0.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text0.X=22.75 '水平位置
Text0.Y=14.5 '垂直位置
Text0.Width=66 '宽度
Text0.Height=6 '高度
Dim Text8 As New prt.RenderText '定义一个文本对象
_T="XINYANG IRON & STEEL CO., LTD OF ANGANG"
Text8.Text=_T.Replace("//",vbcrlf) '分段文本
Text8.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text8.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text8.Style.Font=New System.Drawing.Font("宋体",11,1,3,1,False) '文本字体
Text8.Style.Padding.All=0.5 '单元格文本内距
Text8.Style.CharSpacing =0 '字符间距为毫米
Text8.Style.TextIndent =0 '首行缩进
Text8.Style.LineSpacing =100 '设置行距
Text8.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text8.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text8.X=22.75 '水平位置
Text8.Y=19.5 '垂直位置
Text8.Width=82 '宽度
Text8.Height=7 '高度
Dim Text9 As New prt.RenderText '定义一个文本对象
_T="GROUP"
Text9.Text=_T.Replace("//",vbcrlf) '分段文本
Text9.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text9.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text9.Style.Font=New System.Drawing.Font("宋体",11,1,3,1,False) '文本字体
Text9.Style.Padding.All=0.5 '单元格文本内距
Text9.Style.CharSpacing =0 '字符间距为毫米
Text9.Style.TextIndent =0 '首行缩进
Text9.Style.LineSpacing =100 '设置行距
Text9.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text9.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text9.X=23 '水平位置
Text9.Y=24.75 '垂直位置
Text9.Width=19 '宽度
Text9.Height=6 '高度
Dim Text10 As New prt.RenderText '定义一个文本对象
_T="QUALITY CERTIFICATION"
Text10.Text=_T.Replace("//",vbcrlf) '分段文本
Text10.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text10.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text10.Style.Font=New System.Drawing.Font("黑体",17,1,3,1,False) '文本字体
Text10.Style.Padding.All=0.5 '单元格文本内距
Text10.Style.CharSpacing =0 '字符间距为毫米
Text10.Style.TextIndent =0 '首行缩进
Text10.Style.LineSpacing =100 '设置行距
Text10.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text10.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text10.X=114.5 '水平位置
Text10.Y=19.5 '垂直位置
Text10.Width=72 '宽度
Text10.Height=9 '高度
Dim Text11 As New prt.RenderText '定义一个文本对象
_T="产品质量证明书"
Text11.Text=_T.Replace("//",vbcrlf) '分段文本
Text11.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text11.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text11.Style.Font=New System.Drawing.Font("黑体",17,1,3,1,False) '文本字体
Text11.Style.Padding.All=0.5 '单元格文本内距
Text11.Style.CharSpacing =0 '字符间距为毫米
Text11.Style.TextIndent =0 '首行缩进
Text11.Style.LineSpacing =100 '设置行距
Text11.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text11.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text11.X=125.25 '水平位置
Text11.Y=11.5 '垂直位置
Text11.Width=46 '宽度
Text11.Height=8 '高度
Dim Text12 As New prt.RenderText '定义一个文本对象
_T="牌号"
Text12.Text=_T.Replace("//",vbcrlf) '分段文本
Text12.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text12.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text12.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text12.Style.Padding.All=0.5 '单元格文本内距
Text12.Style.CharSpacing =0 '字符间距为毫米
Text12.Style.TextIndent =0 '首行缩进
Text12.Style.LineSpacing =100 '设置行距
Text12.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text12.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text12.X=4 '水平位置
Text12.Y=70.5 '垂直位置
Text12.Width=10 '宽度
Text12.Height=6 '高度
Dim Text13 As New prt.RenderText '定义一个文本对象
_T="规格"
Text13.Text=_T.Replace("//",vbcrlf) '分段文本
Text13.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text13.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text13.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text13.Style.Padding.All=0.5 '单元格文本内距
Text13.Style.CharSpacing =0 '字符间距为毫米
Text13.Style.TextIndent =0 '首行缩进
Text13.Style.LineSpacing =100 '设置行距
Text13.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text13.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text13.X=17.5 '水平位置
Text13.Y=70.5 '垂直位置
Text13.Width=12 '宽度
Text13.Height=6 '高度
Dim Text14 As New prt.RenderText '定义一个文本对象
_T="炉批号"
Text14.Text=_T.Replace("//",vbcrlf) '分段文本
Text14.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text14.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text14.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text14.Style.Padding.All=0.5 '单元格文本内距
Text14.Style.CharSpacing =0 '字符间距为毫米
Text14.Style.TextIndent =0 '首行缩进
Text14.Style.LineSpacing =100 '设置行距
Text14.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text14.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text14.X=31.25 '水平位置
Text14.Y=70.5 '垂直位置
Text14.Width=16 '宽度
Text14.Height=6 '高度
Dim Text15 As New prt.RenderText '定义一个文本对象
_T="证明书编号（CERTIFICCATE NO.):"
Text15.Text=_T.Replace("//",vbcrlf) '分段文本
Text15.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text15.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text15.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text15.Style.Padding.All=0.5 '单元格文本内距
Text15.Style.CharSpacing =0 '字符间距为毫米
Text15.Style.TextIndent =0 '首行缩进
Text15.Style.LineSpacing =100 '设置行距
Text15.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text15.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text15.X=810.75 '水平位置
Text15.Y=-253.5 '垂直位置
Text15.Width=50 '宽度
Text15.Height=6 '高度
Dim Text17 As New prt.RenderText '定义一个文本对象
_T="数量"
Text17.Text=_T.Replace("//",vbcrlf) '分段文本
Text17.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text17.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text17.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text17.Style.Padding.All=0.5 '单元格文本内距
Text17.Style.CharSpacing =0 '字符间距为毫米
Text17.Style.TextIndent =0 '首行缩进
Text17.Style.LineSpacing =100 '设置行距
Text17.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text17.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text17.X=49.5 '水平位置
Text17.Y=70.5 '垂直位置
Text17.Width=11 '宽度
Text17.Height=6 '高度
Dim Text18 As New prt.RenderText '定义一个文本对象
_T="重量(T)"
Text18.Text=_T.Replace("//",vbcrlf) '分段文本
Text18.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text18.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text18.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text18.Style.Padding.All=0.5 '单元格文本内距
Text18.Style.CharSpacing =0 '字符间距为毫米
Text18.Style.TextIndent =0 '首行缩进
Text18.Style.LineSpacing =100 '设置行距
Text18.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text18.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text18.X=61.5 '水平位置
Text18.Y=70.5 '垂直位置
Text18.Width=16 '宽度
Text18.Height=6 '高度
Dim Text19 As New prt.RenderText '定义一个文本对象
_T="碳(%)"
Text19.Text=_T.Replace("//",vbcrlf) '分段文本
Text19.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text19.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text19.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text19.Style.Padding.All=0.5 '单元格文本内距
Text19.Style.CharSpacing =0 '字符间距为毫米
Text19.Style.TextIndent =0 '首行缩进
Text19.Style.LineSpacing =100 '设置行距
Text19.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text19.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text19.X=77.75 '水平位置
Text19.Y=70.5 '垂直位置
Text19.Width=10 '宽度
Text19.Height=6 '高度
Dim Text20 As New prt.RenderText '定义一个文本对象
_T="硅(%)"
Text20.Text=_T.Replace("//",vbcrlf) '分段文本
Text20.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text20.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text20.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text20.Style.Padding.All=0.5 '单元格文本内距
Text20.Style.CharSpacing =0 '字符间距为毫米
Text20.Style.TextIndent =0 '首行缩进
Text20.Style.LineSpacing =100 '设置行距
Text20.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text20.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text20.X=88.75 '水平位置
Text20.Y=70.5 '垂直位置
Text20.Width=10 '宽度
Text20.Height=6 '高度
Dim Text21 As New prt.RenderText '定义一个文本对象
_T="锰(%)"
Text21.Text=_T.Replace("//",vbcrlf) '分段文本
Text21.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text21.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text21.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text21.Style.Padding.All=0.5 '单元格文本内距
Text21.Style.CharSpacing =0 '字符间距为毫米
Text21.Style.TextIndent =0 '首行缩进
Text21.Style.LineSpacing =100 '设置行距
Text21.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text21.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text21.X=99.75 '水平位置
Text21.Y=70.5 '垂直位置
Text21.Width=10 '宽度
Text21.Height=6 '高度
Dim Text22 As New prt.RenderText '定义一个文本对象
_T="硫(%)"
Text22.Text=_T.Replace("//",vbcrlf) '分段文本
Text22.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text22.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text22.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text22.Style.Padding.All=0.5 '单元格文本内距
Text22.Style.CharSpacing =0 '字符间距为毫米
Text22.Style.TextIndent =0 '首行缩进
Text22.Style.LineSpacing =100 '设置行距
Text22.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text22.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text22.X=120 '水平位置
Text22.Y=70.5 '垂直位置
Text22.Width=10 '宽度
Text22.Height=6 '高度
Dim Text23 As New prt.RenderText '定义一个文本对象
_T="钒(%)"
Text23.Text=_T.Replace("//",vbcrlf) '分段文本
Text23.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text23.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text23.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text23.Style.Padding.All=0.5 '单元格文本内距
Text23.Style.CharSpacing =0 '字符间距为毫米
Text23.Style.TextIndent =0 '首行缩进
Text23.Style.LineSpacing =100 '设置行距
Text23.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text23.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text23.X=131 '水平位置
Text23.Y=70.5 '垂直位置
Text23.Width=10 '宽度
Text23.Height=6 '高度
Dim Text24 As New prt.RenderText '定义一个文本对象
_T="车 号(TRAIN No.):"
Text24.Text=_T.Replace("//",vbcrlf) '分段文本
Text24.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text24.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text24.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text24.Style.Padding.All=0.5 '单元格文本内距
Text24.Style.CharSpacing =0 '字符间距为毫米
Text24.Style.TextIndent =0 '首行缩进
Text24.Style.LineSpacing =100 '设置行距
Text24.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text24.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text24.X=175 '水平位置
Text24.Y=42.75 '垂直位置
Text24.Width=48 '宽度
Text24.Height=6 '高度
Dim Text25 As New prt.RenderText '定义一个文本对象
_T="碳当量(%)"
Text25.Text=_T.Replace("//",vbcrlf) '分段文本
Text25.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text25.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text25.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text25.Style.Padding.All=0.5 '单元格文本内距
Text25.Style.CharSpacing =0 '字符间距为毫米
Text25.Style.TextIndent =0 '首行缩进
Text25.Style.LineSpacing =100 '设置行距
Text25.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text25.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text25.X=140.5 '水平位置
Text25.Y=70.5 '垂直位置
Text25.Width=17 '宽度
Text25.Height=6 '高度
Dim Text26 As New prt.RenderText '定义一个文本对象
_T="下屈服强度(MPa)"
Text26.Text=_T.Replace("//",vbcrlf) '分段文本
Text26.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text26.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text26.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text26.Style.Padding.All=0.5 '单元格文本内距
Text26.Style.CharSpacing =0 '字符间距为毫米
Text26.Style.TextIndent =0 '首行缩进
Text26.Style.LineSpacing =100 '设置行距
Text26.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text26.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text26.X=153.5 '水平位置
Text26.Y=67.5 '垂直位置
Text26.Width=14 '宽度
Text26.Height=8 '高度
Dim Text27 As New prt.RenderText '定义一个文本对象
_T="抗拉强度(MPa)"
Text27.Text=_T.Replace("//",vbcrlf) '分段文本
Text27.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text27.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text27.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text27.Style.Padding.All=0.5 '单元格文本内距
Text27.Style.CharSpacing =0 '字符间距为毫米
Text27.Style.TextIndent =0 '首行缩进
Text27.Style.LineSpacing =100 '设置行距
Text27.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text27.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text27.X=168.5 '水平位置
Text27.Y=67.75 '垂直位置
Text27.Width=16 '宽度
Text27.Height=8 '高度
Dim Text28 As New prt.RenderText '定义一个文本对象
_T="反弯实验"
Text28.Text=_T.Replace("//",vbcrlf) '分段文本
Text28.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text28.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text28.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text28.Style.Padding.All=0.5 '单元格文本内距
Text28.Style.CharSpacing =0 '字符间距为毫米
Text28.Style.TextIndent =0 '首行缩进
Text28.Style.LineSpacing =100 '设置行距
Text28.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text28.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text28.X=260.25 '水平位置
Text28.Y=70.5 '垂直位置
Text28.Width=16 '宽度
Text28.Height=6 '高度
Dim Text29 As New prt.RenderText '定义一个文本对象
_T="伸长率(%)"
Text29.Text=_T.Replace("//",vbcrlf) '分段文本
Text29.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text29.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text29.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text29.Style.Padding.All=0.5 '单元格文本内距
Text29.Style.CharSpacing =0 '字符间距为毫米
Text29.Style.TextIndent =0 '首行缩进
Text29.Style.LineSpacing =100 '设置行距
Text29.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text29.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text29.X=182 '水平位置
Text29.Y=70.5 '垂直位置
Text29.Width=15 '宽度
Text29.Height=6 '高度
Dim Text30 As New prt.RenderText '定义一个文本对象
_T="强屈比"
Text30.Text=_T.Replace("//",vbcrlf) '分段文本
Text30.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text30.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text30.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text30.Style.Padding.All=0.5 '单元格文本内距
Text30.Style.CharSpacing =0 '字符间距为毫米
Text30.Style.TextIndent =0 '首行缩进
Text30.Style.LineSpacing =100 '设置行距
Text30.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text30.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text30.X=197.5 '水平位置
Text30.Y=70.5 '垂直位置
Text30.Width=13 '宽度
Text30.Height=6 '高度
Dim Text31 As New prt.RenderText '定义一个文本对象
_T="屈屈比"
Text31.Text=_T.Replace("//",vbcrlf) '分段文本
Text31.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text31.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text31.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text31.Style.Padding.All=0.5 '单元格文本内距
Text31.Style.CharSpacing =0 '字符间距为毫米
Text31.Style.TextIndent =0 '首行缩进
Text31.Style.LineSpacing =100 '设置行距
Text31.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text31.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text31.X=213.25 '水平位置
Text31.Y=70.5 '垂直位置
Text31.Width=12 '宽度
Text31.Height=6 '高度
Dim Text33 As New prt.RenderText '定义一个文本对象
_T="最大伸长率(%)"
Text33.Text=_T.Replace("//",vbcrlf) '分段文本
Text33.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text33.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text33.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text33.Style.Padding.All=0.5 '单元格文本内距
Text33.Style.CharSpacing =0 '字符间距为毫米
Text33.Style.TextIndent =0 '首行缩进
Text33.Style.LineSpacing =100 '设置行距
Text33.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text33.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text33.X=230.5 '水平位置
Text33.Y=68 '垂直位置
Text33.Width=14 '宽度
Text33.Height=8 '高度
Dim Text34 As New prt.RenderText '定义一个文本对象
_T="冷弯实验"
Text34.Text=_T.Replace("//",vbcrlf) '分段文本
Text34.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text34.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text34.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text34.Style.Padding.All=0.5 '单元格文本内距
Text34.Style.CharSpacing =0 '字符间距为毫米
Text34.Style.TextIndent =0 '首行缩进
Text34.Style.LineSpacing =100 '设置行距
Text34.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text34.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text34.X=245 '水平位置
Text34.Y=70.5 '垂直位置
Text34.Width=16 '宽度
Text34.Height=6 '高度
Dim Text35 As New prt.RenderText '定义一个文本对象
_T="尺寸外形和表面质量"
Text35.Text=_T.Replace("//",vbcrlf) '分段文本
Text35.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text35.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text35.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text35.Style.Padding.All=0.5 '单元格文本内距
Text35.Style.CharSpacing =0 '字符间距为毫米
Text35.Style.TextIndent =0 '首行缩进
Text35.Style.LineSpacing =100 '设置行距
Text35.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text35.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text35.X=276 '水平位置
Text35.Y=64.5 '垂直位置
Text35.Width=13 '宽度
Text35.Height=12 '高度
Dim Text37 As New prt.RenderText '定义一个文本对象
_T="质量证明书专用章//CERTIFICATC SEAL"
Text37.Text=_T.Replace("//",vbcrlf) '分段文本
Text37.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text37.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text37.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text37.Style.Padding.All=0.5 '单元格文本内距
Text37.Style.CharSpacing =0 '字符间距为毫米
Text37.Style.TextIndent =0 '首行缩进
Text37.Style.LineSpacing =100 '设置行距
Text37.Style.BackColor=Color.FromKnownColor(27) '背景颜色
Text37.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text37.X=247.5 '水平位置
Text37.Y=154.25 '垂直位置
Text37.Width=30 '宽度
Text37.Height=10 '高度
Dim Text38 As New prt.RenderText '定义一个文本对象
_T="发货单号（LIST No.):"
Text38.Text=_T.Replace("//",vbcrlf) '分段文本
Text38.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text38.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text38.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text38.Style.Padding.All=0.5 '单元格文本内距
Text38.Style.CharSpacing =0 '字符间距为毫米
Text38.Style.TextIndent =0 '首行缩进
Text38.Style.LineSpacing =100 '设置行距
Text38.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text38.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text38.X=4.75 '水平位置
Text38.Y=31.75 '垂直位置
Text38.Width=34 '宽度
Text38.Height=6 '高度
Dim Text39 As New prt.RenderText '定义一个文本对象
_T="提货单位（PURCHASER):"
Text39.Text=_T.Replace("//",vbcrlf) '分段文本
Text39.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text39.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text39.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text39.Style.Padding.All=0.5 '单元格文本内距
Text39.Style.CharSpacing =0 '字符间距为毫米
Text39.Style.TextIndent =0 '首行缩进
Text39.Style.LineSpacing =100 '设置行距
Text39.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text39.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text39.X=4 '水平位置
Text39.Y=37 '垂直位置
Text39.Width=36 '宽度
Text39.Height=6 '高度
Dim Text40 As New prt.RenderText '定义一个文本对象
_T="质量记录编号（Quality Record No.):"
Text40.Text=_T.Replace("//",vbcrlf) '分段文本
Text40.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text40.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text40.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text40.Style.Padding.All=0.5 '单元格文本内距
Text40.Style.CharSpacing =0 '字符间距为毫米
Text40.Style.TextIndent =0 '首行缩进
Text40.Style.LineSpacing =100 '设置行距
Text40.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text40.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text40.X=4.5 '水平位置
Text40.Y=43.25 '垂直位置
Text40.Width=36 '宽度
Text40.Height=9 '高度
Dim Text41 As New prt.RenderText '定义一个文本对象
_T="产品名称（COMMODITY):"
Text41.Text=_T.Replace("//",vbcrlf) '分段文本
Text41.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text41.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text41.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text41.Style.Padding.All=0.5 '单元格文本内距
Text41.Style.CharSpacing =0 '字符间距为毫米
Text41.Style.TextIndent =0 '首行缩进
Text41.Style.LineSpacing =100 '设置行距
Text41.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text41.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text41.X=4 '水平位置
Text41.Y=53.5 '垂直位置
Text41.Width=36 '宽度
Text41.Height=6 '高度
Dim Text42 As New prt.RenderText '定义一个文本对象
_T="标准编号 （STANDARD):"
Text42.Text=_T.Replace("//",vbcrlf) '分段文本
Text42.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text42.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text42.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text42.Style.Padding.All=0.5 '单元格文本内距
Text42.Style.CharSpacing =0 '字符间距为毫米
Text42.Style.TextIndent =0 '首行缩进
Text42.Style.LineSpacing =100 '设置行距
Text42.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text42.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text42.X=3.5 '水平位置
Text42.Y=59.25 '垂直位置
Text42.Width=36 '宽度
Text42.Height=6 '高度
Dim Text44 As New prt.RenderText '定义一个文本对象
_T="到 站（DESTINATION）:"
Text44.Text=_T.Replace("//",vbcrlf) '分段文本
Text44.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text44.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text44.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text44.Style.Padding.All=0.5 '单元格文本内距
Text44.Style.CharSpacing =0 '字符间距为毫米
Text44.Style.TextIndent =0 '首行缩进
Text44.Style.LineSpacing =100 '设置行距
Text44.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text44.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text44.X=175.5 '水平位置
Text44.Y=36 '垂直位置
Text44.Width=48 '宽度
Text44.Height=7 '高度
Dim Text45 As New prt.RenderText '定义一个文本对象
_T="有效期至:"
Text45.Text=_T.Replace("//",vbcrlf) '分段文本
Text45.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text45.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text45.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text45.Style.Padding.All=0.5 '单元格文本内距
Text45.Style.CharSpacing =0 '字符间距为毫米
Text45.Style.TextIndent =0 '首行缩进
Text45.Style.LineSpacing =100 '设置行距
Text45.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text45.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text45.X=175 '水平位置
Text45.Y=59.5 '垂直位置
Text45.Width=18 '宽度
Text45.Height=6 '高度
Dim Text46 As New prt.RenderText '定义一个文本对象
_T="生 产 许 可 证 (LICENSE No.):"
Text46.Text=_T.Replace("//",vbcrlf) '分段文本
Text46.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text46.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text46.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text46.Style.Padding.All=0.5 '单元格文本内距
Text46.Style.CharSpacing =0 '字符间距为毫米
Text46.Style.TextIndent =0 '首行缩进
Text46.Style.LineSpacing =100 '设置行距
Text46.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text46.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text46.X=175 '水平位置
Text46.Y=51.25 '垂直位置
Text46.Width=49 '宽度
Text46.Height=7 '高度
Dim Text47 As New prt.RenderText '定义一个文本对象
_T="签证:"
Text47.Text=_T.Replace("//",vbcrlf) '分段文本
Text47.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text47.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text47.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text47.Style.Padding.All=0.5 '单元格文本内距
Text47.Style.CharSpacing =0 '字符间距为毫米
Text47.Style.TextIndent =0 '首行缩进
Text47.Style.LineSpacing =100 '设置行距
Text47.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text47.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text47.X=195 '水平位置
Text47.Y=194 '垂直位置
Text47.Width=14 '宽度
Text47.Height=6 '高度
Dim Text48 As New prt.RenderText '定义一个文本对象
_T="打印时间:"
Text48.Text=_T.Replace("//",vbcrlf) '分段文本
Text48.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text48.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text48.Style.Font=New System.Drawing.Font("黑体",9,0,3,134,False) '文本字体
Text48.Style.Padding.All=0.5 '单元格文本内距
Text48.Style.CharSpacing =0 '字符间距为毫米
Text48.Style.TextIndent =0 '首行缩进
Text48.Style.LineSpacing =100 '设置行距
Text48.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text48.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text48.X=227.5 '水平位置
Text48.Y=194 '垂直位置
Text48.Width=19 '宽度
Text48.Height=6 '高度
Dim Text49 As New prt.RenderText '定义一个文本对象
_T="河南省信阳市明港镇"
Text49.Text=_T.Replace("//",vbcrlf) '分段文本
Text49.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text49.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text49.Style.Font=New System.Drawing.Font("黑体",10,0,3,1,False) '文本字体
Text49.Style.Padding.All=0.5 '单元格文本内距
Text49.Style.CharSpacing =0 '字符间距为毫米
Text49.Style.TextIndent =0 '首行缩进
Text49.Style.LineSpacing =100 '设置行距
Text49.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text49.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text49.X=225 '水平位置
Text49.Y=9.75 '垂直位置
Text49.Width=40 '宽度
Text49.Height=6 '高度
Dim Text50 As New prt.RenderText '定义一个文本对象
_T="ADDRESS:MINGGANG DISTRICT,XINYANG"
Text50.Text=_T.Replace("//",vbcrlf) '分段文本
Text50.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text50.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text50.Style.Font=New System.Drawing.Font("黑体",10,0,3,1,False) '文本字体
Text50.Style.Padding.All=0.5 '单元格文本内距
Text50.Style.CharSpacing =0 '字符间距为毫米
Text50.Style.TextIndent =0 '首行缩进
Text50.Style.LineSpacing =100 '设置行距
Text50.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text50.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text50.X=224.75 '水平位置
Text50.Y=14.25 '垂直位置
Text50.Width=65 '宽度
Text50.Height=6 '高度
Dim Text51 As New prt.RenderText '定义一个文本对象
_T="CITY,HENAN PROVINCE,CHINA"
Text51.Text=_T.Replace("//",vbcrlf) '分段文本
Text51.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text51.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text51.Style.Font=New System.Drawing.Font("黑体",10,0,3,1,False) '文本字体
Text51.Style.Padding.All=0.5 '单元格文本内距
Text51.Style.CharSpacing =0 '字符间距为毫米
Text51.Style.TextIndent =0 '首行缩进
Text51.Style.LineSpacing =100 '设置行距
Text51.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text51.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text51.X=224.75 '水平位置
Text51.Y=18.5 '垂直位置
Text51.Width=49 '宽度
Text51.Height=6 '高度
Dim Text52 As New prt.RenderText '定义一个文本对象
_T="TEL:0376-8672071 8672072"
Text52.Text=_T.Replace("//",vbcrlf) '分段文本
Text52.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text52.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text52.Style.Font=New System.Drawing.Font("黑体",10,0,3,1,False) '文本字体
Text52.Style.Padding.All=0.5 '单元格文本内距
Text52.Style.CharSpacing =0 '字符间距为毫米
Text52.Style.TextIndent =0 '首行缩进
Text52.Style.LineSpacing =100 '设置行距
Text52.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text52.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text52.X=225.75 '水平位置
Text52.Y=23 '垂直位置
Text52.Width=55 '宽度
Text52.Height=5 '高度
Dim Text53 As New prt.RenderText '定义一个文本对象
_T="(1)检验项目未注明者均为合格(THE INSPECTION ITEMS WHICH ARE NOT SPECIFIED ARE ALL QUALI FIED).//(2)无质量证明专用章无效(THE CERTIFICATE SHALL BE VALID ONLY AFTER BEING STAMPED WITH QUALITY SPECIAL SEAL).//(3)牌号以质量证明书为准(THE GRADE IN QUALITY CERTIFICATE SHALL PREVAIL TO BE OFFICIAL)."
Text53.Text=_T.Replace("//",vbcrlf) '分段文本
Text53.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text53.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text53.Style.Font=New System.Drawing.Font("黑体",8.25,0,3,1,False) '文本字体
Text53.Style.Padding.All=0.5 '单元格文本内距
Text53.Style.CharSpacing =0 '字符间距为毫米
Text53.Style.TextIndent =0 '首行缩进
Text53.Style.LineSpacing =100 '设置行距
Text53.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text53.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text53.X=6.5 '水平位置
Text53.Y=157.5 '垂直位置
Text53.Width=180 '宽度
Text53.Height=15 '高度
Dim Text57 As New prt.RenderText '定义一个文本对象
_T="第1页/共1页"
Text57.Text=_T.Replace("//",vbcrlf) '分段文本
Text57.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text57.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text57.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text57.Style.Padding.All=0.5 '单元格文本内距
Text57.Style.CharSpacing =0 '字符间距为毫米
Text57.Style.TextIndent =0 '首行缩进
Text57.Style.LineSpacing =100 '设置行距
Text57.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text57.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text57.X=131.5 '水平位置
Text57.Y=193.75 '垂直位置
Text57.Width=29 '宽度
Text57.Height=6 '高度
Dim Text58 As New prt.RenderText '定义一个文本对象
_T="磷(%)"
Text58.Text=_T.Replace("//",vbcrlf) '分段文本
Text58.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text58.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text58.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Text58.Style.Padding.All=0.5 '单元格文本内距
Text58.Style.CharSpacing =0 '字符间距为毫米
Text58.Style.TextIndent =0 '首行缩进
Text58.Style.LineSpacing =100 '设置行距
Text58.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text58.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text58.X=109.75 '水平位置
Text58.Y=70.5 '垂直位置
Text58.Width=10 '宽度
Text58.Height=6 '高度
Dim Text59 As New prt.RenderText '定义一个文本对象
_T="证明书编号 (CERTIFICACE No):"
Text59.Text=_T.Replace("//",vbcrlf) '分段文本
Text59.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text59.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text59.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text59.Style.Padding.All=0.5 '单元格文本内距
Text59.Style.CharSpacing =0 '字符间距为毫米
Text59.Style.TextIndent =0 '首行缩进
Text59.Style.LineSpacing =100 '设置行距
Text59.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text59.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text59.X=175.25 '水平位置
Text59.Y=29.75 '垂直位置
Text59.Width=48 '宽度
Text59.Height=6 '高度
Dim Text60 As New prt.RenderText '定义一个文本对象
_T="备注(Remarks):"
Text60.Text=_T.Replace("//",vbcrlf) '分段文本
Text60.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Text60.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Text60.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
Text60.Style.Padding.All=0.5 '单元格文本内距
Text60.Style.CharSpacing =0 '字符间距为毫米
Text60.Style.TextIndent =0 '首行缩进
Text60.Style.LineSpacing =100 '设置行距
Text60.Style.BackColor=Color.FromKnownColor(164) '背景颜色
Text60.Style.TextColor=Color.FromKnownColor(35) '字体颜色
Text60.X=6.75 '水平位置
Text60.Y=153.5 '垂直位置
Text60.Width=30 '宽度
Text60.Height=6 '高度
Dim B_T As String '定义一个综合文本分段文本
Dim BindingText31 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("证明书编号") '文本内容
BindingText31.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText31.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText31.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText31.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText31.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText31.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText31.Style.Padding.All=0.5 '单元格文本内距
BindingText31.Style.CharSpacing =0 '字符间距为毫米
BindingText31.Style.TextIndent =0 '首行缩进
BindingText31.Style.LineSpacing =100 '设置行距
BindingText31.Width=42 '宽度
BindingText31.Height=6 '高度
BindingText31.X=223.75 '水平位置
BindingText31.Y=29 '垂直位置
Dim BindingText49 As New prt.RenderText '定义一个文本对象
BindingText49.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!牌号.Value]" '标签打印
BindingText49.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText49.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText49.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText49.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText49.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText49.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText49.Style.Padding.All=0.5 '单元格文本内距
BindingText49.Style.CharSpacing =0 '字符间距为毫米
BindingText49.Style.TextIndent =0 '首行缩进
BindingText49.Style.LineSpacing =100 '设置行距
BindingText49.Width=14 '宽度
BindingText49.Height=6 '高度
Dim Cn_BindingText49 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText49.Height="Auto"'高度
Cn_BindingText49.Width="Auto"'高度
Cn_BindingText49.X=3.75 '水平位置
Cn_BindingText49.Y=79.75 '垂直位置
Cn_BindingText49.Children.Add(BindingText49) '将字段加入到报表
Dim BindingText50 As New prt.RenderText '定义一个文本对象
BindingText50.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!规格.Value]" '标签打印
BindingText50.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText50.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText50.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText50.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText50.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText50.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText50.Style.Padding.All=0.5 '单元格文本内距
BindingText50.Style.CharSpacing =0 '字符间距为毫米
BindingText50.Style.TextIndent =0 '首行缩进
BindingText50.Style.LineSpacing =100 '设置行距
BindingText50.Width=13 '宽度
BindingText50.Height=6 '高度
Dim Cn_BindingText50 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText50.Height="Auto"'高度
Cn_BindingText50.Width="Auto"'高度
Cn_BindingText50.X=17.25 '水平位置
Cn_BindingText50.Y=79.75 '垂直位置
Cn_BindingText50.Children.Add(BindingText50) '将字段加入到报表
Dim BindingText51 As New prt.RenderText '定义一个文本对象
BindingText51.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!炉批号.Value]" '标签打印
BindingText51.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText51.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText51.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText51.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText51.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText51.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText51.Style.Padding.All=0.5 '单元格文本内距
BindingText51.Style.CharSpacing =0 '字符间距为毫米
BindingText51.Style.TextIndent =0 '首行缩进
BindingText51.Style.LineSpacing =100 '设置行距
BindingText51.Width=22 '宽度
BindingText51.Height=6 '高度
Dim Cn_BindingText51 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText51.Height="Auto"'高度
Cn_BindingText51.Width="Auto"'高度
Cn_BindingText51.X=31 '水平位置
Cn_BindingText51.Y=79.75 '垂直位置
Cn_BindingText51.Children.Add(BindingText51) '将字段加入到报表
Dim rthj = New prt.RenderText
rthj.Text= "合计:" '设置打印内容
Cn_BindingText51.Children.Add(rthj)
rthj.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Dim BindingText52 As New prt.RenderText '定义一个文本对象
BindingText52.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!数量.Value]" '标签打印
BindingText52.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText52.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText52.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText52.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText52.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText52.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText52.Style.Padding.All=0.5 '单元格文本内距
BindingText52.Style.CharSpacing =0 '字符间距为毫米
BindingText52.Style.TextIndent =0 '首行缩进
BindingText52.Style.LineSpacing =100 '设置行距
BindingText52.Width=11 '宽度
BindingText52.Height=6 '高度
Dim Cn_BindingText52 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText52.Height="Auto"'高度
Cn_BindingText52.Width="Auto"'高度
Cn_BindingText52.X=50.5 '水平位置
Cn_BindingText52.Y=79.75 '垂直位置
Cn_BindingText52.Children.Add(BindingText52) '将字段加入到报表
Dim rtsl = New prt.RenderText
rtsl.Text= Tables("材质书.材质书明细").Compute("sum(数量)") ''"[Aggregates!TotalSum.Value]" '设置打印内容
Cn_BindingText52.Children.Add(rtsl)
rtsl.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Dim BindingText54 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("车号") '文本内容
BindingText54.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText54.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText54.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText54.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText54.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText54.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText54.Style.Padding.All=0.5 '单元格文本内距
BindingText54.Style.CharSpacing =0 '字符间距为毫米
BindingText54.Style.TextIndent =0 '首行缩进
BindingText54.Style.LineSpacing =100 '设置行距
BindingText54.Width=31 '宽度
BindingText54.Height=5 '高度
BindingText54.X=223.25 '水平位置
BindingText54.Y=42 '垂直位置
Dim BindingText75 As New prt.RenderText '定义一个文本对象
BindingText75.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!重量.Value]" '标签打印
BindingText75.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText75.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText75.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText75.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText75.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText75.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText75.Style.Padding.All=0.5 '单元格文本内距
BindingText75.Style.CharSpacing =0 '字符间距为毫米
BindingText75.Style.TextIndent =0 '首行缩进
BindingText75.Style.LineSpacing =100 '设置行距
BindingText75.Width=16 '宽度
BindingText75.Height=6 '高度
Dim Cn_BindingText75 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText75.Height="Auto"'高度
Cn_BindingText75.Width="Auto"'高度
Cn_BindingText75.X=61.75 '水平位置
Cn_BindingText75.Y=79.75 '垂直位置
Cn_BindingText75.Children.Add(BindingText75) '将字段加入到报表
Dim rtzl = New prt.RenderText
rtzl.Text= Tables("材质书.材质书明细").Compute("sum(重量)") ''"[Aggregates!TotalSum.Value]" '设置打印内容
Cn_BindingText75.Children.Add(rtzl)
rtzl.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
Dim BindingText76 As New prt.RenderText '定义一个文本对象
BindingText76.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!碳.Value]" '标签打印
BindingText76.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText76.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText76.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText76.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText76.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText76.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText76.Style.Padding.All=0.5 '单元格文本内距
BindingText76.Style.CharSpacing =0 '字符间距为毫米
BindingText76.Style.TextIndent =0 '首行缩进
BindingText76.Style.LineSpacing =100 '设置行距
BindingText76.Width=10 '宽度
BindingText76.Height=6 '高度
Dim Cn_BindingText76 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText76.Height="Auto"'高度
Cn_BindingText76.Width="Auto"'高度
Cn_BindingText76.X=77 '水平位置
Cn_BindingText76.Y=79.75 '垂直位置
Cn_BindingText76.Children.Add(BindingText76) '将字段加入到报表
Dim BindingText77 As New prt.RenderText '定义一个文本对象
BindingText77.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!硅.Value]" '标签打印
BindingText77.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText77.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText77.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText77.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText77.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText77.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText77.Style.Padding.All=0.5 '单元格文本内距
BindingText77.Style.CharSpacing =0 '字符间距为毫米
BindingText77.Style.TextIndent =0 '首行缩进
BindingText77.Style.LineSpacing =100 '设置行距
BindingText77.Width=12 '宽度
BindingText77.Height=6 '高度
Dim Cn_BindingText77 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText77.Height="Auto"'高度
Cn_BindingText77.Width="Auto"'高度
Cn_BindingText77.X=88 '水平位置
Cn_BindingText77.Y=79.75 '垂直位置
Cn_BindingText77.Children.Add(BindingText77) '将字段加入到报表
Dim BindingText78 As New prt.RenderText '定义一个文本对象
BindingText78.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!锰.Value]" '标签打印
BindingText78.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText78.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText78.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText78.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText78.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText78.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText78.Style.Padding.All=0.5 '单元格文本内距
BindingText78.Style.CharSpacing =0 '字符间距为毫米
BindingText78.Style.TextIndent =0 '首行缩进
BindingText78.Style.LineSpacing =100 '设置行距
BindingText78.Width=11 '宽度
BindingText78.Height=6 '高度
Dim Cn_BindingText78 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText78.Height="Auto"'高度
Cn_BindingText78.Width="Auto"'高度
Cn_BindingText78.X=99 '水平位置
Cn_BindingText78.Y=79.75 '垂直位置
Cn_BindingText78.Children.Add(BindingText78) '将字段加入到报表
Dim BindingText79 As New prt.RenderText '定义一个文本对象
BindingText79.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!硫.Value]" '标签打印
BindingText79.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText79.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText79.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText79.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText79.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText79.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText79.Style.Padding.All=0.5 '单元格文本内距
BindingText79.Style.CharSpacing =0 '字符间距为毫米
BindingText79.Style.TextIndent =0 '首行缩进
BindingText79.Style.LineSpacing =100 '设置行距
BindingText79.Width=12 '宽度
BindingText79.Height=6 '高度
Dim Cn_BindingText79 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText79.Height="Auto"'高度
Cn_BindingText79.Width="Auto"'高度
Cn_BindingText79.X=119.5 '水平位置
Cn_BindingText79.Y=79.75 '垂直位置
Cn_BindingText79.Children.Add(BindingText79) '将字段加入到报表
Dim BindingText80 As New prt.RenderText '定义一个文本对象
BindingText80.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!钒.Value]" '标签打印
BindingText80.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText80.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText80.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText80.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText80.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText80.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText80.Style.Padding.All=0.5 '单元格文本内距
BindingText80.Style.CharSpacing =0 '字符间距为毫米
BindingText80.Style.TextIndent =0 '首行缩进
BindingText80.Style.LineSpacing =100 '设置行距
BindingText80.Width=10 '宽度
BindingText80.Height=6 '高度
Dim Cn_BindingText80 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText80.Height="Auto"'高度
Cn_BindingText80.Width="Auto"'高度
Cn_BindingText80.X=130.75 '水平位置
Cn_BindingText80.Y=79.75 '垂直位置
Cn_BindingText80.Children.Add(BindingText80) '将字段加入到报表
Dim BindingText81 As New prt.RenderText '定义一个文本对象
BindingText81.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!碳当量.Value]" '标签打印
BindingText81.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText81.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText81.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText81.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText81.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText81.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText81.Style.Padding.All=0.5 '单元格文本内距
BindingText81.Style.CharSpacing =0 '字符间距为毫米
BindingText81.Style.TextIndent =0 '首行缩进
BindingText81.Style.LineSpacing =100 '设置行距
BindingText81.Width=12 '宽度
BindingText81.Height=6 '高度
Dim Cn_BindingText81 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText81.Height="Auto"'高度
Cn_BindingText81.Width="Auto"'高度
Cn_BindingText81.X=141.25 '水平位置
Cn_BindingText81.Y=79.75 '垂直位置
Cn_BindingText81.Children.Add(BindingText81) '将字段加入到报表
Dim BindingText82 As New prt.RenderText '定义一个文本对象
BindingText82.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!下屈服强度.Value]" '标签打印
BindingText82.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText82.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText82.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText82.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText82.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText82.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText82.Style.Padding.All=0.5 '单元格文本内距
BindingText82.Style.CharSpacing =0 '字符间距为毫米
BindingText82.Style.TextIndent =0 '首行缩进
BindingText82.Style.LineSpacing =100 '设置行距
BindingText82.Width=14 '宽度
BindingText82.Height=6 '高度
Dim Cn_BindingText82 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText82.Height="Auto"'高度
Cn_BindingText82.Width="Auto"'高度
Cn_BindingText82.X=154 '水平位置
Cn_BindingText82.Y=79.75 '垂直位置
Cn_BindingText82.Children.Add(BindingText82) '将字段加入到报表
Dim BindingText83 As New prt.RenderText '定义一个文本对象
BindingText83.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!抗拉强度.Value]" '标签打印
BindingText83.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText83.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText83.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText83.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText83.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText83.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText83.Style.Padding.All=0.5 '单元格文本内距
BindingText83.Style.CharSpacing =0 '字符间距为毫米
BindingText83.Style.TextIndent =0 '首行缩进
BindingText83.Style.LineSpacing =100 '设置行距
BindingText83.Width=15 '宽度
BindingText83.Height=6 '高度
Dim Cn_BindingText83 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText83.Height="Auto"'高度
Cn_BindingText83.Width="Auto"'高度
Cn_BindingText83.X=169.25 '水平位置
Cn_BindingText83.Y=79.75 '垂直位置
Cn_BindingText83.Children.Add(BindingText83) '将字段加入到报表
Dim BindingText84 As New prt.RenderText '定义一个文本对象
BindingText84.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!伸长率.Value]" '标签打印
BindingText84.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText84.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText84.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText84.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText84.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText84.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText84.Style.Padding.All=0.5 '单元格文本内距
BindingText84.Style.CharSpacing =0 '字符间距为毫米
BindingText84.Style.TextIndent =0 '首行缩进
BindingText84.Style.LineSpacing =100 '设置行距
BindingText84.Width=12 '宽度
BindingText84.Height=6 '高度
Dim Cn_BindingText84 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText84.Height="Auto"'高度
Cn_BindingText84.Width="Auto"'高度
Cn_BindingText84.X=184 '水平位置
Cn_BindingText84.Y=79.75 '垂直位置
Cn_BindingText84.Children.Add(BindingText84) '将字段加入到报表
Dim BindingText85 As New prt.RenderText '定义一个文本对象
BindingText85.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!强屈比.Value]" '标签打印
BindingText85.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText85.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText85.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText85.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText85.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText85.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText85.Style.Padding.All=0.5 '单元格文本内距
BindingText85.Style.CharSpacing =0 '字符间距为毫米
BindingText85.Style.TextIndent =0 '首行缩进
BindingText85.Style.LineSpacing =100 '设置行距
BindingText85.Width=17 '宽度
BindingText85.Height=6 '高度
Dim Cn_BindingText85 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText85.Height="Auto"'高度
Cn_BindingText85.Width="Auto"'高度
Cn_BindingText85.X=197.25 '水平位置
Cn_BindingText85.Y=79.75 '垂直位置
Cn_BindingText85.Children.Add(BindingText85) '将字段加入到报表
Dim BindingText86 As New prt.RenderText '定义一个文本对象
BindingText86.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!屈屈比.Value]" '标签打印
BindingText86.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText86.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText86.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText86.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText86.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText86.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText86.Style.Padding.All=0.5 '单元格文本内距
BindingText86.Style.CharSpacing =0 '字符间距为毫米
BindingText86.Style.TextIndent =0 '首行缩进
BindingText86.Style.LineSpacing =100 '设置行距
BindingText86.Width=17 '宽度
BindingText86.Height=6 '高度
Dim Cn_BindingText86 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText86.Height="Auto"'高度
Cn_BindingText86.Width="Auto"'高度
Cn_BindingText86.X=213 '水平位置
Cn_BindingText86.Y=79.75 '垂直位置
Cn_BindingText86.Children.Add(BindingText86) '将字段加入到报表
Dim BindingText87 As New prt.RenderText '定义一个文本对象
BindingText87.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!最大伸长率.Value]" '标签打印
BindingText87.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText87.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText87.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText87.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText87.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText87.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText87.Style.Padding.All=0.5 '单元格文本内距
BindingText87.Style.CharSpacing =0 '字符间距为毫米
BindingText87.Style.TextIndent =0 '首行缩进
BindingText87.Style.LineSpacing =100 '设置行距
BindingText87.Width=16 '宽度
BindingText87.Height=6 '高度
Dim Cn_BindingText87 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText87.Height="Auto"'高度
Cn_BindingText87.Width="Auto"'高度
Cn_BindingText87.X=230 '水平位置
Cn_BindingText87.Y=79.75 '垂直位置
Cn_BindingText87.Children.Add(BindingText87) '将字段加入到报表
Dim BindingText88 As New prt.RenderText '定义一个文本对象
BindingText88.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!冷弯实验.Value]" '标签打印
BindingText88.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText88.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText88.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText88.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText88.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText88.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText88.Style.Padding.All=0.5 '单元格文本内距
BindingText88.Style.CharSpacing =0 '字符间距为毫米
BindingText88.Style.TextIndent =0 '首行缩进
BindingText88.Style.LineSpacing =100 '设置行距
BindingText88.Width=15 '宽度
BindingText88.Height=6 '高度
Dim Cn_BindingText88 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText88.Height="Auto"'高度
Cn_BindingText88.Width="Auto"'高度
Cn_BindingText88.X=245.75 '水平位置
Cn_BindingText88.Y=79.75 '垂直位置
Cn_BindingText88.Children.Add(BindingText88) '将字段加入到报表
Dim BindingText89 As New prt.RenderText '定义一个文本对象
BindingText89.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!反弯实验.Value]" '标签打印
BindingText89.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText89.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText89.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText89.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText89.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText89.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText89.Style.Padding.All=0.5 '单元格文本内距
BindingText89.Style.CharSpacing =0 '字符间距为毫米
BindingText89.Style.TextIndent =0 '首行缩进
BindingText89.Style.LineSpacing =100 '设置行距
BindingText89.Width=15 '宽度
BindingText89.Height=6 '高度
Dim Cn_BindingText89 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText89.Height="Auto"'高度
Cn_BindingText89.Width="Auto"'高度
Cn_BindingText89.X=261 '水平位置
Cn_BindingText89.Y=79.75 '垂直位置
Cn_BindingText89.Children.Add(BindingText89) '将字段加入到报表
Dim BindingText90 As New prt.RenderText '定义一个文本对象
BindingText90.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!尺寸外形和表面质量.Value]" '标签打印
BindingText90.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText90.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText90.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText90.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText90.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText90.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText90.Style.Padding.All=0.5 '单元格文本内距
BindingText90.Style.CharSpacing =0 '字符间距为毫米
BindingText90.Style.TextIndent =0 '首行缩进
BindingText90.Style.LineSpacing =100 '设置行距
BindingText90.Width=13 '宽度
BindingText90.Height=6 '高度
Dim Cn_BindingText90 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText90.Height="Auto"'高度
Cn_BindingText90.Width="Auto"'高度
Cn_BindingText90.X=276.75 '水平位置
Cn_BindingText90.Y=79.75 '垂直位置
Cn_BindingText90.Children.Add(BindingText90) '将字段加入到报表
Dim BindingText91 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("标准编号") '文本内容
BindingText91.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText91.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText91.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText91.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText91.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText91.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText91.Style.Padding.All=0.5 '单元格文本内距
BindingText91.Style.CharSpacing =0 '字符间距为毫米
BindingText91.Style.TextIndent =0 '首行缩进
BindingText91.Style.LineSpacing =100 '设置行距
BindingText91.Width=50 '宽度
BindingText91.Height=6 '高度
BindingText91.X=42.75 '水平位置
BindingText91.Y=58 '垂直位置
Dim BindingText92 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("签证") '文本内容
BindingText92.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText92.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText92.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText92.Style.Font=New System.Drawing.Font("黑体",9,0,3,134,False) '文本字体
BindingText92.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText92.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText92.Style.Padding.All=0.5 '单元格文本内距
BindingText92.Style.CharSpacing =0 '字符间距为毫米
BindingText92.Style.TextIndent =0 '首行缩进
BindingText92.Style.LineSpacing =100 '设置行距
BindingText92.Width=18 '宽度
BindingText92.Height=6 '高度
BindingText92.X=209.25 '水平位置
BindingText92.Y=194 '垂直位置
Dim BindingText95 As New prt.RenderText '定义一个文本对象
'B_T=Tables("材质书").Current("打印时间") '文本内容
B_T=Format(Tables("材质书").Current("打印时间"), "yyyy-MM-dd hh:mm:ss")
BindingText95.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText95.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText95.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText95.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText95.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText95.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText95.Style.Padding.All=0.5 '单元格文本内距
BindingText95.Style.CharSpacing =0 '字符间距为毫米
BindingText95.Style.TextIndent =0 '首行缩进
BindingText95.Style.LineSpacing =100 '设置行距
BindingText95.Width=44 '宽度
BindingText95.Height=6 '高度
BindingText95.X=246.75 '水平位置
BindingText95.Y=194 '垂直位置
Dim BindingText96 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("产品名称") '文本内容
BindingText96.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText96.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText96.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText96.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText96.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText96.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText96.Style.Padding.All=0.5 '单元格文本内距
BindingText96.Style.CharSpacing =0 '字符间距为毫米
BindingText96.Style.TextIndent =0 '首行缩进
BindingText96.Style.LineSpacing =100 '设置行距
BindingText96.Width=61 '宽度
BindingText96.Height=5 '高度
BindingText96.X=42.5 '水平位置
BindingText96.Y=51.5 '垂直位置
Dim BindingText97 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("发货单号") '文本内容
BindingText97.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText97.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText97.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText97.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText97.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText97.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText97.Style.Padding.All=0.5 '单元格文本内距
BindingText97.Style.CharSpacing =0 '字符间距为毫米
BindingText97.Style.TextIndent =0 '首行缩进
BindingText97.Style.LineSpacing =100 '设置行距
BindingText97.Width=55 '宽度
BindingText97.Height=5 '高度
BindingText97.X=43 '水平位置
BindingText97.Y=31 '垂直位置
Dim BindingText98 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("提货单位") '文本内容
BindingText98.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText98.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText98.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText98.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText98.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText98.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText98.Style.Padding.All=0.5 '单元格文本内距
BindingText98.Style.CharSpacing =0 '字符间距为毫米
BindingText98.Style.TextIndent =0 '首行缩进
BindingText98.Style.LineSpacing =100 '设置行距
BindingText98.Width=59 '宽度
BindingText98.Height=5 '高度
BindingText98.X=42.5 '水平位置
BindingText98.Y=37 '垂直位置
Dim BindingText99 As New prt.RenderText '定义一个文本对象
B_T=Tables("材质书").Current("生产许可证") '文本内容
BindingText99.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText99.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText99.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText99.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText99.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText99.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText99.Style.Padding.All=0.5 '单元格文本内距
BindingText99.Style.CharSpacing =0 '字符间距为毫米
BindingText99.Style.TextIndent =0 '首行缩进
BindingText99.Style.LineSpacing =100 '设置行距
BindingText99.Width=41 '宽度
BindingText99.Height=5 '高度
BindingText99.X=223.25 '水平位置
BindingText99.Y=50 '垂直位置
Dim BindingText100 As New prt.RenderText '定义一个文本对象
'B_T=Tables("材质书").Current("有效期至") '文本内容
B_T=format(Tables("材质书").Current("有效期至"),"yyyy年MM月dd日") '文本内容
BindingText100.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText100.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText100.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText100.Style.Font=New System.Drawing.Font("黑体",9,0,3,1,False) '文本字体
BindingText100.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText100.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText100.Style.Padding.All=0.5 '单元格文本内距
BindingText100.Style.CharSpacing =0 '字符间距为毫米
BindingText100.Style.TextIndent =0 '首行缩进
BindingText100.Style.LineSpacing =100 '设置行距
BindingText100.Width=52 '宽度
BindingText100.Height=6 '高度
BindingText100.X=222.75 '水平位置
BindingText100.Y=58 '垂直位置
Dim BindingText101 As New prt.RenderText '定义一个文本对象
BindingText101.DataBinding.DataSource = BindTables("材质书.材质书明细")
B_T="[Fields!磷.Value]" '标签打印
BindingText101.Text=B_T.Replace("//",vbcrlf) '分段文本
BindingText101.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
BindingText101.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
BindingText101.Style.Font=New System.Drawing.Font("黑体",8,0,3,1,False) '文本字体
BindingText101.Style.BackColor=Color.FromKnownColor(164) '背景颜色
BindingText101.Style.TextColor=Color.FromKnownColor(35) '字体颜色
BindingText101.Style.Padding.All=0.5 '单元格文本内距
BindingText101.Style.CharSpacing =0 '字符间距为毫米
BindingText101.Style.TextIndent =0 '首行缩进
BindingText101.Style.LineSpacing =100 '设置行距
BindingText101.Width=10 '宽度
BindingText101.Height=6 '高度
Dim Cn_BindingText101 As New prt.RenderArea '定义一个字段列的自带容器
Cn_BindingText101.Height="Auto"'高度
Cn_BindingText101.Width="Auto"'高度
Cn_BindingText101.X=109.5 '水平位置
Cn_BindingText101.Y=79.75 '垂直位置
Cn_BindingText101.Children.Add(BindingText101) '将字段加入到报表
Dim Picture2 As New prt.RenderImage '定义一个图片对象
Picture2.Image = GetImage("D:\管理系统\Images\有产品质量章.png") '图片路径
Picture2.X=246.75 '水平位置
Picture2.Y=150.5 '垂直位置
Picture2.Width=40 '宽度
Picture2.Height=40 '高度
Picture2.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Picture2.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Picture2.Style.ImageAlign.KeepAspectRatio =True '取消保持原有比例
Dim Picture3 As New prt.RenderImage '定义一个图片对象
Picture3.Image = GetImage("D:\管理系统\Images\agjt.jpg") '图片路径
Picture3.X=7 '水平位置
Picture3.Y=13 '垂直位置
Picture3.Width=14 '宽度
Picture3.Height=16 '高度
Picture3.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Picture3.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Picture3.Style.ImageAlign.KeepAspectRatio =False '取消保持原有比例
Dim Picture6 As New prt.RenderImage '定义一个图片对象
Picture6.Image = GetImage("D:\管理系统\Images\scsk.jpg") '图片路径
Picture6.X=198.75 '水平位置
Picture6.Y=10 '垂直位置
Picture6.Width=17 '宽度
Picture6.Height=17 '高度
Picture6.Style.TextAlignHorz=prt.AlignHorzEnum.Left '文本对齐,水平
Picture6.Style.TextAlignVert=prt.AlignVertEnum.Top '文本对齐,垂直
Picture6.Style.ImageAlign.KeepAspectRatio =False '取消保持原有比例
Dim LineLine2 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line2 As New prt.RenderLine(224.25,34,286.25,34, LineLine2) '定义一个线段对象
Dim LineLine3 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line3 As New prt.RenderLine(3.75,77.5,287.75,77.5, LineLine3) '定义一个线段对象
Dim LineLine10 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line10 As New prt.RenderLine(288.25,153.5,288.25,193.5, LineLine10) '定义一个线段对象
Dim LineLine11 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line11 As New prt.RenderLine(6.75,154,288.75,154, LineLine11) '定义一个线段对象
Dim LineLine12 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line12 As New prt.RenderLine(6.25,193,288.25,193, LineLine12) '定义一个线段对象
Dim LineLine13 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line13 As New prt.RenderLine(247.25,154.5,247.25,192.5, LineLine13) '定义一个线段对象
Dim LineLine14 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line14 As New prt.RenderLine(6.75,154,6.75,193, LineLine14) '定义一个线段对象
Dim LineLine15 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line15 As New prt.RenderLine(42.25,62.5,172.25,62.5, LineLine15) '定义一个线段对象
Dim LineLine16 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line16 As New prt.RenderLine(42.25,56.25,173.25,56.25, LineLine16) '定义一个线段对象
Dim LineLine17 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line17 As New prt.RenderLine(42.5,50,172.5,50, LineLine17) '定义一个线段对象
Dim LineLine18 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line18 As New prt.RenderLine(43,41.75,173,41.75, LineLine18) '定义一个线段对象
Dim LineLine19 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line19 As New prt.RenderLine(43,35.5,173,35.5, LineLine19) '定义一个线段对象
Dim LineLine20 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line20 As New prt.RenderLine(224,39.75,287,39.75, LineLine20) '定义一个线段对象
Dim LineLine21 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line21 As New prt.RenderLine(223.25,46.25,286.25,46.25, LineLine21) '定义一个线段对象
Dim LineLine22 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line22 As New prt.RenderLine(223.5,54.75,287.5,54.75, LineLine22) '定义一个线段对象
Dim LineLine23 As New prt.LineDef(0.2,Color.FromKnownColor(35),DashStyle.Solid)
Dim Line23 As New prt.RenderLine(223.25,63,287.25,63, LineLine23) '定义一个线段对象
Doc.Body.Children.Add(Text48) '将文本加入到报表
Doc.Body.Children.Add(Text60) '将文本加入到报表
Doc.Body.Children.Add(BindingText91) '将字段加入到报表
Doc.Body.Children.Add(BindingText96) '将字段加入到报表
Doc.Body.Children.Add(BindingText97) '将字段加入到报表
Doc.Body.Children.Add(BindingText98) '将字段加入到报表
Doc.Body.Children.Add(BindingText99) '将字段加入到报表
Doc.Body.Children.Add(BindingText100) '将字段加入到报表
Doc.Body.Children.Add(Picture2) '将图片加入到报表
Doc.Body.Children.Add(Picture3) '将图片加入到报表
Doc.Body.Children.Add(Text0) '将文本加入到报表
Doc.Body.Children.Add(Text8) '将文本加入到报表
Doc.Body.Children.Add(Text9) '将文本加入到报表
Doc.Body.Children.Add(Text10) '将文本加入到报表
Doc.Body.Children.Add(Text11) '将文本加入到报表
Doc.Body.Children.Add(Text12) '将文本加入到报表
Doc.Body.Children.Add(Text13) '将文本加入到报表
Doc.Body.Children.Add(Text14) '将文本加入到报表
Doc.Body.Children.Add(Text15) '将文本加入到报表
Doc.Body.Children.Add(Text17) '将文本加入到报表
Doc.Body.Children.Add(Text18) '将文本加入到报表
Doc.Body.Children.Add(Text19) '将文本加入到报表
Doc.Body.Children.Add(Text20) '将文本加入到报表
Doc.Body.Children.Add(Text21) '将文本加入到报表
Doc.Body.Children.Add(Text22) '将文本加入到报表
Doc.Body.Children.Add(Text23) '将文本加入到报表
Doc.Body.Children.Add(Text24) '将文本加入到报表
Doc.Body.Children.Add(Text25) '将文本加入到报表
Doc.Body.Children.Add(Text26) '将文本加入到报表
Doc.Body.Children.Add(Text27) '将文本加入到报表
Doc.Body.Children.Add(Text28) '将文本加入到报表
Doc.Body.Children.Add(Text29) '将文本加入到报表
Doc.Body.Children.Add(Text30) '将文本加入到报表
Doc.Body.Children.Add(Text31) '将文本加入到报表
Doc.Body.Children.Add(Text33) '将文本加入到报表
Doc.Body.Children.Add(Text34) '将文本加入到报表
Doc.Body.Children.Add(Text35) '将文本加入到报表
Doc.Body.Children.Add(Text38) '将文本加入到报表
Doc.Body.Children.Add(Text39) '将文本加入到报表
Doc.Body.Children.Add(Text40) '将文本加入到报表
Doc.Body.Children.Add(Text41) '将文本加入到报表
Doc.Body.Children.Add(Text42) '将文本加入到报表
Doc.Body.Children.Add(Text44) '将文本加入到报表
Doc.Body.Children.Add(Text45) '将文本加入到报表
Doc.Body.Children.Add(Text46) '将文本加入到报表
Doc.Body.Children.Add(Text47) '将文本加入到报表
Doc.Body.Children.Add(Text49) '将文本加入到报表
Doc.Body.Children.Add(Text50) '将文本加入到报表
Doc.Body.Children.Add(Text51) '将文本加入到报表
Doc.Body.Children.Add(Text52) '将文本加入到报表
Doc.Body.Children.Add(Text53) '将文本加入到报表
Doc.Body.Children.Add(Text57) '将文本加入到报表
Doc.Body.Children.Add(Text58) '将文本加入到报表
Doc.Body.Children.Add(Text59) '将文本加入到报表
Doc.Body.Children.Add(BindingText31) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText49) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText50) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText51) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText52) '将字段加入到报表
Doc.Body.Children.Add(BindingText54) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText75) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText76) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText77) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText78) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText79) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText80) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText81) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText82) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText83) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText84) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText85) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText86) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText87) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText88) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText89) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText90) '将字段加入到报表
Doc.Body.Children.Add(BindingText92) '将字段加入到报表
Doc.Body.Children.Add(Cn_BindingText101) '将字段加入到报表
Doc.Body.Children.Add(Picture6) '将图片加入到报表
Doc.Body.Children.Add(Line2) '将线条加入到报表
Doc.Body.Children.Add(Line3) '将线条加入到报表
Doc.Body.Children.Add(Line10) '将线条加入到报表
Doc.Body.Children.Add(Line12) '将线条加入到报表
Doc.Body.Children.Add(Line13) '将线条加入到报表
Doc.Body.Children.Add(Line14) '将线条加入到报表
Doc.Body.Children.Add(Line15) '将线条加入到报表
Doc.Body.Children.Add(Line16) '将线条加入到报表
Doc.Body.Children.Add(Line17) '将线条加入到报表
Doc.Body.Children.Add(Line18) '将线条加入到报表
Doc.Body.Children.Add(Line19) '将线条加入到报表
Doc.Body.Children.Add(Line20) '将线条加入到报表
Doc.Body.Children.Add(Line21) '将线条加入到报表
Doc.Body.Children.Add(Line22) '将线条加入到报表
Doc.Body.Children.Add(Line23) '将线条加入到报表
Doc.Body.Children.Add(Text37) '将文本加入到报表
Doc.Body.Children.Add(BindingText95) '将字段加入到报表
Doc.Body.Children.Add(Line11) '将线条加入到报表
doc.Preview() '预览
[此贴子已经被作者于2016/10/28 13:36:53编辑过]
加好友 
发短信
Post By：2016/10/28 13:34:00 [只看该作者]
