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

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