利用下面的代码实现Excel的打印预览
Dim Xlapp As Excel.Application
Dim Xlsheet As Excel.Worksheet
Set Xlapp = New Excel.Application
Xlapp.Workbooks.Add
Set Xlsheet = Xlapp.ActiveSheet
Xlapp.Visible = True
Xlsheet.Range("A1") = "mingrisoft"
Xlsheet.PrintPreview