Question

我有一本工作簿，该工作簿总是包含约3页的信息，但每页只有4列。为了节省打印，我想将4列的第二页打印到4列的第一页上，并用1列的“空白”将两者分开。我什至没有措辞，更不用说使用Google来找到答案的问题了。

这有意义吗？如果您需要进一步说明，请告诉我，但我真的不知道从哪里开始，我很高兴能找到正确方向的指点。

谢谢

Answer 1

这是使打印作业正常工作的最完整但最简化的版本。这是一个相当简单的代码，因为它希望数据位于A：D列和Rows 1:80中，但是可以针对更复杂的需求进行定制。

它将创建一个Temp工作表，复制数据，打印然后删除Temp工作表。

Sub Print_Test()

With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "Temp"
        Set tempsh = Sheets("Temp")
End With

Sheets("Sheet1").Range("A1:D40").Copy Destination:=tempsh.Range("A1")
Sheets("Sheet1").Range("A41:D80").Copy Destination:=tempsh.Range("F1")

With Application
 With .ActiveSheet
 With .PageSetup
 End With
 End With
  .Dialogs(xlDialogPrint).Show
End With


Application.DisplayAlerts = False
 Worksheets("Temp").Delete
Application.DisplayAlerts = True
End Sub

Excel宏在一页上打印两页

1 个答案: