这段打印代码是什么意思
我是个打印的代码，谁能帮我把注释写上啊，谢谢了
不好意思，忘贴代码了
Option Explicit
Private Sub Command1_Click()
Unload Me
'market24.Hide
End Sub
Private Sub Command2_Click()
If fps.EditMode = True Then
fps.EditMode = False
DoEvents
End If
aaa = "market2"
spreadpreview.Show
End Sub
Private Sub Command3_Click()
Dim ExcelObj As Excel.Application
Dim SaveSuccess As Boolean
SaveSuccess = fps.ExportToExcel(App.Path + "\market2.xls", "Sheet1", "")
Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.Application.Visible = True
ExcelObj.Workbooks.Open (App.Path + "\market2.xls")
'ExcelObj.Cells.Select
'ExcelObj.Selection.Font.Name = "宋体"
ExcelObj.Selection.Font.Size = "12"
'ExcelObj.Range("f2").Value = tech23.Label4.Caption
End Sub
Private Sub Form_Load()
End Sub