主题：[求助]关于打印对象排版的问题？

此主题相关图片如下：qq截图20140815172658.jpg

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 102 '纸张宽度为100毫米1+32+2+32+2+32+1
doc.PageSetting.Height = 27 '纸张高度为120毫米25+2
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 1 '设置下边距

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
For i As Integer = 0 To 2
    Dim rm As prt.RenderImage '定义一个图片对象
    rm = New prt.RenderImage '创建图片对象
    rm.Width = 32 '设置尺寸
    rm.Height = 25
    rm.Style.ImageAlign.KeepAspectRatio = False
    rm.Style.Borders.All = New prt.Linedef(1, Color.Red)
    rm.image =GetImage("1.jpg") '设置图片对象的内容
    rm.Style.Padding.left=0
    rm.Style.Spacing.right =1
    rm.Style.Spacing.left =1
    doc.Body.Children.Add(rm)
Next
doc.Preview() '预览

预览出来的始终右边要宽些

目标是1+32+2+32+2+32+1 mm

32是对象尺寸

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.Width = 102 '纸张宽度为100毫米1+32+2+32+2+32+1
doc.PageSetting.Height = 27 '纸张高度为120毫米25+2
Doc.PageSetting.LeftMargin = 1 '设置左边距
Doc.PageSetting.RightMargin = 1 '设置右边距
Doc.PageSetting.TopMargin = 1 '设置上边距
Doc.PageSetting.BottomMargin = 1 '设置下边距

doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight '设置排列方式
Dim rm As prt.RenderImage '定义一个图片对象
For i As Integer = 0 To 1
   
    rm = New prt.RenderImage '创建图片对象
    rm.Width = 34 '设置尺寸
    rm.Height = 25
    rm.Style.ImageAlign.KeepAspectRatio = False
    rm.Style.Borders.All = New prt.Linedef(1, Color.Red)
    rm.image =GetImage("1.jpg") '设置图片对象的内容
    rm.Style.Padding.left=0
    rm.Style.Spacing.right = 2
    rm.Style.Spacing.left = 0
    doc.Body.Children.Add(rm)
Next

rm = New prt.RenderImage '创建图片对象
rm.Width = 32 '设置尺寸
rm.Height = 25
rm.Style.ImageAlign.KeepAspectRatio = False
rm.Style.Borders.All = New prt.Linedef(1, Color.Red)
rm.image =GetImage("1.jpg") '设置图片对象的内容
rm.Style.Padding.left=0
rm.Style.Spacing.right = 0
rm.Style.Spacing.left = 0
doc.Body.Children.Add(rm)

doc.Preview() '预览

谢谢大神  问题完美解决