老师帮忙看一下:

出库时如果是第一次领取,则打印图片.现在的问题是,出库超过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报表:

但是别人帮你做也是下策,你需求稍有改变,你又不会了.  就会成为无穷无尽的死循环.

所以,还是先按部就班学习吧.