正文

掌握Excel2007打印奇偶页技巧，轻松宏制作打印设置攻略

/0 浏览量
0331

在Excel 2007中，打印功能非常强大，可以满足各种打印需求。其中，打印奇偶页是一个常用的技巧，而通过宏制作打印设置则可以让这个过程更加自动化。下面，我将详细介绍这两种技巧。

一、打印奇偶页

在Excel 2007中，打印奇偶页非常简单，以下是具体步骤：

  1. 打开Excel 2007文件，点击“文件”菜单，选择“打印”。
  2. 在弹出的“打印”对话框中，找到“页面范围”选项，勾选“奇数页”或“偶数页”。
  3. 点击“打印”按钮，即可打印奇数页或偶数页。

1.1 打印奇数页

如果你想打印工作表的奇数页，可以按照以下步骤操作：

  1. 打开Excel 2007文件，点击“文件”菜单，选择“打印”。
  2. 在弹出的“打印”对话框中，找到“页面范围”选项，勾选“奇数页”。
  3. 点击“打印”按钮，即可打印工作表的奇数页。

1.2 打印偶数页

如果你想打印工作表的偶数页，可以按照以下步骤操作：

  1. 打开Excel 2007文件，点击“文件”菜单，选择“打印”。
  2. 在弹出的“打印”对话框中，找到“页面范围”选项，勾选“偶数页”。
  3. 点击“打印”按钮，即可打印工作表的偶数页。

二、宏制作打印设置

通过宏制作打印设置，你可以将打印设置保存下来，方便下次使用。以下是具体步骤：

  1. 打开Excel 2007文件，点击“开发工具”选项卡（如果未显示，请先通过“文件”菜单中的“选项”选项打开“自定义功能区”，勾选“开发工具”复选框）。
  2. 点击“宏”按钮，选择“创建”。
  3. 在弹出的“宏”对话框中，输入宏名称，例如“打印设置”。
  4. 在“宏位置”下拉菜单中选择“Normal”。
  5. 点击“确定”按钮，进入VBA编辑器。
  6. 在VBA编辑器中，输入以下代码：

”`vba Sub 打印设置()

Dim ws As Worksheet
Dim rng As Range
Dim prn As Printer

Set ws = ActiveSheet
Set rng = ws.UsedRange
Set prn = GetActivePrinter

With prn
    .PrintArea = rng.Address
    .PrintRange = "OddPages"
    .PrintToFile = False
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    .FromWhere = xlPrintActiveSheet
    .ToWhere = xlPrintAllSheets
    .Preview = True
    .Zoom = 100
    .PrintInfo = xlPrintInfoNone
    .ActivePrinter = prn.PrinterName
    .PrintToFile = False
    .DocName = ws.Name
    .PromptForChanges = False
    .RangeToPrint = ws.UsedRange.Address
    .FromPage = 1
    .ToPage = ws.PrintRange
    .Copies = 1
    .Collate = True
    .Orientation = xlLandscape
    .Dpi = 300
    .Quality = xlQualityStandard
    .Color = xlColor
    .ShrinkToFit = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
-- 展开阅读全文 --