这个不好说.源文件贴上来
oExcel=Createobject("excel.application") oExcel.Workbooks.Add With oExcel.ActiveSheet.PageSetup .LeftHeader = ""&&左页眉 .CenterHeader = ""&&中页眉 .RightHeader = ""&&右页眉 .LeftFooter = ""&&左页脚 .CenterFooter = ""&&中页脚 .RightFooter = ""&&右页脚 .Orientation=2 &&1竖排,2横排 .HeaderMargin=7.35&&页眉到顶端的距离(2厘米) .FooterMargin=7.35&&页脚到底端的距离(3厘米) .TopMargin=25.75&&顶边距为2厘米 .BottomMargin=25.75&&底边距为4厘米 .LeftMargin=22.1&&左边距为2厘米2/0.0.35 .RightMargin=22.1&&右边距为2厘米2/0.035 .CenterHorizontally=.T.&&页面水平居中 .CenterVertically=.T.&&页面垂直居中 .PrintGridlines=.F.&&打印单元格网线 .Zoom=100 &&缩放100% Endwith *********设置所列宽************ With oExcel.ActiveSheet .Columns.WrapText=.T. .Columns(1).ColumnWidth=5.88 .Columns(2).ColumnWidth=8.00 .Columns(3).ColumnWidth=10.13 .Columns(4).ColumnWidth=10.13 .Columns(5).ColumnWidth=5.38 .Columns(6).ColumnWidth=2.50 .Columns(7).ColumnWidth=2.50 .Columns(8).ColumnWidth=2.50 .Columns(9).ColumnWidth=16.75 .Columns(10).ColumnWidth=7.25 .Columns(11).ColumnWidth=8.13 .Columns(12).ColumnWidth=4.13 .Columns(13).ColumnWidth=4.13 .Columns(14).ColumnWidth=4.13 .Columns(15).ColumnWidth=5.50 .Columns(16).ColumnWidth=5.38 .Columns(17).ColumnWidth=13.38 .Columns(18).ColumnWidth=8.38 .Columns(19).ColumnWidth=6.00 ************设置所字体格式**************** .cells.NumberFormatLocal = "@"&&设置格式为文本 .cells.Font.Size=11&&所有字体设为11 .cells.Font.FontStyle = "常规" .cells.Font.Name="宋体" .cells.Rows.RowHeight=13.5&&所有行高为13.5 .Columns(9).Font.Size=10&&身份证号码 .Columns(12).Font.Size=8&&出生日期 .Columns(13).Font.Size=10&&死亡日期 .Columns(14).Font.Size=10&&火化日期 .Columns(16).Font.Size=8&&联系电话 .Columns(17).Font.Size=8&&家属身份证号码 .Columns(18).Font.Size=10&&家属住址或单位 ***********第一行字体属性******************* .Rows(1).RowHeight=32.2500000&&行高 .cells(1,1).Value="数据测试中心" .cells(1,1).Font.Name="宋体"&&字体名称 .cells(1,1).Font.Size=11&&字体大小 .cells(1,1).Font.Italic=.F.&&字体是否为斜体 .cells(1,1).Font.Bold=.T.&&是否为粗体 .cells(1,1).Font.FontStyle = "常规"&&字体格式 .cells(1,1).Font.underline=.F.&&字体是否有下划线 .cells(1,1).Font.ColorIndex =1 &&字符颜色 .Range("A1:s1").MergeCells=.T.&&合并单元格 .cells(1,1).HorizontalAlignment =3 &&水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐) .cells(1,1).VerticalAlignment =2 &&垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐) *********第二行字体格式************** .Rows(2).RowHeight=43 .Range("A2:S2").HorizontalAlignment =3 &&水平(1-默认、2-靠左、3-居中、4-靠右、5-填充、6=两端对齐、7=跨列居中、8=分散对齐) .Range("A2:S2").VerticalAlignment =2 &&垂直(1=靠上、2=居中、3=靠下、4=两端对齐、5=分散对齐) .cells(2,1).Value="行政区划代码" .cells(2,2).Value="县(市)、区" .cells(2,3).Value="死亡证编号" .cells(2,4).Value="火化证编号" .cells(2,5).Value="死者姓名" .cells(2,6).Value="性别" .cells(2,7).Value="民族" .cells(2,8).Value="年龄" .cells(2,9).Value="身份证号码" .cells(2,10).Value="户口所在地派出所" .cells(2,11).Value="常住地址" .cells(2,12).Value="出生日期" .cells(2,13).Value="死亡日期" .cells(2,14).Value="火化日期" .cells(2,15).Value="家属姓名" .cells(2,16).Value="联系电话" .cells(2,17).Value="家属身份证号码" .cells(2,18).Value="家属住址或单位" .cells(2,19).Value="殡仪馆名称" *!* 设置四个边框线条的类型 *oExcel.ActiveSheet.Columns(7).NumberFormatLocal = "yyyy-mm-dd" &&数据格式 *oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1 *(其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线) *oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1 *(其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle值:1与7-细实、2-细虚、4-点虚、9-双细实线) *oExcel.ActiveSheet.UsedRange.Columns.Count '有数据的总列数 *oExcel.ActiveSheet.UsedRange.ROWS.Count '有数据的总行数 *oExcel.Columns.AutoFit '让所有的列宽都自动调整 ****************************打印页面设置*************** *oExcel.ActiveSheet.PageSetup.PrintTitleRows="$1:$1" &&每页都打印行标头(每页顶部出现的单元格的行) ENDWITH oExcel.Application.Visible= .T.