excel - 格式化页面以分 2 列打印

Question

有谁知道如何在 excel 中移动页面以将电子表格分成两半？

例如，我在电子表格中有 390,000 行。
如果您要使用 12 号字体以纵向格式打印电子表格，则每页大约 44 行，接近 8800 页。

我想把它减半。

我有 3 列。我要做的就是把偶数页带到奇数页，那里有足够的空间。谁能告诉我我能做什么？

Answer 1

当你去打印时，将你的打印机设置设置为“2 UP”或“2 Pages per sheet”。或者尝试双面打印。或两者。我在这里开玩笑，但是打印 4400 页真的比打印 8800 更可取吗？很难想象有人试图对任何一堆进行分类。

Answer 2

试试这个宏（最好在保存文件之后）。

Sub adsagrse()
Dim lRows As Long

'turn off updates to speed up code execution
With application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
End With


lRows = 45

Do While Len(Cells(lRows, 1)) > 0
    Cells(lRows, 1).Resize(44, 3).Copy Cells(lRows, 1).Offset(-44, 4)
    Cells(lRows, 1).Resize(44, 3).ClearContents
    lRows = lRows + 88
llop

ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter 1, ""
ActiveSheet.UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.UsedRange.AutoFilter


With application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .DisplayAlerts = True
End With

End Sub

Answer 3

注意：这取决于打印机的功能，
假设您将在此示例中使用 potrait 打印在 A4 尺寸的纸上
1. 在打印机设置中创建具有 A4 尺寸（高 297 毫米 x 宽 105 毫米）半宽的自定义纸张尺寸
2. 转到excel并照常打印，但选择刚刚创建的新自定义纸张尺寸

在打印时 - 页面设置
3. 将页面大小设置为“A4 半角”
4. 将打印设置为“在 1 页上打印 2 页”
5. 将打印纸输出设置为正常 A4

希望它能在您的打印机上工作