Question

excel如何让某区域可编辑，在预览和打印时自动隐藏

如图：

怎么让D列和F列可编辑，但预览及打印时能自动隐藏

Answer 1

你这样 在要打印的连续区域中间 隐藏部分列的 需求 估计只有使用vba 才能实现了……
你尝试编辑一段儿vba 代码作为一个打印宏吧……打印时 运行这个宏 来打印……
类似：
Sub PRT()
Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Columns("F:F").Select
Selection.EntireColumn.Hidden = True
Range("A1:E4").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.EntireColumn.Hidden = False
End Sub

追问

写这段代码要怎么操作

追答

工具 宏 宏编辑 插入 模块 粘贴到模块中……调试 编译……
然后 在你要打印的时候 运行这个宏……
工具 宏 运行……
可以根据你的实际情况 进行代码的修改 这段儿代码是根据你的图来做的 实际应用 还需修改……

追问

运行这个宏后，怎么返回没运行宏的状态，因为编辑时还要看到被隐藏的列。

追答

朋友 我认为你 似乎没有运行啊 你可以找一个文件尝试一下……
这个是在打印完 又恢复 显示了的……
Sub PRT()
Columns("D:D").Select ‘选择D列
Selection.EntireColumn.Hidden = True ’设置隐藏
Columns("F:F").Select ‘选择F列
Selection.EntireColumn.Hidden = True ’设置隐藏
Range("A1:E4").Select ‘选择A1：E4 这个区域
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$4" ’设置这个区域为打印区域
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ‘打印输出
Selection.EntireColumn.Hidden = False ’取消选择区域的列的隐藏
End Sub

Answer 2

这个打印的时候要专门做一个表，把这个表的有用数据拷贝过去预览打印，通过编写程序可以实现