以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  小数位数打印显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92194)
--  作者：weijun
--  发布时间：2016/10/28 13:34:00
--  小数位数打印显示

小数位数调到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编辑过]
--  作者：weijun
--  发布时间：2016/10/28 13:36:00
--  
报表要设置小数位数吗？
--  作者：有点蓝
--  发布时间：2016/10/28 14:24:00
--  
参考：http://www.foxtable.com/webhelp/scr/0361.htm
--  作者：weijun
--  发布时间：2016/10/28 14:45:00
--  
B_T="<Format[Fields!碳.Value,"#0.00"]>" \'标签打印
这样吗？
--  作者：有点蓝
--  发布时间：2016/10/28 14:57:00
--  
B_T="[format(Fields!碳.Value,""#0.00"")]"