请教excel电子表格邮件合并功能并批量打印

jian82372387

大致功能已实现，
再请教一下如何再设置一个分类打印的按钮？就是再设置一个按钮通过InputBox输入种类选择数据源表里E列性质，将数据源表里E列“国有”或“集体”之类的相关数据按模板打印出来

3190496160

Sub 批量打印()
With Sheets("数据源")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
End With
With Sheets("税表")
    For i = 2 To r
        .[v2] = i - 1
        .PrintOut
    Next i
End With
MsgBox "打印完毕!"
End Sub

Yalishanda30

额。。。。。。。。。。。。。。

3190496160

3190496160

电子表格邮件合并例表.rar (30.62 KB, 下载次数: 11)

2023-3-11 11:11 上传

点击文件名下载附件

jian82372387

Yalishanda30 发表于 2023-3-11 11:10
额。。。。。。。。。。。。。。

测试了一下打印出来的内容对不上啊，只是个数对而已，无论选什么性质都是从第一页开始打印的

Yalishanda30

jian82372387 发表于 2023-3-11 13:09
测试了一下打印出来的内容对不上啊，只是个数对而已，无论选什么性质都是从第一页开始打印的

不知道你要干什么，请描述清楚一些

jian82372387

Yalishanda30 发表于 2023-3-11 14:54
不知道你要干什么，请描述清楚一些

需求就是按压分类打印后，分别依次将数据源表选取E列的性质所对应的行号填入V4单元格，税表就会自动按里面的函数提取出相应数据到税表里接着就可以逐张打印了。例如分类打印我选择了“私营”，首先在数据源表里查找E列中查找出第一个“私营”所在的序号（13）填入到税表工作表的V4单元格，然后打印“税表”工作表，查找出第二个“私营”所在的序号（14）填入到税表工作表的V4单元格，然后打印“税表”工作表接着循环查找打印直到“数据源”工作表里E列左后一个“私营”的序号全部查出并打印。

Yalishanda30

jian82372387 发表于 2023-3-11 16:28
需求就是按压分类打印后，分别依次将数据源表选取E列的性质所对应的行号填入V4单元格，税表就会自动按里 ...

额。。。。代码有一处取错数据了

jian82372387

Yalishanda30 发表于 2023-3-11 16:34
额。。。。代码有一处取错数据了

请问是第二次发的代码修改了哪里啊？因为SQL不懂，再请教个问题，如果数据源表里表头第一行上面插入了一行标题，代码需要修改哪里啊？？
Private clsSQL As ClassSQL
Private vData As Variant
Private vData_next As Variant
Private sSQL As String

Private Sub cmd_Printout_Click()
Dim print_cat As String
With Me
    print_cat = .cb_list
    If Len(print_cat) Then
        If clsSQL Is Nothing Then Set clsSQL = New ClassSQL
        sSQL = "SELECT [序号] FROM [数据源$] WHERE [性质]='" & print_cat & "'"
        vData = clsSQL.GetDataBySQL(SQL:=sSQL, SqlType:="Excel", FileOrServer:=ThisWorkbook.FullName, OutputTitle:=False)
        If IsArray(vData) Then
            For i = 1 To UBound(vData)
                Sheet1.Range("V4") = vData(i, 1)
                Sheet1.Calculate
                Sheet1.PrintOut Copies:=1, Collate:=True
            Next
        End If
    End If
End With
End Sub

Private Sub UserForm_Initialize()
If clsSQL Is Nothing Then Set clsSQL = New ClassSQL
sSQL = "SELECT DISTINCT [性质] FROM [数据源$]"
vData = clsSQL.GetDataBySQL(SQL:=sSQL, SqlType:="Excel", FileOrServer:=ThisWorkbook.FullName, OutputTitle:=False)
Me.cb_list.Clear
Me.cb_list.List = vData

End Sub

具体哪一句出错啦？？