主题：[求助]请问如何整页打印关联表图片列的图片

老师帮忙看一下:

出库时如果是第一次领取,则打印图片.现在的问题是,出库超过2行后,只重复打印第一行的图片

For Each r As Row In Tables("一类出库").Rows

    Dim d As String = r("领取单位")

    Dim p As String = r("批号")

    

    Dim drs As List(Of DataRow)

    drs =  DataTables("一类出库").Select("领取单位= '"& d &"' And 批号 = '"& p &"'")

    Dim s As Integer = drs.count

    If s =1 Then

        

        Dim Bookp As New XLS.Book(ProjectPath & "Attachments\一类批签发.xls") '打开模板

        Dim filep As String = ProjectPath & "Reports\一类批签发.xls"

        Dim Sheetp As XLS.Sheet = Bookp.Sheets(0)

        Bookp.Build() '生成细节区

        Bookp.Save(filep) '保存工作簿        

        Dim Appp As New MSExcel.Application

        Dim Wbp As MSExcel.WorkBook = Appp.WorkBooks.Open(filep)

        Dim Wsp As MSExcel.WorkSheet = Wbp.WorkSheets(1)

        With Wsp.PageSetup

            .PaperSize = MSExcel.XlPaperSize.xlPaperA4   '纸张大小

            .CenterHorizontally = True   '页面水平居中

            .CenterVertically = True '页面垂直居中

            .Zoom = False '以下设置将缩印在一页内

            .FitToPagesWide = 1  '按照1页的宽度打印

            .FitToPagesTall = 1  '按照1页的高度打印

        End With

        Wsp.PrintOut

        wbp.save

        wbp.close

        Appp.Quit

    End If

Next

这是excel报表: