此主题相关图片如下：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() \'预览

谢谢大神  问题完美解决