在Excel中设置打印区域可通过手动操作或VBA宏实现，具体方法如下：

一、手动设置打印区域（推荐）

1. 选择区域

   选中需打印的单元格区域，可通过拖动鼠标或按住Shift键选择连续/非连续区域。

2. 进入打印区域设置

   点击顶部「页面布局」选项卡，选择「打印区域」→「设置打印区域」。

3. 调整分页与标题

   • 使用「分页预览」（视图→分页预览）调整分页位置，拖动蓝色虚线至实线边界。

   • 若需重复表头，点击「打印标题」设置重复行/列。

4. 打印预览与调整

   打印前通过「打印预览」检查效果，可调整页边距、纸张方向等设置。

二、使用VBA批量设置打印区域

1. 启用宏功能

   文件→选项→信任中心→宏设置→启用所有宏（仅限信任文件）。

2. 基础代码

   Sub SetPrintAreas()
       Dim ws As Worksheet
       For Each ws In ThisWorkbook.Worksheets
           If ws.Visible = xlSheetVisible Then
               Dim lastRow As Long, lastCol As Long
               lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
               lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
               ws.PageSetup.PrintArea = ws.Range("A1:" & lastRow & "," & "1:" & lastCol).Address
           End If
       Next ws
   End Sub
   

   该代码可自动遍历所有可见工作表，设置打印区域为整个数据范围。

3. 进阶优化

   • 添加页眉：结合「打印标题」设置表头重复。

   • 自定义区域：通过Ctrl键选择多个不连续区域。

三、注意事项

• 分页调整 ：打印预览中拖动虚线可灵活调整分页位置。

• 安全性 ：使用宏时需注意文件来源可靠性，避免潜在风险。

• 预览验证 ：打印前务必通过预览检查布局和内容完整性。