[已解决]求为打印区域添加表格线的代码？

zk888 · 发表于 2010-1-7 11:44

当我点击打印按钮时，为打印区域自动添加表格线，这样的代码如何写啊？打印区域是动态的。

最佳答案

amulee

2010-1-7 11:51

'假设打印区域为A1:B10
Sub Test()
Range("A1:B10").Borders.Color = 1
End Sub

amulee · 发表于 2010-1-7 11:51

'假设打印区域为A1:B10
Sub Test()
Range("A1:B10").Borders.Color = 1
End Sub

tkgg93 · 发表于 2010-1-7 12:03

我感觉应该是打印时，页面设置--打印--网格线那里自动打勾。代码不会写

[此贴子已经被作者于2010-1-7 12:02:57编辑过]

amulee · 发表于 2010-1-7 12:33

QUOTE:

以下是引用tkgg93在2010-1-7 12:03:00的发言：
我感觉应该是打印时，页面设置--打印--网格线那里自动打勾。代码不会写

有道理。
Sub Macro1()
ActiveSheet.PageSetup.PrintGridlines = True
End Sub

tkgg93 · 发表于 2010-1-7 12:45

在楼上的启发下

在thiswookbook里

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintGridlines = True
End Sub

tkgg93 · 发表于 2010-1-7 12:47

点打印预览就可以看到效果

zk888 · 发表于 2010-1-7 20:52

再问一问：添加表格线后运行代码，最后清除单元格内容时，如何同时再清除表格线呢？

amulee · 发表于 2010-1-8 09:03

'假设打印区域为A1:B10
Sub Test()
Range("A1:B10").Borders.ColorIndex = xlNone
End Sub

单车代步 · 发表于 2010-1-8 09:09

QUOTE:

以下是引用tkgg93在2010-1-7 12:45:00的发言：

在楼上的启发下

在thiswookbook里

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintGridlines = True
End Sub

好谦虚

[em01]

		自动登录	找回密码
密码			注册