主题：关于打印出现空格行的问题

 这个问题，你已经解决

Select e.Book.TempLate
    Case "订单明细"
        Dim str As String
        Dim i As Integer = 1
        Dim j As Integer
        Dim Sheet As XLS.Sheet = e.Book.Sheets(0) 
        str = Sheet(0,1).Value
        i = 1
        Do While i < = Sheet.Rows.Count -1
            If  Sheet(i,1).Value= str Then
                Sheet(i,1).Value = ""
            Else
                str = Sheet(i,1).Value
            End If
            i = i + 1
        Loop       
End Select