EXCEL中根据内容自动设置打印区域【绝对高手进】
发布网友
发布时间：2022-04-22 05:34
共5个回答
热心网友
时间：2023-09-26 18:37
打开编辑好的Excel文档，选中想要打印的区域，如图所示（阴影图层部分为所要打印的区域）。
点击页面布局选项卡，选择打印区域选项， 点击设置打印区域子选项，这时候就成功设置了打印区域。
在设置好打印区域后，需要对选中的打印区域的输出效果稍作调整，以符合输出需求。首先按下CTRL+P， 点击预览选项（红色笔标注）。
在弹出的先窗口中点击页面设置， 可以看到（如下图）1-页面，2-页边距，3-页眉/页脚，4-工作表四个选项卡，它们分别依次负责调整页面布局，调整页边距，添加页眉和页脚，以及工作表打印输出的一些高级选项（工作表选项新手很少使用），再熟悉了整个简单的页面设置后读者可以自行尝试对每一个选项进行亲自操作。
上述调整完成后，点击确定，输出到打印机即可 。
热心网友
时间：2023-09-26 18:37
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Or Target.Address = "$K$2" Then
Dim i
With ThisWorkbook.Sheets("Staves")
For i = 11 To 790
If .Cells(i, 1).Value = "" Then
Exit For
End If
Next
.PageSetup.PrintArea = "$A$1:$K$" & i - 1
End With
End If
End Sub
这样你该J2，K2，点打印预览就可以打印了
热心网友
时间：2023-09-26 18:37
第一：先做日期筛选，我喜欢用VBA完成
第二：设置打印区，因为你有格线，所在会打印空页，这个也只能用VBA完成的
最重要的是我现在没时间给你做这个，希望有时间的人帮他解决下。
你可以分开问。先解决第一，再解决第二。这样解决的更快点。
热心网友
时间：2023-09-26 18:38
选择A1→页面设置→打印区域→设置打印区域
打开公式→名称管理器→选择Print_Area，输入公式：“=OFFSET(sheet1!$A$1,,,COUNTA(sheet1!$A:$A)+8,COUNTA(sheet1!$9:$9))”
公式中COUNTA(sheet1!$A:$A)计算行数+8是你前面空的8行，COUNTA(sheet1!$9:$9)计算列数
看看打印预览
热心网友
时间：2023-09-26 18:39
