Question

实现Excel各行数据自动套用格式再自动打印

Excel的专家您好。上次向您请教的问题得到了很好的解决。现在我有一个问题请您帮解决下，如图：

这是Sheet1的内容，上方已经加入了一个打印按钮。按钮打印内容为Sheet2，如图：

表2的数据来源于表1，为打印的格式。
现在，如果要把“李四”、“王二麻子”的数据打印出来，需要把这一行数据复制（不可以剪切）到表1的第3行，表2中就自动出现了。点击表1中的按钮，便可以打印出床头卡来。
那么，怎么实现自动复制和自动打印呢？
或者简单一点：怎么在表2的数据内容发生变化时就自动打印呢？
20分奉上，麻烦了。





Answer 1

表格发我邮箱。帮你写代码。
wjp456789123@qq.com

追问

谢谢您的来信。
但是，您给我的代码，只能打印出空的表格，需要填写内容的地方还是空的。
已经有网友帮我了，谢谢。

追答

选中姓名那一行。点按钮打印 。就会打印选中那一行。

Answer 2

参考 　　27、我的小说主人公基本上没干什么事，就这么混混沌沌过着。这就是生活。为什么一定要高于生活？

Answer 3

原来的问题是？？？
你的文件我要看

追问

原来的问题是：Sheet1设一按钮，可以打印Sheet2的内容。您帮我搞好的。
你的回答是：
Private Sub CommandButton1_Click()
Me.PrintOut
End Sub
改成：
Private Sub CommandButton1_Click()
sheet2.PrintOut
End Sub

追答

代码，改成：

Private Sub CommandButton1_Click()
Dim i&, maxrow&
Sheet2.PrintOut
maxrow = Sheet1.[a65536].End(xlUp).Row
For i = 4 To maxrow
Sheet1.Range("A" & i & ":I" & i).Copy Sheet1.Range("A3")
Sheet2.PrintOut
Next
End Sub
注意，运行这个程序前。先备份你的这个sheet1表的内容

追问

谢谢，真心好用。打印机目前队列：246，估计就是分分钟搞定。

追答

好用就加分采纳把