excel打印格式设置求助

zhoubin · 发表于昨天 20:57

cutebe 发表于 2026-2-6 17:35

把你的补充了一些代码，可以用了，谢谢您

//设置表格式.JS
var 表格文件=WScript.Arguments(0); //拖入表格文件.xls/.xlsx
var 扩展名=表格文件.slice(表格文件.lastIndexOf('.'));
if(扩展名.toLowerCase()==".xls" || 扩展名.toLowerCase()==".xlsx"){;}
else{WScript.Echo("文件类型非 .xls/.xlsx\n退出！");WScript.Quit();}
var 表应用 = new ActiveXObject("Excel.Application"); //创建表格程序对象
var 工作簿 = 表应用.Workbooks.open(表格文件); //打开表格文件
var 工作表000 = 工作簿.Worksheets("000");
var 工作表003 = 工作簿.Worksheets("003");
表应用.Visible = 1; //显示表格程序
表格纵向打印格式(工作表000);
//工作表000.PrintPreview; //打印预览
//_Sheet000.PrintOut; //打印
工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格横向打印格式(工作表003);
工作表003.PrintPreview; //打印预览
//工作簿.Save(); //保存
//工作簿.Close(0); //关闭
//表应用.Quit(); //退出表格程序
WScript.Quit(); //结束
/* =====函数===== */
function 表格纵向打印格式(表){
var 区域=表.Range("A1:C17");
区域.Interior.ColorIndex = 0; //无背景色-4142
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //纵向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.5); //页边距上
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.5); //下
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.4); //左
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.3); //右
}
function 表格横向打印格式(表){
var 区域=表.Range("A1:BF80");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 2; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.9); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.8); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(0.4); //右边距
表.Columns("C:D").ColumnWidth = 1.88; //C列D列宽1.88
表.Columns("E:F").ColumnWidth = 7.5; //E列F列宽7.5
表.Columns("G:AR").ColumnWidth = 1.88; //G列至AR列宽1.88
表.Columns("AS:AT").ColumnWidth = 7.5; //AS列AT列宽7.5
表.Columns("AU:BE").ColumnWidth = 1.88; //AU列至BE列宽1.88
表.Columns("BR").ColumnWidth = 9.86; //BF列宽9.86
区域=表.Range("A3: BF80");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 8; //字号
表.Range("AE5").Borders(8).LineStyle = 1; //上边8，AE5单元格边框
表.Range("AE5").Borders(8).Weight = 2;
表.Range("AE5").Borders(9).LineStyle = 1; //下边9
表.Range("AE5").Borders(9).Weight = 2;
表.Range("AE5").Borders(7).LineStyle = 1; //左边7
表.Range("AE5").Borders(7).Weight = 2;
表.Range("AE5").Borders(10).LineStyle= 1; //右边10
表.Range("AE5").Borders(10).Weight = 2;
表.Rows("4:5").RowHeight = 14; //4至5行高14
表.Rows(6).RowHeight = 44; //6行高44
表.Rows(7).RowHeight = 69; //7行高69
表.Rows("8:80").RowHeight = 14; //8至80行高14
表.PageSetup.CenterFooter = "第 &P 页，共 &N 页"; //中页脚
表.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
表.Range("AE6:AH6").Borders.LineStyle = 1; //边框
表.Range("AI5:AP6").Borders.LineStyle = 1; //边框
表.Range("A75").VerticalAlignment = 1; //文字与单元格中心对齐
}

复制代码

zhoubin · 发表于昨天 21:07

还有一个问题，就是再添加一些002工作表（含）以后的调整代码，002工作表（含）以后的工作表，并没有达到我的预期效果，具体看我修改您的

设置表格格式.7z (2.11 KB, 下载次数: 6) 代码，不知哪里错了，麻烦您帮我看看，谢谢

cutebe · 发表于 3 小时前

zhoubin 发表于 2026-2-8 21:07
还有一个问题，就是再添加一些002工作表（含）以后的调整代码，002工作表（含）以后的工作表，并没有达到我 ...

函数做对应即可

表格003横向打印格式(工作表003);
表格002横向打印格式(工作表002);
表格100纵向打印格式(工作表100);
表格101纵向打印格式(工作表101);
表格102横向打印格式(工作表102);
表格104横向打印格式(工作表104);
表格105横向打印格式(工作表105);
表格106横向打印格式(工作表106);
表格107横向打印格式(工作表107);
表格108横向打印格式(工作表108);
表格109横向打印格式(工作表109);
表格900横向打印格式(工作表900);
表格103横向打印格式(工作表103);
表格001横向打印格式(工作表001);

复制代码

完整如下：

//设置表格式.JS
var 表格文件=WScript.Arguments(0); //拖入表格文件.xls/.xlsx
var 扩展名=表格文件.slice(表格文件.lastIndexOf('.'));
if(扩展名.toLowerCase()==".xls" || 扩展名.toLowerCase()==".xlsx"){;}
else{WScript.Echo("文件类型非 .xls/.xlsx\n退出！");WScript.Quit();}
var 表应用 = new ActiveXObject("Excel.Application"); //创建表格程序对象
var 工作簿 = 表应用.Workbooks.open(表格文件); //打开表格文件
var 工作表000 = 工作簿.Worksheets("000");
var 工作表003 = 工作簿.Worksheets("003");
var 工作表002 = 工作簿.Worksheets("002");
var 工作表100 = 工作簿.Worksheets("100");
var 工作表101 = 工作簿.Worksheets("101");
var 工作表102 = 工作簿.Worksheets("102");
var 工作表104 = 工作簿.Worksheets("104");
var 工作表105 = 工作簿.Worksheets("105");
var 工作表106 = 工作簿.Worksheets("106");
var 工作表107 = 工作簿.Worksheets("107");
var 工作表108 = 工作簿.Worksheets("108");
var 工作表109 = 工作簿.Worksheets("109");
var 工作表900 = 工作簿.Worksheets("900");
var 工作表103 = 工作簿.Worksheets("103");
var 工作表001 = 工作簿.Worksheets("001");
表应用.Visible = 1; //显示表格程序
表格纵向打印格式(工作表000);
//工作表000.PrintPreview; //打印预览
//工作表000.PrintOut; //打印
工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格003横向打印格式(工作表003);
//工作表003.PrintPreview; //打印预览
工作表002.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格002横向打印格式(工作表002);
表格100纵向打印格式(工作表100);
工作表101.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格101纵向打印格式(工作表101);
表格102横向打印格式(工作表102);
表格104横向打印格式(工作表104);
表格105横向打印格式(工作表105);
表格106横向打印格式(工作表106);
表格107横向打印格式(工作表107);
表格108横向打印格式(工作表108);
表格109横向打印格式(工作表109);
表格900横向打印格式(工作表900);
表格103横向打印格式(工作表103);
表格001横向打印格式(工作表001);
//工作簿.Save(); //保存
//工作簿.Close(0); //关闭
//表应用.Quit(); //退出表格程序
WScript.Quit(); //结束
/* =====函数===== */
//000表
function 表格000纵向打印格式(表){
var 区域=表.Range("A1:C17");
区域.Interior.ColorIndex = 0; //无背景色-4142
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //纵向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.5); //页边距上
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.5); //下
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.4); //左
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.3); //右
}
//003表
function 表格003横向打印格式(表){
var 区域=表.Range("A1:BF80");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 2; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.9); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.8); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(0.4); //右边距
表.Columns("C:D").ColumnWidth = 1.88; //C列D列宽1.88
表.Columns("E:F").ColumnWidth = 7.5; //E列F列宽7.5
表.Columns("G:AR").ColumnWidth = 1.88; //G列至AR列宽1.88
表.Columns("AS:AT").ColumnWidth = 7.5; //AS列AT列宽7.5
表.Columns("AU:BE").ColumnWidth = 1.88; //AU列至BE列宽1.88
表.Columns("BR").ColumnWidth = 9.86; //BF列宽9.86
区域=表.Range("A3: BF80");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 8; //字号
表.Range("AE5").Borders(8).LineStyle = 1; //上边8，AE5单元格边框
表.Range("AE5").Borders(8).Weight = 2;
表.Range("AE5").Borders(9).LineStyle = 1; //下边9
表.Range("AE5").Borders(9).Weight = 2;
表.Range("AE5").Borders(7).LineStyle = 1; //左边7
表.Range("AE5").Borders(7).Weight = 2;
表.Range("AE5").Borders(10).LineStyle= 1; //右边10
表.Range("AE5").Borders(10).Weight = 2;
表.Rows("1").RowHeight = 12.75; //1行高12.75
表.Rows("2").RowHeight = 18.75; //2行高18.75
表.Rows("3").RowHeight = 43.5; //3行高43.5
表.Rows("4:5").RowHeight = 14; //4至5行高14
表.Rows(6).RowHeight = 44; //6行高44
表.Rows(7).RowHeight = 69; //7行高69
表.Rows("8:80").RowHeight = 14; //8至80行高14
表.PageSetup.CenterFooter = "第 &P 页，共 &N 页"; //中页脚
表.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
表.Range("AE6:AH6").Borders.LineStyle = 1; //边框
表.Range("AI5:AP6").Borders.LineStyle = 1; //边框
表.Range("A75").VerticalAlignment = 1; //文字与单元格中心对齐
}
//002表
function 表格002横向打印格式(表){
var 区域=表.Range("A1:F75");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 2; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.4); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(0.8); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(0.9); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(0.7); //右边距
表.Columns("F").ColumnWidth = 82.29; //F列宽82.29
区域=表.Range("A3: F75");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 8; //字号
表.Rows("1").RowHeight = 12; //1行高12
表.Rows("2").RowHeight = 18.75; //2行高18.75
表.Rows("3").RowHeight = 30.75; //3行高30.75
表.Rows("4:75").RowHeight = 14; //4至75行高14
表.Rows(69).RowHeight = 27; //69行高44
表.PageSetup.CenterFooter = "第 &P 页，共 &N 页"; //中页脚
表.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//100表
function 表格100纵向打印格式(表){
var 区域=表.Range("A1:B19");
区域.Interior.ColorIndex = 0; //无背景色-4142
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //纵向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.1); //页边距上
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2); //下
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.4); //左
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.2); //右
}
//101表
function 表格101横向打印格式(表){
var 区域=表.Range("A1:H79");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.2); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(0.8); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.1); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(0.6); //右边距
表.Columns("C:D").ColumnWidth = 15; //C列D列宽15
表.Columns("G:H").ColumnWidth = 15; //G列H列宽15
表.Columns("F").ColumnWidth = 7; //F列宽7
区域=表.Range("A4: H79");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 8; //字号
表.Rows("1").RowHeight = 12; //1行高12
表.Rows("2").RowHeight = 22.5; //2行高22.5
表.Rows("3").RowHeight = 30.75; //3行高30.75
表.Rows("4:79").RowHeight = 18; //4至79行高18
表.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//102表
function 表格102横向打印格式(表){
var 区域=表.Range("A1:H49");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(0.7); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.3); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.2); //右边距
表.Columns("C:D").ColumnWidth = 15; //C列D列宽15
表.Columns("G:H").ColumnWidth = 15; //G列H列宽15
表.Columns("F").ColumnWidth = 7; //F列宽7
区域=表.Range("A4: H79");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 8; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 19.5; //3行高19.5
表.Rows("4").RowHeight = 30; //4行高30
表.Rows("5:47").RowHeight = 21.75; //5至47行高21.75
表.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//104表
function 表格104横向打印格式(表){
var 区域=表.Range("A1:P28");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.5); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.5); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.3); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1); //右边距
表.Columns("B").ColumnWidth = 4.29; //B列宽4.29
区域=表.Range("A4: P28");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 19.5; //3行高19.5
表.Rows("4").RowHeight = 30; //4行高30
表.Rows("5:28").RowHeight = 30; //5至28行高30
表.PageSetup.PrintTitleRows = "$1:$6"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//105表
function 表格105横向打印格式(表){
var 区域=表.Range("A1:J29");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.7); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.2); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.9); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.9); //右边距
区域=表.Range("A4: J29");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 63.75; //4行高63.75
表.Rows("5:29").RowHeight = 30; //5至29行高30
表.PageSetup.PrintTitleRows = "$1:$6"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//106表
function 表格106横向打印格式(表){
var 区域=表.Range("A1:H34");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.9); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.9); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(2.8); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.9); //右边距
区域=表.Range("A4: H34");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 63.75; //4行高63.75
表.Rows("5:34").RowHeight = 25.5; //5至34行高25.5
表.PageSetup.PrintTitleRows = "$1:$5"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//107表
function 表格107横向打印格式(表){
var 区域=表.Range("A1:D58");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.1); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.1); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.3); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(0.4); //右边距
区域=表.Range("A4: D58");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 40.5; //4行高40.5
表.Rows("5:58").RowHeight = 19; //5至58行高19
表.PageSetup.PrintTitleRows = "$1:$5"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//108表
function 表格108横向打印格式(表){
var 区域=表.Range("A1:L30");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.1); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.1); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.2); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(0.9); //右边距
区域=表.Range("A4: L30");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 40.5; //4行高40.5
表.Rows("5").RowHeight = 58.5; //5行高58.5
表.Rows("6:30").RowHeight = 25.5; //6至30行高25.5
表.PageSetup.PrintTitleRows = "$1:$5"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//109表
function 表格109横向打印格式(表){
var 区域=表.Range("A1:H27");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(2.5); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.5); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.4); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.3); //右边距
区域=表.Range("A4: H27");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 40.5; //4行高40.5
表.Rows("5:27").RowHeight = 25.5; //5至27行高25.5
表.PageSetup.PrintTitleRows = "$1:$5"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//900表
function 表格900横向打印格式(表){
var 区域=表.Range("A1:D39");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.6); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.9); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.9); //右边距
区域=表.Range("A4: D39");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 40.5; //4行高40.5
表.Rows("5:27").RowHeight = 25.5; //5至27行高25.5
表.PageSetup.PrintTitleRows = "$1:$5"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//103表
function 表格103横向打印格式(表){
var 区域=表.Range("A1:AD44");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.9); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.6); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.9); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.9); //右边距
区域=表.Range("A4: AD44");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 40.5; //4行高40.5
表.Rows("5:42").RowHeight = 25.5; //5至42行高25.5
表.PageSetup.PrintTitleRows = "$1:$9"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}
//001表
function 表格001横向打印格式(表){
var 区域=表.Range("A1:AF61");
区域.Interior.ColorIndex = -4142; //无背景色
表.PageSetup.PrintArea = 区域.Address; //打印区域
表.PageSetup.Orientation = 1; //横向打印
表.PageSetup.TopMargin = 表应用.CentimetersToPoints(1.9); //上边距，页边距
表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.7); //下边距
表.PageSetup.LeftMargin = 表应用.CentimetersToPoints(1.9); //左边距
表.PageSetup.RightMargin = 表应用.CentimetersToPoints(1.9); //右边距
区域=表.Range("A4: AF61");
区域.Font.Name = '宋体'; //字体
区域.Font.Size = 10; //字号
表.Rows("1:2").RowHeight = 12.75; //1至2行高12.75
表.Rows("3").RowHeight = 29.25; //3行高29.25
表.Rows("4").RowHeight = 40.5; //4行高40.5
表.Rows("5:61").RowHeight = 25.5; //5至61行高25.5
表.PageSetup.CenterFooter = "第 &P 页，共 &N 页"; //中页脚
表.PageSetup.PrintTitleRows = "$1:$8"; //顶端标题行
表.PageSetup.Zoom = false; //打印时页面设置,必须设置为false,下面的页宽才有效
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}

复制代码

		自动登录	找回密码
密码			注册

[求助] excel打印格式设置求助

点评