主题：打印时合并

 也行，你喜欢，反正打印都可以用vba代码控制。

还有一种方法，就是，你可以把两个表保存成图片，然后打印这两个图片，用专业报表也行，直接在excel插入图片打印也行

 

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\test.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("sheet1") '指定要复制的工作表
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("sheet2")

Ws1.UsedRange.Copy
ClipBoard.GetImage.save("d:\sheet1.jpg")
Ws2.UsedRange.Copy
ClipBoard.GetImage.save("d:\sheet2.jpg")

App.Quit

将EXCEL报表插入到WORD中可能更好点，应该如何做呢？

 不行，只有上面的方法。