[已解决]自动打印，VBA代码合并化简

cqz1314

1. 
   

复制代码

单击【打印】时，将"text"中的A列填充到"mo"中的b1单元格
                             同时在"mo"中的t16单元格中自动填充学号，
                             并打印。


求高手 谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2013-12-3 23:08

没明白题意，猜1个

Sub 打印()
    Dim N, i As Integer
    N = Range("t16")
    For i = 1 To N
        Range("b1") = Sheets("text").Cells(i, 1)
        Range("T16") = i
        ActiveSheet.PrintOut
    Next
End Sub

跳转到最佳答案楼层

cqz1314

爱疯

没明白题意，猜1个

Sub 打印()
    Dim N, i As Integer
    N = Range("t16")
    For i = 1 To N
        Range("b1") = Sheets("text").Cells(i, 1)
        Range("T16") = i
        ActiveSheet.PrintOut
    Next
End Sub

yyyydddd8888

两个方案：

打印.zip (10.56 KB, 下载次数: 8)

2013-12-4 07:15 上传

点击文件名下载附件

1. Sub 打印姓名()
   
2.     Dim N%, i As Integer
   
3.     N = InputBox("请输入要打印的人数：", "输入", 6)
   
4.     For i = 1 To N
   
5.         Range("t16") = i
   
6.         Range("b1") = Sheets("text").Cells(i, 1)
   
7.        Sheets(2).PrintOut
   
8.     Next
   
9. End Sub
   

复制代码

1. Sub 打印姓名()
   
2.     Dim N%, i As Integer
   
3.     N =6
   
4.     For i = 1 To N
   
5.         Range("t16") = i
   
6.         Range("b1") = Sheets("text").Cells(i, 1)
   
7.        Sheets(2).PrintOut
   
8.     Next
   
9. End Sub
   

复制代码