主题：打印时合并

 

不明白你到底想怎样，到底想做什么。

 

你分别打印，行数不同，高度肯定也是不同的啊。

那就做不到。

 

你可以这样：1、先打印第一个报表；2、用3楼代码，把第二个报表拷贝进去（左边留空格），再打印一次

 也行，你喜欢，反正打印都可以用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

 不行，只有上面的方法。