<script language="vbscript">
Function spreadsheetPrintout(data)
fileName= "c:\temporaryFile.htm"
s = createTemporaryFile(fileName,data)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.open(fileName)
xlBook.Sheets(1).PrintOut
xlBook.Close
end function
Function createTemporaryFile(fileName,data)
set objFS=CreateObject("Scripting.FileSystemObject")
set f = objFS.CreateTextFile(fileName, True, True)
f.write(data)
f.close
end Function
function spreadsheetprintPreview(data)
fileName= "c:\temporaryFile.htm"
s = createTemporaryFile(fileName,data)
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.open(fileName)
xlApp.Application.Visible = True
xlApp.windows(1).visible = True
xlBook.Sheets(1).PrintPreview
xlBook.Close
end function
</script>