主题：图片动态打印问题，求助。

 测试了一下，你合并0.0单元格的时候，需要指定一下填充模式

'--- 定义参数
Dim mypath As String =args(0)
Dim xmBH As String = args(1)
Dim xmName As String = args(2)
Dim xmImgName As String = args(3)
Dim xmImgBh As String = args(4)
Dim ImgSj As String = args(5)
Dim ImgSh As String = args(6)
Dim ImgShrq As String = args(7)
Dim Cpsm As String = args(8)
'---开始制表
Dim Doc As new PrintDoc
Doc.PageSetting.TopMargin = 10
Doc.PageSetting.BottomMargin = 10
Doc.PageSetting.LeftMargin = 10
Doc.PageSetting.RightMargin = 10
Doc.PageSetting.Landscape = True
'---定义图纸
Dim img As new prt.RenderImage
img.Image = Getimage(mypath)
'---绘制表格
Dim rt As new prt.RenderTable
rt.Rows.Count = 10
rt.Cols.Count  = 3
rt.Height = 10 * 20
rt.Width = "Parent.width"
rt.Cols(0).Width = 80%
rt.Cols(1).Width = 7%
rt.Cols(2).Width = 13%
rt.Style.GridLines.all = new prt.LineDef
rt.Style.TextAlignHorz=prt.AlignHorzEnum.Center
rt.Style.TextAlignVert = prt.AlignVertEnum.Center
rt.Style.Font = new font("微软雅黑",11)
rt.Cells(0,0).SpanRows = 10
rt.Cells(0,0).VertSplitBehavior = prt.CellSplitBehaviorEnum.cut
rt.Cells(0,1).SpanCols = 2
rt.Cells(0,0).RenderObject = img
'-- 表格赋值
Dim imglogo As new prt.RenderImage
imglogo.Image = Getimage("Armoita.jpg")
imglogo.Style.Padding.Left = 10
rt.Rows(0).Height = 30
rt.Cells(0,1).RenderObject = imglogo
For n As Integer = 1 To 4
    rt.Rows(n).Height = 11
    rt.Rows(n).Style.TextAlignHorz = prt.AlignHorzEnum.Left
Next
For n As Integer = 5 To 8
    rt.Rows(n).Height = 9
Next
rt.Cells(1,1).SpanCols = 2
rt.Cells(1,1).text = "  项目编号:" & xmBh
rt.Cells(2,1).SpanCols = 2
rt.Cells(2,1).text = "  项目名称:" & xmName
rt.Cells(3,1).SpanCols = 2
rt.Cells(3,1).text = "  图纸名称:" & xmImgName.Replace(chr(10),"")
rt.Cells(4,1).SpanCols = 2
rt.Cells(4,1).text = "  图纸编号:" & xmImgBh
rt.Cells(5,1).text = "设计"
rt.Cells(5,2).text = ImgSj
rt.Cells(6,1).text = "审核"
rt.Cells(6,2).text = ImgSh
rt.Cells(7,1).text = "日期"
rt.Cells(7,2).text = ImgShrq
rt.Cells(8,1).text = "图号"
rt.Cells(8,2).text = xmImgBh
rt.Cells(9,1).SpanCols = 2
rt.Cells(9,1).text = " 产品说明:" & chr(10) & " " & Cpsm
rt.Cells(9,1).Style.TextAlignHorz = prt.AlignHorzEnum.Left
rt.Cells(9,1).Style.TextAlignVert=prt.AlignVertEnum.Top
Doc.Body.Children.Add(rt)
Doc.Preview

http://www.foxtable.com/help/topics/2050.htm

一般都指定一下吧，因为有遇到跨页的情况；文本视情况而定，如果是图片的话，一定要指定。

先用messagebox调试，然后，部分注释代码调试，慢慢就知道哪里错了，再查原因。