怎么实现表2内容在表1里面批量打印

vicern

本人0基础，想做一个从”数据源sheet2“里面的内容自动填写到“打印用sheet1”里面，还能批量打印，琢磨好好几天都做不起来，希望老师们能帮我解决这个问题。感激不尽！

Jaofuan

打印窗体我改了一下， 可以用，你那个调节控件我以前做过一个，效果不是很好，所以没帮你改

vicern

Jaofuan 发表于 2019-6-14 13:32
打印窗体我改了一下， 可以用，你那个调节控件我以前做过一个，效果不是很好，所以没帮你改

好的，先下来看看先，我只会用，一点基础都没有，谢谢了

vicern

vicern 发表于 2019-6-14 14:11
好的，先下来看看先，我只会用，一点基础都没有，谢谢了

调节按键不起作用，不知道在打印的时候能不能加预览

Jaofuan

vicern 发表于 2019-6-14 14:17
调节按键不起作用，不知道在打印的时候能不能加预览

应该不能吧，没试过，但肯定会很卡，因为是循环

vicern

Jaofuan 发表于 2019-6-14 14:43
应该不能吧，没试过，但肯定会很卡，因为是循环

我也不知道，我是在网上找了个模板，模仿着做的，他能做到了，这里不能传附件，我刚才又发了个贴，那个里面有那个附件

Jaofuan

我见过，是函数的，可惜我函数不是很好，只能试着帮你改改了

vicern

Jaofuan 发表于 2019-6-14 15:02
我见过，是函数的，可惜我函数不是很好，只能试着帮你改改了

谢谢，辛苦了

Jaofuan

应该是这样，记得序号不要重复

renkangjizhen

Sub 打印()
Dim m&, x1%, x2%
x1 = [n4].Value'起始行
x2 = [n5].Value'结束行
For m = x1 To x2
    With Sheets("数据源")
    [C3] = .Cells(m, 2) '姓名
    [E3] = .Cells(m, 3) '性别
    [G3] = .Cells(m, 4) '学籍号
    [C4] = .Cells(m, 5) '户籍所在地
    [C6] = .Cells(m, 6) '现居住地址
    [C8] = .Cells(m, 7) '原就读学校名称
    [C12] = .Cells(m, 8) '原就读学校联系电话
    [G12] = .Cells(m, 9) '原就读年级
    [J12] = .Cells(m, 10) '班级
    End With
Range("a1:j30").PrintOut
Next m
End Sub