打印预览

Sub Browse_Click()
    '打印信息
    Dim columnCount As Integer '列数
    Dim rowCount As Integer  '行数
    columnCount = getColumnCount(XsXxSheet)
    rowCount = Application.CountA(ActiveSheet.Range("B:B"))
    If rowCount = 0 Then
        MsgBox ("没有数据，无需打印！")
        Exit Sub
    End If
    If rowCount = 1 Then
        MsgBox ("没有数据，无需打印！")
        Exit Sub
    End If
    
    Worksheets("学生信息打印模板").Visible = True
    '弹出打印提示窗口
    '循环1--行
     For ro = 2 To 2
        '循环2--列  填写学生模板信息-->生成新的Excel
       For col = 1 To columnCount
           Title = Sheets(XsXxSheet).Cells(1, col)
           If Title <> "" Then
             Dim content As String
             content = Sheets(XsXxSheet).Cells(ro, col)
             Dim exl As TypeValueCell
             exl.cellName = Title
             exl.cellContent = content
             aa = fileXsExportModel(exl)
           End If
        Next col
    Next ro
    Worksheets("学生信息打印模板").PrintPreview
    '清空模板
     For col = 1 To columnCount
         Title = Sheets(XsXxSheet).Cells(1, col)
         If Title <> "" Then
           Dim content2 As String
           content2 = Sheets(XsXxSheet).Cells(2, col)
           Dim exl2 As TypeValueCell
           exl2.cellName = Title
           exl2.cellContent = content1
           bb = clearXsExportModel(exl2)
         End If
      Next col
    Worksheets("学生信息打印模板").Visible = False
End Sub