有没有高手能解决呀？

如果能這樣就好了,建議狐爸爸實現它:

Dim doc As PrintDoc = Forms("XXX").Controls("Table1").GernatePrintDoc()

doc.Preview()

能不能解决打印的问题呀？

贺老师，你不要当作没有看见呀。

他在忙着准备今天更新呢！

可否直接使用菜单的打印表功能？

If FileSys.FileExists("c:\\reports\\test.xls") Then
    FileSys.DeleteFile("c:\\reports\\test.xls")
End If
Dim tbl As Table =Tables(Forms("窗口1").name & "_table1")
Dim hdr As Integer = tbl.HeaderRows \'获得表头的层数
Dim cnt,cnt2 As Integer
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet) \'生成表头
For c As Integer = 0 To tbl.Cols.Count() - 1
    If tbl.Cols(c).Visible Then
        For r As Integer = 0 To tbl.Rows.Count(True) - 1
            sheet(r + hdr,cnt).value = tbl(r,c,True)
        Next
        cnt = cnt + 1
    End If
Next
Book.Save("c:\\reports\\test.xls")
cnt = 0

For r0 As Integer = 1 To tbl.Rows.Count(True)
    cnt = r0 -cnt2
    output.show(r0 & " = cnt: " & cnt & "  " &   cnt2 & "  " &  sheet(cnt,0).value)
    If right(sheet(cnt,0).value,2) <> "小计" Then
        Sheet.Rows.RemoveAt(cnt)
        cnt2 = cnt2 + 1
    Else
    End If
Next

Book.Save("c:\\reports\\test2.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test2.xls"
Proc.Start()