好像不能打印,你可以引用excel对象,再用循环把记录写到excel中去:
dim myapp as excel.application
dim mybook as excel.workbook
dim mysheet as excel.worksheet
dim strdestination as string
on error goto errhandle
strdestination£½app.path & "123.xls"
set myapp=createobject("excel.application")
myapp.visible=false
set mybook=myapp.workbooks.open(strdestination)
set mysheet=mybook.worksheets(1)
mysheet.cells.clear
with mysheet
for i=0 to msh.rows-1
for j=0 to msh.cols-1
.cell(i+1,j+1)=msh.textmatrix(i,j)
next
next
end with
mybook.close true
myapp.quit