主题：[求助]插入专业报表的问题

'''
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

没人知道吗？

前辈们去哪了？提前过国庆了吗

上传例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目12.table

我在两台win7系统的机子测试都是三页呀！按你这样说设置了大字体，页面也应跟着大的吧？开发的系统的字体是设置好的，不可能因为用户调整了操作系统的字体等dpi的设置就不能使用开发的系统吧？

呜呜呜.......我的和你的显示不一样呀

此主题相关图片如下：qq截图20130924002929.png

不插入专业报表是2页和xp系统下的打印效果是一样的，为什么插入专业报表后就不行了？那里的设置的问题？

可以通过qq的远程协助吗

哦，谢谢