求打印代码按钮优化(已解决)

yuanzhuping · 发表于 2007-3-5 23:38

11pEylja.rar (151.37 KB, 下载次数: 16)

如果要隐藏到1002行的话，太慢了，你试试。

其实可以隐藏后重新设置打印区域。

daley · 发表于 2007-3-5 23:56

当点击

“打印预览(ActiveWindow.SelectedSheets.PrintPreview)”

和点击

“打印(ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True)”

按钮时，才执行上面的代码呢?

执行完成后返回NEXT

撤消为在没有隐藏行之前的格式

[此贴子已经被作者于2007-3-6 0:04:55编辑过]

yuanzhuping · 发表于 2007-3-6 00:05

11楼附件中有直接打印的代码，还有取消隐藏的代码

Private Sub CommandButton2_Click()
Dim R, b As Integer
    'R = Sheet1.[b65536].End(xlUp).Row
Application.ScreenUpdating = False '关闭屏幕更新
For b = 4 To 1002
    If Cells(b, 2).Value = "" Then
        Rows(b).EntireRow.Hidden = True
            End If
        Next
    'Sheet1.PrintOut'打印工作表
    'Rows("3:1002" ).Select
    'Selection.EntireRow.Hidden = False'取消隐藏
    Application.ScreenUpdating = True '屏幕更新
End Sub

[此贴子已经被作者于2007-3-6 0:06:42编辑过]

yuanzhuping · 发表于 2007-3-6 00:08

VNWZTknj.rar (151.34 KB, 下载次数: 21)

山菊花 · 发表于 2007-3-14 22:27

使用菜单或工具栏中的打印按钮。

速度不见得好。

WJ7MPCYA.zip (210.11 KB, 下载次数: 38)

daley · 发表于 2007-3-14 23:36

山版主做的代码比较符合我的题意，B4:B1003区域已经解决,但是大家都忽视了A1004:A1012区域的判断。

山菊花 · 发表于 2007-3-15 00:13

真忽视了。

For Each Rng In Sheets("职员资料信息").Range("b4:b1002")
改：
For Each Rng In Sheets("职员资料信息").Range("a4:a1012")
后面一行改为：

Sheets("职员资料信息").Rows("4:1012").Hidden = False

[此贴子已经被作者于2007-3-15 0:16:51编辑过]

daley · 发表于 2007-3-15 00:24

代码正确。

但是为什么清除了B4:B1003区域后，再重新输入时代码会失效?

找到原因：当“身份证号码”列没有输入时预览就会产生错误，为什么？？

[此贴子已经被作者于2007-3-15 0:46:19编辑过]

lm96431 · 发表于 2009-12-27 16:40

学习了，想问一下，楼主的表格是如何制作的？

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

求打印代码按钮优化(已解决)

回复：（daley）求打印代码按钮优化

回复：（daley）忽视了A1004:A1012区域的判断。

学习了，想问一下，楼主的表格是如何制作的？