另外一个通过生成excel解决web打印方案的例子

<%

server.scripttimeout=360
response.buffer= true
response.expires=0

set xlapplication = CreateObject("Excel.Application")
xlapplication.DisplayAlerts = false'不显示警告
xlapplication.Application.Visible = false'不显示界面
strAddr = Server.MapPath("DailyReport .xls")'此为模块文件.先读取文件然后再将数据写进行再保存
xlapplication.WorkBooks.Open(strAddr)
set objExcelBook = xlapplication.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set xlworksheet = objExcelBook.Sheets(1)

i=3
for i=3 to 40
xlworksheet.cells(i,1).value="90091"
xlworksheet.cells(i,2).value="大酒店"
xlworksheet.cells(i,3).value="301"
xlworksheet.cells(i,4).value="johnny"
'xlworksheet.cells(3,4).interior.colorindex=15 灰色
xlworksheet.cells(i,5).value="2005-10-11"
xlworksheet.cells(i,6).value="2005-10-12" 
xlworksheet.cells(i,7).value="标准房"
xlworksheet.cells(i,8).value="2"
xlworksheet.cells(i,9).value="现付" 
xlworksheet.cells(i,10).value="1000"
xlworksheet.cells(i,11).value="程"
xlworksheet.cells(i,12).value="网上" 
xlworksheet.cells(i,13).value="johnny"
xlworksheet.cells(i,14).value="在住" 
xlworksheet.cells(i,15).value="johnny" 
xlworksheet.cells(i,16).value="1109" 
xlworksheet.cells(i,17).value="自己人" 
'xlworksheet.cells(3,18).Font.Bold = True'这个属性是设置黑体ColumnWidth := 3.5列宽
'xlworksheet.cells(3,17).Font.color =1
'xlworksheet.cells(3,13).ColumnWidth = 35
'xlworksheet.cells(2,18).Charts(1).ChartArea.Fill..BackColor.SchemeColor = 17

next
 
 yy=year(date)
 mm=right("00"&month(date),2)
 dd=right("00"&day(date),2)
 v_ymd=yy&mm&dd

 '生成订单号所有所需元素,格式为：小时，分钟，秒
 xiaoshi=right("00"&hour(time),2)
 fenzhong=right("00"&minute(time),2)
 miao=right("00"&second(time),2)

 BillNo=xiaoshi&fenzhong&miao
 dtime=v_ymd&BillNO
   
tfilename="excelss.xls"'可以根据现在的月份自动放到相应的文件夹-文件夹是已经建好的
xlworksheet.saveas server.mappath(tfilename)
xlapplication.quit' close the workbook

set xlworksheet=nothing
set xlapplication=nothing
%>