请参考下列代码,红字部分应该是你所需要的。
cFILENAME=GETFILE('XLS','EXCEL文件名')
eole=CREATEOBJECT('Excel.application')
&& 创建Excel对象
eole.Workbooks.add
&& 添加新工作簿
eole.Workbooks.Open(cFILENAME)
&& 打开指定工作簿
eOle.WorkSheets(1).Activate
&& 激活第1个工作表
eole.visible=.T.
&& 显示Excel窗口
WITH eole.Worksheets(1)
&& 单元格设置
nROWS=.UsedRange.Rows.Count && 行数
nCOLS=.UsedRange.Columns.Count
&& 列数
.Columns("A:IV").Font.Name="隶书"
&& 所有列设为"隶书"
.ROWS(1).Font.Name="黑体"
&& 第1行设为"黑体"
.ROWS(1).Font.Size=12
&& 第1行设为12号字
.RANGE("A2:IV100").Font.Size=10
&& 第2-100行设为10号字
.Columns("A:IV").FONT.BOLD = .T.
&& 所有列设为粗体字
.Columns("A:IV").FONT.Italic = .T.
&& 所有列设为斜字体
.RANGE("A2:IV100").FONT.BOLD = .F.
&& 第2-100行取消粗体字
.RANGE("A1:IV2").FONT.Italic = .F.
&& 第1-2行取消斜字体
.Columns("J:K").Delete
&& 删除第10-11列
.Rows(1).RowHeight=20
&& 设置第1行的高度
.Rows("A2:IV4").RowHeight=30
&& 设置第2-4行的高度
.Columns("A:IV").AutoFit && 最适合的列宽
FOR n=21 TO nROWS STEP 20 && 如果固定了第一行,则把20改为19
.Rows(n).PageBreak=1 && 在第 n 行之前插入分页符
NEXT
WITH .PageSetup
&& 打印页面的设置
.PaperSize=13
&& 设置页面纸张大小(8-"A3" 9-"A4" 11-"A5" 12-"B4" 13-"B5")
.Orientation=2
&& 1-纵向(默认) 2-横向
.PrintTitleRows="$1:$1" && 定义每页重复打印第1行)
BTMC="政府采购项目审批查询记录"
.CenterHeader= "&20&BTMC" && 设置页眉20号字
ENDWITH
IF eole.visible
.PrintPreview
&& 打印预览工作表
ENDIF
ENDWITH
eole.Workbooks.close
&& 关闭工作簿
eole.quit
&& 退出Excel
[
本帖最后由 sywzs 于 2010-1-17 06:02 编辑 ]