关于打印的宏命令，求高手

rush1988 · 发表于 2012-6-16 00:50

现在有一份客户信息的汇总表，还有一份单表，要求把汇总表中的客户信息填到单表中，并执行打印。这个宏命令应该怎么处理啊？求高手解答。

AVEL · 发表于 2012-6-16 02:15

Sub l()
Dim arr As Variant
Dim i As Integer
Dim j As Integer
Dim brr()
brr = Array("C3", "F3", "C4", "F4", "H4", "C5", "F5", "C6", "H6", "C7", "H7", "C8", "F8", "C9", "G9", "C10", "C11", "F11", "C12", "H12", "C13", "G13", _
"C14", "G14", "C15", "G15", "C16", "C17", "C18", "C19", "C20", "F20", "C21", "C22", "C23", "F23", "C24", "C25", "G25")
arr = Sheet1.Range("a1").CurrentRegion.Value
For i = 2 To UBound(arr)
For j = 1 To UBound(arr, 2)
Sheet2.Range(brr(j - 1)).Value = arr(i, j)
Next
Sheet2.PrintOut
Next
End Sub

复制代码

AVEL · 发表于 2012-6-16 02:18

EH(AVEL)-上传 12-06-16 02-16.rar (16.92 KB, 下载次数: 30)

rush1988 · 发表于 2012-6-16 23:48

AVEL 发表于 2012-6-16 02:18

亲啊，大神啊。十分感谢啊。

rush1988 · 发表于 2012-6-16 23:51

AVEL 发表于 2012-6-16 02:15

有个麻烦就是一旦开始打印的时候不能够中途停止啊。还有就是能帮忙做一个只填充选中的那一行的宏按钮么？

rush1988 · 发表于 2012-6-17 13:05

AVEL 发表于 2012-6-16 02:18

大神啊？

AVEL · 发表于 2012-6-17 15:39

在数据表双击要打印的数据行就可以打印了

EH(AVEL)-上传 12-06-17 15-38.rar (17.71 KB, 下载次数: 18)

rush1988 · 发表于 2012-6-17 17:41

AVEL 发表于 2012-6-17 15:39
在数据表双击要打印的数据行就可以打印了

亲，怎么做到的呀，看着宏的函数并没有改动，怎么就能达到那个效果了呢？

AVEL · 发表于 2012-6-17 17:55

rush1988 发表于 2012-6-17 17:41
亲，怎么做到的呀，看着宏的函数并没有改动，怎么就能达到那个效果了呢？

代码是在工作表事件里面了。

anyewuzhe · 发表于 2012-6-18 21:20

看懂了一点点，太高级了

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