Private Sub mnu打印预览_Click()
Dim iRow As Long, iCol As Long
Dim xls As Excel.Application
Dim xlsWorkBook As Excel.Workbook
Dim xlsWorksheet As Excel.Worksheet
Set xls = CreateObject("Excel.Application")
If xls Is Nothing Then
MsgBox "请确认是否安装Excel软件!", vbOKOnly Or vbInformation, "提示"
Exit Sub
End If
xls.SheetsInNewWorkbook = 1
Set xlsWorkBook = xls.Workbooks.Add
Set xlsWorksheet = xlsWorkBook.Sheets(1)
With xlsWorksheet
For iRow = 0 To msh.Rows - 1
For iCol = 0 To msh.Cols - 1
.Cells(iRow + 1, iCol + 1) = msh.TextMatrix(iRow, iCol)
Next iCol
Next iRow
End With
xls.Visible = True '显示Excel
xlsWorksheet.PrintPreview '打印预览
End Sub
Dim iRow As Long, iCol As Long
Dim xls As Excel.Application
Dim xlsWorkBook As Excel.Workbook
Dim xlsWorksheet As Excel.Worksheet
Set xls = CreateObject("Excel.Application")
If xls Is Nothing Then
MsgBox "请确认是否安装Excel软件!", vbOKOnly Or vbInformation, "提示"
Exit Sub
End If
xls.SheetsInNewWorkbook = 1
Set xlsWorkBook = xls.Workbooks.Add
Set xlsWorksheet = xlsWorkBook.Sheets(1)
With xlsWorksheet
For iRow = 0 To msh.Rows - 1
For iCol = 0 To msh.Cols - 1
.Cells(iRow + 1, iCol + 1) = msh.TextMatrix(iRow, iCol)
Next iCol
Next iRow
End With
xls.Visible = True '显示Excel
xlsWorksheet.PrintPreview '打印预览
End Sub