[已解决]求助高人帮忙设计一个查询打印程序

excelers

最佳答案

月排行榜 / 总排行榜

nonfish

2011-11-28 15:53

做了个，看看能行么
数据源区域可以随便增减行（首行字段不要动）

1. Sub 批量打印()
   
2. Dim i, j, Msg
   
3. j = Int(Range("K5"))
   
4. Msg = MsgBox("一共有" & j & "个准考证。是否开始打印？", vbYesNo)
   
5. If Msg = 7 Then
   
6. Exit Sub
   
7. ElseIf Msg = 6 Then
   
8. For i = 1 To j
   
9.   Range("K6").FormulaR1C1 = i
   
10. '  ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
11. Next i
    
12. MsgBox "打印结束。"
    
13. End If
    
14. Range("K6").FormulaR1C1 = 1
    
15. End Sub

复制代码

由于测试，代码里打印功能暂时屏蔽了。
如果要打印，把代码第10行的（'）去掉
[hide] 批量打印.rar (19.28 KB, 下载次数: 58)

2011-11-29 13:54 上传

点击文件名下载附件 [/hide
]

跳转到最佳答案楼层

nonfish

做了个，看看能行么
数据源区域可以随便增减行（首行字段不要动）

1. Sub 批量打印()
   
2. Dim i, j, Msg
   
3. j = Int(Range("K5"))
   
4. Msg = MsgBox("一共有" & j & "个准考证。是否开始打印？", vbYesNo)
   
5. If Msg = 7 Then
   
6. Exit Sub
   
7. ElseIf Msg = 6 Then
   
8. For i = 1 To j
   
9.   Range("K6").FormulaR1C1 = i
   
10. '  ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
11. Next i
    
12. MsgBox "打印结束。"
    
13. End If
    
14. Range("K6").FormulaR1C1 = 1
    
15. End Sub

复制代码

由于测试，代码里打印功能暂时屏蔽了。
如果要打印，把代码第10行的（'）去掉
[hide] 批量打印.rar (19.28 KB, 下载次数: 58)

2011-11-29 13:54 上传

点击文件名下载附件 [/hide
]

tianti

“K”列左边为查询结果打印内容，红底区为查询数据。“

是不是得加上 学号  班号  姓名 教学点 呢？

excelers

tianti 发表于 2011-11-28 16:15
是不是得加上 学号  班号  姓名 教学点 呢？

在打印区有相关内容，单独显示在上面。

excelers

nonfish 发表于 2011-11-29 14:03
做了个，看看能行么
数据源区域可以随便增减行（首行字段不要动）

辛苦您了，基本上可以实现我需要的功能了。您能进一步优化吗：增加三个查询条件输入框，能输入学号、班号、教学点，实现单独打印和批量打印的功能。 或者只增加一个按学号单独查询打印的功能。

nonfish

这个很简单，在你打印模板的学号框里直接输入学号就好了。