用deepseek写vba代码批量打印同一文件夹下多个excel表格

输入指令

写一段vba代码，在新建XLS工作表中对同一文件夹下面的多个excel表进行如下操作，第一个条件，删除每个excel表中的空行；第二个条件，只打印包含新建XLS工作表中第一列中关键词的工作簿；第三个条件，将第二行（索引第二行）行高设置为固定值143榜；第四个条件，如果excel表总行数超过35行，强制A3纸纵向打印，否则用A4纸横向打印，将打印A3纸的excel表放在A4纸之后打印；第五个条件，先显示打印预览，如果人判断可以继续打印，再人工按下确认键。将第一行字体设置为24磅

Sub SmartPrintWithConfirmation()
    Dim wsKey As Worksheet, KeyRange As Range
    Dim Keywords() As String, KeywordCount As Integer
    Dim FileDict As Object, FilePaths As Object
    Dim FilePath As String, FileName As String, FileList As String
    Dim wb As Workbook, PrintSheet As Worksheet
    Dim LastRow As Long, i As Long
    Dim UserConfirm As VbMsgBoxResult
    
    '初始化对象
    Set FileDict = CreateObject("Scripting.Dictionary")
    Set FilePaths = CreateObject("Scripting.Dictionary")
    
    '获取关键词列表
    Set wsKey = ThisWorkbook.Sheets("Sheet1")
    Set KeyRange = wsKey.Range("A:A").SpecialCells(xlCellTypeConstants