下面是在IE中调用EXCEL的一段代码
调出EXCEL后,显示方式是"普通"
如何改成以"分页预览"方式显示?
***************************************
<%@ Language=VBScript %>
<%
a= 33
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
%>
<table border="1">
<tr>
<th bgcolor="red">项目 A</th>
<th>项目 B</th>
<th>合计</th>
<th>项目 C</th>
<th>项目 D</th>
<th>合计</th>
</tr>
<tr>
<td height="20" bgcolor="red"><%Response.Write a%></td>
<td>3</td>
<td>5</td>
<td>6</td>
<td>7</td>
<td><font color="red">=sum(a2:e2)*100</font></td>
</tr>
<tr>
<td>2</td>
<td>1</td>
<td colspan="4"><font color="red">=sum(a3:b3)+f2</font></td>
</tr>
</table>
***************************************
调出EXCEL后,显示方式是"普通"
如何改成以"分页预览"方式显示?
***************************************
<%@ Language=VBScript %>
<%
a= 33
Response.Buffer = true
Response.ContentType = "application/vnd.ms-excel"
%>
<table border="1">
<tr>
<th bgcolor="red">项目 A</th>
<th>项目 B</th>
<th>合计</th>
<th>项目 C</th>
<th>项目 D</th>
<th>合计</th>
</tr>
<tr>
<td height="20" bgcolor="red"><%Response.Write a%></td>
<td>3</td>
<td>5</td>
<td>6</td>
<td>7</td>
<td><font color="red">=sum(a2:e2)*100</font></td>
</tr>
<tr>
<td>2</td>
<td>1</td>
<td colspan="4"><font color="red">=sum(a3:b3)+f2</font></td>
</tr>
</table>
***************************************
解决方案 »
- vb多个text保存和读取
- 如何提取RecordSet中的数据到一个dbf表中
- vb中mschart能不能画幅度相差很大的曲折线呢?
- 鼠标指针状态的问题
- 为什么有的语句设断点可以执行,程序运行中却不能执行呢?
- 为什么使用 BOF 和 EOF 属性可确定 Recordset 对象是否包含记录?
- 给我一个用HTTP下载文件的例子....
- 在listView1中建立两个列首:"名称"和"内容"如何实现"内容"下的选项(如小明)可以通过鼠标双击来激活修改!(像Excel 那样往里填数据,双击
- vb里面怎么样删除一个.bmp文件?
- vb5 下如何调用CHM格式的帮助文件?
- VB通讯问题
- TextBox 变灰怎么实现?
调出EXCEL后,显示方式是"普通"
如何改成以"分页预览"方式显示?用数据库方式打开,可以实现分页显示可以参考:
http://chinese.pku.edu.cn/netstudy/aspteach/asp16.htm
我是说打开excel后的显示方式为页预览
你运行一下这段代码
在菜单中的"视图"菜单下能看到显示为恢色的"普通"和"分页预览"菜单项
现在的问题是如何在代码中选中"分页预览"