求如何实现套打，

宝贝幸福77

求，如何实现套打，可以使名单中的内容，打印到：“打印”中相应的位置，如何设置按钮，可以实现想打印第几页到第几页，谢谢，大师

chxw68

看不出来你的“名单”和“打印”中数据对应关系。

宝贝幸福77

chxw68 发表于 2017-12-25 18:47
看不出来你的“名单”和“打印”中数据对应关系。

改动了一下，老师麻烦看一下

chxw68

宝贝幸福77 发表于 2017-12-26 09:34
改动了一下，老师麻烦看一下

这样真的看不出来两者之间的关系。这个问题实际上很简单，你自己录制一个宏，稍做修改就能用了。

宝贝幸福77

老师，录制宏的话，怎么让名单中的“”姓名“”直接可以到打印页面中呢

chxw68

写好框架了，你照着修改就行了。

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("名单")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a3:g" & r)
   
7.   End With
   
8.   With Worksheets("打印")
   
9.     For i = 1 To UBound(arr)
   
10.       .Range("e16") = arr(i, 2)
    
11.       .Range("f19") = arr(i, 5)
    
12.       .PrintOut
    
13.     Next
    
14.   End With
    
15. End Sub
    

复制代码

chxw68

供楼主参考。

宝贝幸福77

chxw68 发表于 2017-12-26 11:58
供楼主参考。

谢谢老师，太感谢了