excel打印格式设置求助

zhoubin · 发表于 6 天前

本帖最后由 zhoubin 于 2026-2-9 15:26 编辑

每月都要打印不同的excel工作簿，工作簿格式相同，只是单元格数据不同，每次手动设置工作表格式，都是重复的劳动，怎么操作一下，工作簿自动调整行高列宽等动作，要启用宏吗，我不会，知道这里高手多，给指点一下，谢谢

感谢各位坛友们，帮忙，这里31楼的可以参考，还有这里61楼的，修改自58楼cutebe，感谢各位帮忙，谢谢，在此就不一一致谢了，谢谢各位！

cutebe · 发表于昨天 16:33

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;
}

复制代码

zhoubin · 发表于前天 21:07

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

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

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 · 发表于 4 天前

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

这个基本可以，只是：第2个工作表：将所有列调整为一页，没起作用；谢谢您

ppll2030 · 发表于 4 天前

还没搞定？

楼主没有测试#31楼的vba代码吗？
层主修改过的版本，看了没什么问题，
应该可以解决问题了。
如果要求003以后的工作表也一样设置，就加一段从003开始循环设置后面的工作表代码
就可以完成十几张表的一键设置了。

cutebe · 发表于 4 天前

//设置表格式.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:B17");
区域.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.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = false;
}

复制代码

zhoubin · 发表于 4 天前

还是不行呢

cutebe · 发表于 4 天前

看来还是不支持中文

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

复制代码

zhoubin · 发表于 4 天前

cutebe 发表于 2026-2-6 08:32
//表.PageSetup.Zoom = true;
表.PageSetup.FitToPagesWide = 1; //缩放：将所有 ...

抽空试了一下，还是报错

cutebe · 发表于 4 天前

本帖最后由 cutebe 于 2026-2-6 09:40 编辑

77行加“//”注释掉看下

   //表.PageSetup.Zoom = true;
      表.PageSetup.FitToPagesWide = 1;       //缩放：将所有列打印在一页
      表.PageSetup.FitToPagesTall = false;
}

zhoubin · 发表于 5 天前

cutebe 发表于 2026-2-5 19:37
再看看

出错了，谢谢

cutebe · 发表于 5 天前

再看看

//设置表格格式.JS
var 表格文件=WScript.Arguments(0); //拖入表格文件.xls/.xlsx
var 表应用 = new ActiveXObject("Excel.Application"); //创建表格程序对象
var 工作簿 = 表应用.Workbooks.open(表格文件); //打开表格文件
var 工作表000 = 工作簿.Worksheets("000");
var 工作表003 = 工作簿.Worksheets("003");
表应用.Visible = 1; //显示表格程序
表格纵向打印格式(工作表000);
//工作表000.PrintPreview; //打印预览
工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格横向打印格式(工作表003);
//工作表003.PrintPreview; //打印预览
//工作簿.Save(); //保存
//工作簿.Close(0); //关闭
//表应用.Quit(); //退出表格程序
WScript.Quit(); //结束
/* =====函数===== */
function 表格纵向打印格式(表){
var 区域=表.Range("A1:B17");
区域.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至6行高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 = true;
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一页
//表.PageSetup.FitToPagesTall = false;
}

复制代码

zhoubin · 发表于 5 天前

cutebe 发表于 2026-2-5 17:37

又报错了

cutebe · 发表于 5 天前

本帖最后由 cutebe 于 2026-2-5 17:39 编辑

//设置表格格式.JS
var 表格文件=WScript.Arguments(0); //拖入表格文件.xls/.xlsx
var 表应用 = new ActiveXObject("Excel.Application"); //创建表格程序对象
var 工作簿 = 表应用.Workbooks.open(表格文件); //打开表格文件
var 工作表000 = 工作簿.Worksheets("000");
var 工作表003 = 工作簿.Worksheets("003");
表应用.Visible = 1; //显示表格程序
表格纵向打印格式(工作表000);
//工作表000.PrintPreview; //打印预览
工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格横向打印格式(工作表003);
//工作表003.PrintPreview; //打印预览
//工作簿.Save(); //保存
//工作簿.Close(0); //关闭
//表应用.Quit(); //退出表格程序
WScript.Quit(); //结束
/* =====函数===== */
function 表格纵向打印格式(表){
var 区域=表.Range("A1:B17");
区域.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至6行高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.FitToPagesWide = 1; //缩放：将所有列打印在一页
表.PageSetup.FitToPagesTall = 0;
}

复制代码

ylbf · 发表于 5 天前

财务还是让公司买一套软件吧，财务软件有基础的报表打印功能的.开源节流事半功倍。

zhoubin · 发表于 5 天前

cutebe 发表于 2026-2-5 11:30
另存为时，编码选ANSI
再截图看下（报错的第15行）你复制的代码，要去掉行号

这下不报错了，你这个直接开始打印了，不要直接打印，只调格式就好；还有以下问题，麻烦您看一下第2个工作表：将所有列调整为一页；AE5单元格：所有框线；6行行高：44；插入页脚：第1页，共2页；
谢谢老师

狼人72105 · 发表于 5 天前

啊？

ohte · 发表于 5 天前

zhoubin 发表于 2026-2-5 09:20
又调整了，刚看到

15张表格都做好了。

zhoubin · 发表于 5 天前

狼人72105 发表于 2026-2-5 11:22
这一下，粘贴试试

报告大佬，你的代码，一直运行，停不下来，也关不掉

cutebe · 发表于 5 天前

本帖最后由 cutebe 于 2026-2-5 11:53 编辑

zhoubin 发表于 2026-2-5 10:29
仍然报错

另存为时，编码选ANSI
再截图看下（报错的第15行）你复制的代码，要去掉行号

狼人72105 · 发表于 5 天前

这一下，粘贴试试

狼人72105 · 发表于 5 天前

Option Explicit

Sub MonthPrint_Optimized()
' MonthPrint 优化版宏
' 打印月年报 - 修复和优化版本

On Error GoTo ErrorHandler

' 定义工作表数组
Dim sheetNames As Variant
sheetNames = Array("000", "003", "002", "100", "101", "102", "104", "105", _
                     "106", "107", "108", "109", "900", "103", "001")

Dim startTime As Double
startTime = Timer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

Dim ws As Worksheet
Dim sheetName As Variant

' 批量处理所有工作表
For Each sheetName In sheetNames
      On Error Resume Next
      Set ws = ThisWorkbook.Sheets(CStr(sheetName))
      On Error GoTo ErrorHandler

      If Not ws Is Nothing Then
         ' 应用基础打印设置
         ApplyBasePrintSettings ws

         ' 根据工作表名称应用特定设置
         Select Case CStr(sheetName)
            Case "000"
                  ApplySheet000Settings ws
            Case "003"
                  ApplySheet003Settings ws
            Case "002"
                  ApplySheet002Settings ws
            Case "100", "101", "102", "104", "105", "106", "107"
                  ApplyGeneralSheetSettings ws
            Case "108", "109", "900", "103", "001"
                  ApplyGeneralSheetSettings ws
                  ' 可以为每个表添加特定设置
                  If CStr(sheetName) = "001" Then
                     ApplySheet001Settings ws
                  End If
         End Select

         Set ws = Nothing
      End If
Next sheetName

CleanUp:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True

Dim elapsedTime As Double
elapsedTime = Timer - startTime
MsgBox "打印设置完成！耗时: " & Format(elapsedTime, "0.00") & "秒", vbInformation

Exit Sub

ErrorHandler:
MsgBox "错误发生: " & Err.Description & vbCrLf & _
         "错误号: " & Err.Number & vbCrLf & _
         "工作表: " & IIf(ws Is Nothing, "N/A", ws.Name), vbCritical
Resume CleanUp
End Sub

' 基础打印设置子程序
Private Sub ApplyBasePrintSettings(ws As Worksheet)
Application.PrintCommunication = False

With ws.PageSetup
      ' 页边距设置
      .LeftMargin = Application.InchesToPoints(0.75)
      .RightMargin = Application.InchesToPoints(0.75)
      .TopMargin = Application.InchesToPoints(1)
      .BottomMargin = Application.InchesToPoints(1)
      .HeaderMargin = Application.InchesToPoints(0.5)
      .FooterMargin = Application.InchesToPoints(0.5)

      ' 基本打印选项
      .PrintHeadings = False
      .PrintGridlines = False
      .PrintComments = xlPrintNoComments
      .CenterHorizontally = False
      .CenterVertically = False
      .Draft = False
      .PaperSize = xlPaperA4
      .FirstPageNumber = xlAutomatic
      .Order = xlDownThenOver
      .BlackAndWhite = False
      .Zoom = False
      .PrintErrors = xlPrintErrorsDisplayed
      .OddAndEvenPagesHeaderFooter = False
      .DifferentFirstPageHeaderFooter = False
      .ScaleWithDocHeaderFooter = True
      .AlignMarginsHeaderFooter = False

      ' 清空页眉页脚
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""

      ' 偶数页页眉页脚
      .EvenPage.LeftHeader.Text = ""
      .EvenPage.CenterHeader.Text = ""
      .EvenPage.RightHeader.Text = ""
      .EvenPage.LeftFooter.Text = ""
      .EvenPage.CenterFooter.Text = ""
      .EvenPage.RightFooter.Text = ""

      ' 首页页眉页脚
      .FirstPage.LeftHeader.Text = ""
      .FirstPage.CenterHeader.Text = ""
      .FirstPage.RightHeader.Text = ""
      .FirstPage.LeftFooter.Text = ""
      .FirstPage.CenterFooter.Text = ""
      .FirstPage.RightFooter.Text = ""
End With

Application.PrintCommunication = True
End Sub

' 工作表000的特定设置
Private Sub ApplySheet000Settings(ws As Worksheet)
With ws.PageSetup
      .Orientation = xlPortrait
      .FitToPagesWide = 1
      .FitToPagesTall = 0
End With
End Sub

' 工作表003的特定设置
Private Sub ApplySheet003Settings(ws As Worksheet)
Application.PrintCommunication = False

With ws.PageSetup
      ' 设置为横向
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False

      ' 打印区域
      .PrintArea = "$A$1:$BF$80"
      .PrintTitleRows = "$1:$8"

      ' 自定义边距
      .LeftMargin = Application.InchesToPoints(0.748)
      .RightMargin = Application.InchesToPoints(0.748)
      .TopMargin = Application.InchesToPoints(0.669)
      .BottomMargin = Application.InchesToPoints(0.591)
End With

Application.PrintCommunication = True

' 设置列宽和行高
With ws
      ' 设置列宽
      .Columns("C:BF").ColumnWidth = 1.88
      .Columns("E:E").ColumnWidth = 7.5
      .Columns("F:F").ColumnWidth = 7.5
      .Columns("AS:AS").ColumnWidth = 7.5
      .Columns("AT:AT").ColumnWidth = 7.5
      .Columns("BF:BF").ColumnWidth = 11.29

      ' 设置行高
      .Rows("1:1").RowHeight = 10.5
      .Rows("2:2").RowHeight = 27
      .Rows("3:3").RowHeight = 44.25
      .Rows("7:7").RowHeight = 81
      .Rows("8:80").RowHeight = 18

      ' 设置字体
      .Range("C10:BF80").Font.Name = "宋体"
      .Range("C10:BF80").Font.Size = 9
      .Range("A4:BF80").Font.Size = 10

      ' 替换文本
      .Range("AT3").Replace What:="金额单位：?$", Replacement:="金额单位：万元", LookAt:=xlPart
      .Range("BF3").Value = "表号：003" & Chr(10) & "金额单位：万元"
End With
End Sub

' 工作表002的特定设置
Private Sub ApplySheet002Settings(ws As Worksheet)
Application.PrintCommunication = False

With ws.PageSetup
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
      .PrintTitleRows = "$1:$4"

      ' 自定义边距
      .LeftMargin = Application.InchesToPoints(0.748)
      .RightMargin = Application.InchesToPoints(0.748)
      .TopMargin = Application.InchesToPoints(0.709)
      .BottomMargin = Application.InchesToPoints(0.63)
End With

Application.PrintCommunication = True

With ws
      ' 设置行高
      .Rows("1:1").RowHeight = 17.25
      .Rows("2:2").RowHeight = 20.25
      .Rows("3:3").RowHeight = 26.25
      .Rows("4:75").RowHeight = 14

      ' 设置列宽
      .Columns("F:F").ColumnWidth = 47.57

      ' 设置字体
      .Range("F31,F69,F70").Font.Name = "宋体"
      .Range("F31,F69,F70").Font.Size = 6
End With
End Sub

' 工作表001的特定设置
Private Sub ApplySheet001Settings(ws As Worksheet)
Application.PrintCommunication = False

With ws.PageSetup
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
      .PrintTitleRows = "$1:$8"

      ' 自定义边距
      .LeftMargin = Application.InchesToPoints(0.748)
      .RightMargin = Application.InchesToPoints(0.748)
      .TopMargin = Application.InchesToPoints(0.984)
      .BottomMargin = Application.InchesToPoints(0.827)
End With

Application.PrintCommunication = True

With ws
      ' 设置列宽
      .Columns("C:AF").ColumnWidth = 9
End With
End Sub

' 通用工作表设置
Private Sub ApplyGeneralSheetSettings(ws As Worksheet)
' 默认设置为横向
With ws.PageSetup
      .Orientation = xlLandscape
      .FitToPagesWide = 1
      .FitToPagesTall = False
End With

' 替换所有工作表中的"金额单位：?$"
On Error Resume Next
ws.Cells.Replace What:="金额单位：?$", Replacement:="金额单位：万元", LookAt:=xlPart
On Error GoTo 0
End Sub

' 快捷打印宏
Sub QuickPrintAll()
' 直接打印所有配置好的工作表
On Error GoTo PrintError

Application.ScreenUpdating = False

Dim sheetNames As Variant
sheetNames = Array("000", "003", "002", "100", "101", "102", "104", "105", _
                     "106", "107", "108", "109", "900", "103", "001")

Dim wsNames() As String
ReDim wsNames(0 To UBound(sheetNames))

Dim i As Long
For i = 0 To UBound(sheetNames)
      wsNames(i) = CStr(sheetNames(i))
Next i

' 选择并打印所有工作表
ThisWorkbook.Sheets(wsNames).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

CleanUp:
Application.ScreenUpdating = True
Exit Sub

PrintError:
MsgBox "打印错误: " & Err.Description, vbExclamation
Resume CleanUp
End Sub

' 恢复默认设置（可选）
Sub ResetPrintSettings()
Dim ws As Worksheet
Dim response As VbMsgBoxResult

response = MsgBox("确定要重置所有工作表的打印设置吗？", vbYesNo + vbQuestion, "确认重置")

If response = vbYes Then
      Application.ScreenUpdating = False

      For Each ws In ThisWorkbook.Worksheets
         With ws.PageSetup
            ' 恢复默认设置
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = Application.InchesToPoints(0.75)
            .RightMargin = Application.InchesToPoints(0.75)
            .TopMargin = Application.InchesToPoints(1)
            .BottomMargin = Application.InchesToPoints(1)
            .HeaderMargin = Application.InchesToPoints(0.5)
            .FooterMargin = Application.InchesToPoints(0.5)
            .PrintHeadings = False
            .PrintGridlines = False
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
            .FirstPageNumber = xlAutomatic
            .Zoom = 100
            .PrintArea = ""
            .PrintTitleRows = ""
            .PrintTitleColumns = ""
         End With
      Next ws

      Application.ScreenUpdating = True
      MsgBox "打印设置已重置为默认值！", vbInformation
End If
End Sub

狼人72105 · 发表于 5 天前

zhoubin 发表于 2026-2-5 08:55
没法运行

笨蛋，你直接复制的，没有分行，怎么运行？

zhoubin · 发表于 5 天前

cutebe 发表于 2026-2-5 10:08
金山WPS正常，可能是MS的不支持中文

仍然报错

cutebe · 发表于 5 天前

zhoubin 发表于 2026-2-5 09:51
报错了

金山WPS正常，可能是MS的不支持中文

//设置表格格式并打印.JS
var _xlsFile=WScript.Arguments(0); //拖入表格文件.xls/.xlsx
var XlsApp = new ActiveXObject("Excel.Application"); //创建表格程序对象
var _Books = XlsApp.Workbooks.open(_xlsFile); //打开表格文件
var _Sheet000 = _Books.Worksheets("000");
var _Sheet003 = _Books.Worksheets("003");
XlsApp.Visible = 1; //显示表格程序
_Sheet_PrtFromat1(_Sheet000);
//_Sheet000.PrintPreview; //打印预览
_Sheet000.PrintOut; //打印
_Sheet003.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
_Sheet_PrtFromat2(_Sheet003);
//_Sheet003.PrintPreview; //打印预览
//_Sheet003.PrintOut; //打印
//_Books.Save(); //保存
//_Books.Close(0); //关闭
//XlsApp.Quit(); //退出表格程序
WScript.Quit(); //结束
/* =====函数===== */
function _Sheet_PrtFromat1(_Sht){
var _fRange=_Sht.Range("A1:B17");
_fRange.Interior.ColorIndex = 0; //无背景色-4142
_Sht.PageSetup.PrintArea = _fRange.Address; //打印区域
_Sht.PageSetup.Orientation = 1; //纵向打印
_Sht.PageSetup.TopMargin = XlsApp.CentimetersToPoints(2.5); //页边距上
_Sht.PageSetup.BottomMargin = XlsApp.CentimetersToPoints(2.5); //下
_Sht.PageSetup.LeftMargin = XlsApp.CentimetersToPoints(1.4); //左
_Sht.PageSetup.RightMargin = XlsApp.CentimetersToPoints(1.3); //右
}
function _Sheet_PrtFromat2(_Sht){
var _fRange=_Sht.Range("A1:BF80");
_fRange.Interior.ColorIndex = -4142; //无背景色
_Sht.PageSetup.PrintArea = _fRange.Address; //打印区域
_Sht.PageSetup.Orientation = 2; //横向打印
_Sht.PageSetup.TopMargin = XlsApp.CentimetersToPoints(1.9); //上边距，页边距
_Sht.PageSetup.BottomMargin = XlsApp.CentimetersToPoints(1.8); //下边距
_Sht.PageSetup.LeftMargin = XlsApp.CentimetersToPoints(1); //左边距
_Sht.PageSetup.RightMargin = XlsApp.CentimetersToPoints(0.4); //右边距
_Sht.Columns("C:D").ColumnWidth = 1.88; //C列D列宽1.88
_Sht.Columns("E:F").ColumnWidth = 7.5; //E列F列宽7.5
_Sht.Columns("G:AR").ColumnWidth = 1.88; //G列至AR列宽1.88
_Sht.Columns("AS:AT").ColumnWidth = 7.5; //AS列AT列宽7.5
_Sht.Columns("AU:BE").ColumnWidth = 1.88; //AU列至BE列宽1.88
_Sht.Columns("BR").ColumnWidth = 9.86; //BF列宽9.86
_fRange=_Sht.Range("A3: BF80");
_fRange.Font.Name = '宋体'; //字体
_fRange.Font.Size = 8; //字号
_Sht.Rows("4:6").RowHeight = 14; //4至6行高14
_Sht.Rows(7).RowHeight = 69; //7行高69
_Sht.Rows("8:80").RowHeight = 14; //8至80行高14
_Sht.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
_Sht.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一列
_Sht.PageSetup.FitToPagesTall = false;
//_Sht.PageSetup.PaperSize = 8; //纸张大小A4：9，A3：8
}

复制代码

zhoubin · 发表于 5 天前

cutebe 发表于 2026-2-5 09:33
把决算.xls拖入JS文件图标上

报错了

cutebe · 发表于 5 天前

zhoubin 发表于 2026-2-4 21:52
有一excel工作簿：决算.xls，工作簿里有15个工作表,
000工作表：打印区域选定为：A1:B17，无填充颜色； ...

把决算.xls拖入JS文件图标上

//设置表格格式并打印.JS
var 表格文件=WScript.Arguments(0); //拖入表格文件.xls/.xlsx
var 表应用 = new ActiveXObject("Excel.Application"); //创建表格程序对象
var 工作簿 = 表应用.Workbooks.open(表格文件); //打开表格文件
var 工作表000 = 工作簿.Worksheets("000");
var 工作表003 = 工作簿.Worksheets("003");
表应用.Visible = 1; //显示表格程序
表格纵向打印格式(工作表000);
//工作表000.PrintPreview; //打印预览
工作表000.PrintOut; //打印
工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元"); //替换文本
表格横向打印格式(工作表003);
//工作表003.PrintPreview; //打印预览
//工作表003.PrintOut; //打印
//工作簿.Save(); //保存
//工作簿.Close(0); //关闭
//表应用.Quit(); //退出表格程序
WScript.Quit(); //结束
/* =====函数===== */
function 表格纵向打印格式(表){
var 区域=表.Range("A1:B17");
区域.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; //字号
表.Rows("4:6").RowHeight = 14; //4至6行高14
表.Rows(7).RowHeight = 69; //7行高69
表.Rows("8:80").RowHeight = 14; //8至80行高14
表.PageSetup.PrintTitleRows = "$1:$3"; //顶端标题行
表.PageSetup.FitToPagesWide = 1; //缩放：将所有列打印在一列
表.PageSetup.FitToPagesTall = false;
//表.PageSetup.PaperSize = 8; //纸张大小A4：9，A3：8
}

复制代码

zhoubin · 发表于 5 天前

ohte 发表于 2026-2-5 08:45

又调整了，刚看到

zhoubin · 发表于 5 天前

ohte 发表于 2026-2-5 08:45

这个有点问题

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

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

点评

点评

评分

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评