excel表格怎么分两边打印

1.EXCEL里头怎么把两页的两张表打印成一张表而已是左右两边

用EXCLE的照相功能，或者用VBA集成代码如下，看你自己的功力了Dim myMultiAreaRange As RangeSub hebin()Dim rng1 As Range, rng2 As Range, myMultiAreaRange As RangeDim rng3 As RangeDim rng4 As RangeDim rng5 As RangeDim rng6 As RangeDim rng7 As RangeDim rng8 As RangeDim rng9 As RangeDim rng10 As RangeDim rng11 As RangeDim rng12 As RangeDim rng13 As RangeDim rng14 As RangeDim rng15 As RangeWorksheets（"原表"）。

ActivateSet rng1 = Range("A6:O11")Set rng2 = Range("T6:T9")Set rng3 = Range("C4:O4")Set rng4 = Range("S4:T4")Set rng5 = Range("B12:B12")Set rng6 = Range("D12:D12")Set rng7 = Range("F12:F12")Set rng8 = Range("H12:H12")Set rng9 = Range("J12:J12")Set rng10 = Range("L12:L12")Set rng11 = Range("N12:N12")Set rng12 = Range("J13:N14")Set rng13 = Range("R13:R14")Set rng14 = Range("T13:T14")Set rng15 = Range("S5:T5")Set myMultiAreaRange = Union(rng1, rng2, rng3, rng4, rng5, rng6, rng7, rng8, rng9, rng10, rng11, rng12, rng13, rng14, rng15) myMultiAreaRange。 SelectEnd SubSub dayin() myMultiAreaRange。

Select ActiveSheet。PageSetup。

PrintArea = myMultiAreaRange ActiveWindow。SelectedSheets。

PrintOut Copies:=1End Sub。