关于一个批量打印和ComboBox 赋值 另一张工作表的问题，请高手帮忙

okzmz001

关于一个批量打印和ComboBox 赋值 另一张工作表的问题，请高手帮忙


打印的起至序号调用工作表“信息”中的A列，按照当前工作表的格式进行批量打印，应该怎么改程序，谢谢

IVYQQQQQ

应该不用那么复杂吧，还去搞个窗体，给你附件参考！

okzmz001

试了下，不打印

hzruziniu

1. 
   
2. Option Explicit
   
3. 
   
4. Private Sub ComboBox1_Change() '开始页
   
5.     Dim br(), y&
   
6.     If ComboBox2.Value < ComboBox1.Value Then
   
7.         ComboBox2.Value = ComboBox1.Value
   
8.         Me.Label2.Caption = 1
   
9.     Else
   
10.         Me.Label2.Caption = 1 * ComboBox2.Value - 1 * ComboBox1.Value + 1
    
11.     End If
    
12. End Sub
    
13. 
    
14. Private Sub ComboBox2_Change() '终止页
    
15.     If ComboBox2.Value < ComboBox1.Value Then
    
16.         MsgBox "终止号不能小于开始号！"
    
17.         Me.Label2.Caption = 0
    
18.         Exit Sub
    
19.     Else
    
20.         Me.Label2.Caption = 1 * ComboBox2.Value - 1 * ComboBox1.Value + 1
    
21.     End If
    
22. End Sub
    
23. 
    
24. Private Sub CommandButton1_Click() '确定
    
25.     Dim i%
    
26.     If ComboBox1.Value = "" Or ComboBox1.Value = "" Then
    
27.         MsgBox "请输入打印的起始序。"
    
28.         Exit Sub
    
29.     End If
    
30.     For i = ComboBox1.Value To ComboBox2.Value
    
31.         Range("h7") = Sheets("信息").Cells(i + 1, 2)
    
32.         Range("j7") = Sheets("信息").Cells(i + 1, 4)
    
33.         ActiveSheet.PrintPreview               '打印预览
    
34.        ' ActiveSheet.PrintOut                   '直接打印
    
35.     Next
    
36.     Unload Me
    
37. End Sub
    
38. 
    
39. Private Sub CommandButton2_Click() '退出
    
40.   Unload Me
    
41. End Sub
    
42. 
    
43. 
    
44. Private Sub UserForm_Initialize()
    
45.     Dim arr, r%, p%
    
46.     r = Sheets("信息").Range("a65536").End(3).Row
    
47.     p = Sheets("信息").Cells(r, 1)
    
48.     arr = Sheets("信息").Range("A2:A" & r)
    
49.     Me.ComboBox1.List = arr
    
50.     Me.ComboBox2.List = arr
    
51.     Me.Label1.Caption = p
    
52.     Me.Label2.Caption = 0
    
53. End Sub
    

复制代码

hzruziniu

批量打印.rar (33.08 KB, 下载次数: 12)

2018-9-27 11:25 上传

点击文件名下载附件

okzmz001

hzruziniu 发表于 2018-9-27 11:25

非常感谢，学习了