- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]插入专业报表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40549)
-- 发布时间：2013/9/23 9:29:00
-- [求助]插入专业报表的问题
\'\'\'
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ndoc As New PrintDoc \'定义一个报表
ndoc.PageSetting.TopMargin = 33 \'设置上边距
ndoc.PageSetting.BottomMargin =26 \'设置下边距
Dim idx As Integer = 1
For Each o As object In Doc.Body.Children
ndoc.Body.Children.Add(o.clone)
If idx = 1 Then
Dim rt As New prt.RenderText \'定义一个文本对象
rt.Text ="勘验、检查事项及结果：" + Tables("行政案件").Current("勘验检查笔录_事项及结果") \'设置文本对象的内容
rt.X = 26 \'指定水平位置
rt.y = 245 \'指定垂直位置
rt.Width = 159 \'宽度为40毫米
rt.Height = 192 \'宽度为40毫米
rt.Style.Borders.All = New prt.Linedef(1, Color.Red)
rt.Style.Font = New Font("仿宋_GB2312", 14.25)\'垂直居中
rt.Style.LineSpacing = 220 \'1.5倍行距
ndoc.Body.Children.Add(rt) \'将文本对象加入到报表
End If
idx+=1
Next
ndoc.Preview()
上面是我的定义报表的代码，设置下边距是26毫米，在xp系统里是真正常打印的，可是在win7里显示下边距就不一样了约有36毫米了，为什么会这样？怎么解决？
下面是xp系统显示的图，看红线边框
此主题相关图片如下：qq截图20130923005000.png
下面是win7系统的图
此主题相关图片如下：qq截图20130922193714.png
-- 发布时间：2013/9/23 15:22:00
--
没人知道吗？
-- 发布时间：2013/9/23 19:24:00
--
前辈们去哪了？提前过国庆了吗
-- 发布时间：2013/9/23 19:40:00
--
你这样提问是没有答案的。做个例子上传。
-- 发布时间：2013/9/24 0:52:00
--
上传例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目12.table |
-- 发布时间：2013/9/24 8:44:00
--
你好,我这里测试是正常的,页面也是2页.应该是你系统的问题.设置了大字体,或者DPI设置有问题
-- 发布时间：2013/9/24 9:53:00
--
我在两台win7系统的机子测试都是三页呀！按你这样说设置了大字体，页面也应跟着大的吧？开发的系统的字体是设置好的，不可能因为用户调整了操作系统的字体等dpi的设置就不能使用开发的系统吧？
-- 发布时间：2013/9/24 9:55:00
--
我的也是WIN7 呢,并无你所说的问题啊.
此主题相关图片如下：qq截图20130924095423.png
-- 发布时间：2013/9/24 10:03:00
--
呜呜呜.......我的和你的显示不一样呀
此主题相关图片如下：qq截图20130924002929.png
-- 发布时间：2013/9/24 10:05:00
--
所以说应该是你系统的问题.