主题：打印时合并

用代码：一个EXCEL表中有两张16k的工作表如何在打印时合并打印到一张8k的纸上？

把两个工作表的内容，剪切到一张新的表里面，然后打印新表。

参考代码

 

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")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("sheet3")

Ws1.UsedRange.Copy
ws3.Cells(1,1).Select
ws3.paste
Ws2.UsedRange.Copy
ws3.Cells(1,Ws1.UsedRange.Columns.Count).Select
ws3.paste

'Wb.Save
app.Visible = True
'App.Quit

最难解决的是两表的行数不相同，如表1有35行，表2有50行，合并两表时35行和50行的高度要相同？

不同行数高度肯定不一样,你补充空行为50行再合并呗

打印出来的效果就不一样了？

 

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

 

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

做报表时会习惯将两张A4的小报表合并打印在一张A3纸上，便于保存，平时是将两张A4纸并在一齐进行复印，明不明白？如果加入空行就显得高低不美观了。

那就做不到。

 

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

这样就不如，先设A3纸横向左面打印表1，再用这张A3表右面打印表2。