[已解决]VBA批量打印人员信息表

yjwdjfqb · 发表于 2014-4-11 22:33

VBA批量打印人员信息表

Sub 批量打印人员信息表()

Dim rng As Range

On Error Resume Next
Set rng = Application.InputBox("请选择需要打印的人员" & vbCrLf & vbCrLf & "可按CTRL键选择不连续的人员", "提示", , Type:=8)
If rng Is Nothing Then Exit Sub

If MsgBox("将有 i 条数据被打印，请确定是否打印!", vbYesNo + vbInformation, "系统提示") = vbNo Then Exit Sub

MsgBox "操作完毕！", vbInformation + vbOKOnly, "提示"

End Sub

请老师们帮帮忙，谢谢大家了!

VBA批量打印人员信息表.rar (24.4 KB, 下载次数: 32)

yjwdjfqb · 发表于 2014-4-12 08:58

请大师们帮帮忙，谢谢大家了！

dsmch · 发表于 2014-4-12 09:13

模板打印本身没有一点技术含量，直接填充数据打印就行了，楼主的要求倒像穿拖鞋配正装

yjwdjfqb · 发表于 2014-4-12 09:16

dsmch 发表于 2014-4-12 09:13
模板打印本身没有一点技术含量，直接填充数据打印就行了，楼主的要求倒像穿拖鞋配正装

老师你好，我是想，在不填充信息表的情况下，选中　人员名册　中的人员，就可以批量打印出来，也可以批量打印不连续的人员。

想用VBA来实现，谢谢老师的关注　

dsmch · 发表于 2014-4-12 09:41

家中没有打印机，没测试

Sub 批量打印人员信息表()
Dim rng As Range, c As Range, i&
On Error Resume Next
Set rng = Application.InputBox("请选择需要打印的人员" & vbCrLf & vbCrLf & "可按CTRL键选择不连续的人员", "提示", , Type:=8)
If rng Is Nothing Then Exit Sub
If MsgBox("将有" & rng.Count & "条数据被打印，请确定是否打印!", vbYesNo + vbInformation, "系统提示") = vbNo Then Exit Sub
For i = 2 To Range("c65536").End(xlUp).Row
If Application.Intersect(Cells(i, 3), rng) Is Nothing Then
If c Is Nothing Then Set c = Cells(i, 3) Else Set c = Union(c, Cells(i, 3))
End If
Next
If Not c Is Nothing Then
c.EntireRow.Hidden = True
ActiveSheet.UsedRange.PrintOut '打印
c.EntireRow.Hidden = False
End If
MsgBox "操作完毕！", vbInformation + vbOKOnly, "提示"
End Sub

复制代码

yjwdjfqb · 发表于 2014-4-12 09:58

dsmch 发表于 2014-4-12 09:41
家中没有打印机，没测试

这个也必须加分。

老师我是想要以下这样的效果如图：

VBA批量打印人员信息表－2.rar (24.67 KB, 下载次数: 24)

dsmch · 发表于 2014-4-12 10:33

Sub 批量打印人员信息表()
Dim rng As Range, c As Range
On Error Resume Next
Set rng = Application.InputBox("请选择需要打印的人员" & vbCrLf & vbCrLf & "可按CTRL键选择不连续的人员", "提示", , Type:=8)
If rng Is Nothing Then Exit Sub
If MsgBox("将有" & rng.Count & "条数据被打印，请确定是否打印!", vbYesNo + vbInformation, "系统提示") = vbNo Then Exit Sub
For Each c In rng
With Sheets("信息表")
.[d10] = c
.[g10] = c.Offset(0, 10)
.[e16] = c.Offset(0, 4)
'其他类推
.UsedRange.PrintOut
End With
Next
MsgBox "操作完毕！", vbInformation + vbOKOnly, "提示"
End Sub

复制代码

billyzhang0609 · 发表于 2014-4-12 10:57

这个厉害！

yjwdjfqb · 发表于 2014-4-12 11:58

本帖最后由 yjwdjfqb 于 2014-4-12 11:59 编辑

Sub 批量打印人员信息表()

Dim rng As Range, c As Range

On Error Resume Next

Set rng = Application.InputBox("请选择需要打印的人员" & vbCrLf & vbCrLf & "可按CTRL键选择不连续的人员", "提示", , Type:=8)

If rng Is Nothing Then Exit Sub

If MsgBox("将有" & rng.Count & "条数据被打印，请确定是否打印!", vbYesNo + vbInformation, "系统提示") = vbNo Then Exit Sub

For Each c In rng

With Sheets("Template")

TXTa.Text = c

TXTb.Text = c.offset(0, 3) '向右偏移3格

TXTc.Text = c.offset(0, 5)

TXTd.Text = c.offset(0, 8)

'其他类推

.UsedRange.PrintOut

End With

Next

MsgBox "操作完毕！", vbInformation + vbOKOnly, "提示"

End Sub

复制代码

老师你好，我改成文本框，为什么不行，麻烦帮我看看好吧，

想用文本框来，做批量打印的。麻烦老师了！

VBA批量打印人员信息表－6.rar (22.67 KB, 下载次数: 11)

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

[已解决]VBA批量打印人员信息表

评分

评分

点评