帮帮，做个批量打印按钮和单页打印按钮

e8828369

大侠们，帮忙做个批量打印按钮和单页打印按钮，谢谢了！在附件“查询打印”表中AA4，AA8两个位置（位置也可以改变）做两个按钮，能实现按要求打印。（学生数可能是一个班约70人，也可能是一个年段1000人）

e8828369

电子表格的密码是123

蓝桥玄霜

鼠标点击AA4或者AA8即可打印。连续打印时要注意暂停。
请见代码。

e8828369

蓝桥玄霜 发表于 2018-1-18 10:15
鼠标点击AA4或者AA8即可打印。连续打印时要注意暂停。
请见代码。

谢谢！代码拷入电子表格后，怎么没反应。要在AA4,AA8做个控件吗？

e8828369

蓝桥玄霜 发表于 2018-1-18 10:15
鼠标点击AA4或者AA8即可打印。连续打印时要注意暂停。
请见代码。

谢谢！代码拷入电子表格后，怎么没反应。要在AA4,AA8做个控件吗？

hzruziniu

e8828369 发表于 2018-1-18 13:07
谢谢！代码拷入电子表格后，怎么没反应。要在AA4,AA8做个控件吗？

请看附件：
帮忙做个批量打印按钮和单页打印按钮.rar (96.48 KB, 下载次数: 52)

2018-1-18 14:54 上传

点击文件名下载附件

看来你是个老师，这一学期将结束，需要打印成绩报告单，
给你设置如下：

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Dim rng As Range, i%
   
3.     If Target.Column = 27 And Target.Row = 4 Then
   
4.         Set rng = Range("a3:y20")
   
5.         If OptionButton1 = True Then
   
6.             rng.PrintPreview
   
7.         Else
   
8.             rng.PrintOut
   
9.         End If
   
10.     End If
    
11.     If Target.Column = 27 And Target.Row = 8 Then
    
12.     For i = Range("ae6") To Range("ae7")
    
13.         Range("ae3") = i
    
14.         Set rng = Range("a3:y20")
    
15.         If OptionButton1 = True Then
    
16.             rng.PrintPreview
    
17.         Else
    
18.             rng.PrintOut
    
19.         End If
    
20.     Next
    
21.     End If
    
22. End Sub

复制代码

说明：
1、通过预览打印选中上方的“预览打印”单选项，如果是直接打印选中上方的“直接打印”单选项。
2、双击AA4单元格进行单张打印。双击AA8单元格从座号AE6开始打印到座号AE7结束进行循环打印。

e8828369

hzruziniu 发表于 2018-1-18 14:54
请看附件：

看来你是个老师，这一学期将结束，需要打印成绩报告单，

谢谢！试了很好用！是的，我是老师。不是我自己用，为了减轻班主任的工作量，我用公式做了这个表格，但我不懂的VBA，所以才求助。谢谢您帮忙！也谢谢3楼！

e8828369

hzruziniu 发表于 2018-1-18 14:54
请看附件：

看来你是个老师，这一学期将结束，需要打印成绩报告单，

你好，试用一段发现有三个问题：1、在批量打印过程中，误按“预览打印”按钮，那么这时要一张一张预览结束后才能作其它事，我想这时能不能设计个按钮可以终止预览过程；2、在批量打印过程中，万一打印出现错误，这时想要终止打印过程，能否也能设计个终止按钮（或两个按钮合二为一）；3、在EXCeL2007版本中经常出现“预览打印”、“直接打印”按钮失效，应该怎么解决？谢谢!