Excel 双面打印页码对称排列方法

Excel技巧

2023-12-15 05:05:34

在 Excel 中对称打印双面文档页码

简介

在打印双面文档时，页码的对称排列可以显著提升阅读体验和专业性。在 Excel 中，通过设置双面打印和自定义页码格式，我们可以轻松实现奇数页码位于左下角，偶数页码位于右下角的对称排列。

设置双面打印

打开 Excel 文件，转到「文件」>「打印」。
在「打印机」选项卡下，勾选「双面打印」复选框。
选择正确的纸张大小和打印方向。

自定义页码格式

转到「插入」>「页眉和页脚」。
在「页眉和页脚」选项卡上，选择「页码」>「设置页码格式」。
在「页码格式」对话框中，选择「起始页码」为「1」，「格式」为「001, 002, 003, ...」。
分别点击「奇数页页眉」和「偶数页页脚」，输入页码格式。例如：「&R001」代表奇数页页码位于右下角，而「&L002」代表偶数页页码位于左下角。

预览和打印

点击「预览」按钮查看双面打印效果，确保页码对称排列。
确认无误后，点击「打印」按钮即可打印双面文档。

代码实现

使用 VBA 代码，我们可以更灵活地设置双面打印和页码格式：

Sub PrintSymmetricDoubleSided()

    Dim wks As Worksheet
    Set wks = Worksheets("Sheet1")

    ' 设置双面打印
    With wks.PageSetup
        .PrintArea = "$1:$100" ' 指定打印区域
        .Orientation = xlPortrait ' 设置方向为纵向
        .Duplex = xlDuplexManual ' 设置双面打印为手动模式
    End With

    ' 设置对称页码
    wks.PageSetup.LeftHeader = "" ' 清空奇数页页眉
    wks.PageSetup.RightHeader = "&R001" ' 设置奇数页页码格式
    wks.PageSetup.LeftFooter = "&L002" ' 设置偶数页页脚格式
    wks.PageSetup.RightFooter = "" ' 清空偶数页页脚

    ' 预览和打印
    wks.PrintPreview
    wks.PrintOut

End Sub