格式化页面以2列打印

Question

有没有人知道如何在excel中移动页面基本上将电子表格分成两半？

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

我想减少一半。

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

Answer 1

进行打印时，请将打印机设置设为＆＃34; 2 UP＆＃34;或＆＃34;每张2页＆＃34;。或尝试双面打印。或两者。我在这里开玩笑，但打印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

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

在打印时-页面设置
3。将页面尺寸设置为与“ A4半角宽度”相同
4。将您的打印设置为“在1页上打印2页”
5。将打印纸输出设置为普通A4

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