求助：根据需求打印目标数据（并隐藏多余空行）

prince939

求助：
1、输入T5起始序号、U5结束序号（例如5678），输入Q列第二行开始5678，根据Q列的序号，利用VLOOKUP函数查找数据。
2、利用S1、S2单元格判断无数据的行，并隐藏多余行，然后打印。
3、单页可能最多会有17行数据，我只做了17行，麻烦大佬帮忙优化一下多页吧。

里面有一点代码。烦请大佬帮帮忙

3190496160

既然想用代码了，就直接用代码获取数据然后再根据数据行数来打印不就行了吗

prince939

3190496160 发表于 2024-11-14 16:15
既然想用代码了，就直接用代码获取数据然后再根据数据行数来打印不就行了吗

数据源表和我要打印的顺序和格式也不一样，代码获取数据我写不出来。打印的表 还可能随时变格式

3190496160

Private Sub 打印单据_Click()
Dim a As String ' 声明变量a，用于存储字符串
If Cells(5, 20).Value > Cells(5, 21).Value Then MsgBox ("初始页必须小于结束页！"): Exit Sub
For i = Cells(5, 20).Value To Cells(5, 21).Value Step 17 '起始序号到结束序号
    [Q2].Resize(10000, 1) = "" '
    m = 1
    For j = i To i + 16
        If j <= Cells(5, 21).Value Then
            m = m + 1
            Cells(m, 17) = j
        End If
    Next j
    Rows("2:18").EntireRow.Hidden = False ' 取消隐藏选中的行
    a = Cells(Rows.Count, 17).End(xlUp).Row
    Rows(a + 1 & ":18").EntireRow.Hidden = True ' 隐藏选中的行
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False ' 打印当前页
Next i
End Sub

3190496160

求助：根据需求打印目标数据（并隐藏多余空行）.rar (28.59 KB, 下载次数: 1)

2024-11-14 16:40 上传

点击文件名下载附件

3190496160

以此附件为准
求助：根据需求打印目标数据（并隐藏多余空行）.rar (25.69 KB, 下载次数: 3)

2024-11-14 16:42 上传

点击文件名下载附件

3190496160

prince939 发表于 2024-11-14 16:26
数据源表和我要打印的顺序和格式也不一样，代码获取数据我写不出来。打印的表 还可能随时变格式

要一劳永逸也不是不可以，打印表的列字段跟数据源完全一致，就可以根据打印表第一行设置的列字段获取相应列的数据过来就行了

prince939

3190496160 发表于 2024-11-14 16:38
Private Sub 打印单据_Click()
Dim a As String ' 声明变量a，用于存储字符串
If Cells(5, 20).Value > C ...

谢谢大佬，谢谢您

prince939

3190496160 发表于 2024-11-14 16:46
要一劳永逸也不是不可以，打印表的列字段跟数据源完全一致，就可以根据打印表第一行设置的列字段获取相应 ...

我也想过，但是我确实写不出来，而且我就怕会变格式。谢谢大佬

prince939

3190496160 发表于 2024-11-14 16:42
以此附件为准

大佬还能帮忙加一句，同时在文件所在目录下导出一个命名为“XXX信息”的EXCEL吗，弹窗是否输出EXCEL，是就输出，否就不输出？