用表中的整数型变量的值设置打印参数会提示出错。
此主题相关图片如下:a1.gif
'检查当前表单是否设计了打印模板
Dim dr As DataRow = DataTables("Argtb").Find("tbN = '" & Mtb & "'")
If dr IsNot Nothing Then
'设置打印纸张
doc.PageSetting.PaperKind = dr("PaperKind")
doc.PageSetting.Landscape = dr("Landscape") '是否横向打印
'Doc.PageSetting.LeftMargin = dr("PageL") '设置左边距
Doc.PageSetting.LeftMargin = CInt(dr("PageL")) '设置左边距
Doc.PageSetting.RightMargin = CInt(dr("PageR")) '设置右边距
Doc.PageSetting.TopMargin = CInt(dr("PageT")) '设置上边距
Doc.PageSetting.BottomMargin = CInt(dr("PageB")) '设置下边距
Else
MessageBox.Show("当前表单未设计打印模板!","提示")
Return
End If
上面表中提取的数值全部是整数型的,但奇怪的是蓝色的两行代码执行不出错,下面设置页边距的四行不加Cint转换就会出错,是什么原因?谢谢!