excel打印格式设置求助

zhoubin

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

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

1. //设置表格式.JS
   
2. var 表格文件=WScript.Arguments(0);        //拖入表格文件.xls/.xlsx
   
3. var 扩展名=表格文件.slice(表格文件.lastIndexOf('.'));
   
4. if(扩展名.toLowerCase()==".xls" || 扩展名.toLowerCase()==".xlsx"){;}
   
5. else{WScript.Echo("文件类型非 .xls/.xlsx\n退出！");WScript.Quit();}
   
6. 
   
7. var 表应用 = new ActiveXObject("Excel.Application");        //创建表格程序对象
   
8. var 工作簿 = 表应用.Workbooks.open(表格文件);        //打开表格文件
   
9. var 工作表000 = 工作簿.Worksheets("000");
   
10. var 工作表003 = 工作簿.Worksheets("003");
    
11. 
    
12. 表应用.Visible = 1;        //显示表格程序
    
13. 
    
14. 表格纵向打印格式(工作表000);
    
15. //工作表000.PrintPreview;        //打印预览
    
16. //_Sheet000.PrintOut;        //打印
    
17. 
    
18. 工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元");        //替换文本
    
19. 表格横向打印格式(工作表003);
    
20. 工作表003.PrintPreview;        //打印预览
    
21. 
    
22. //工作簿.Save();        //保存
    
23. //工作簿.Close(0);        //关闭
    
24. //表应用.Quit();        //退出表格程序
    
25. WScript.Quit();        //结束
    
26. 
    
27. 
    
28. /* =====函数===== */
    
29. function 表格纵向打印格式(表){
    
30.         var 区域=表.Range("A1:C17");
    
31.         区域.Interior.ColorIndex = 0;        //无背景色-4142
    
32. 
    
33.         表.PageSetup.PrintArea   = 区域.Address;        //打印区域
    
34.         表.PageSetup.Orientation = 1;        //纵向打印
    
35. 
    
36.         表.PageSetup.TopMargin          = 表应用.CentimetersToPoints(2.5);        //页边距上
    
37.         表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.5);        //下
    
38.         表.PageSetup.LeftMargin   = 表应用.CentimetersToPoints(1.4);        //左
    
39.         表.PageSetup.RightMargin  = 表应用.CentimetersToPoints(1.3);        //右
    
40. }
    
41. 
    
42. function 表格横向打印格式(表){
    
43.         var 区域=表.Range("A1:BF80");
    
44.         区域.Interior.ColorIndex = -4142;        //无背景色
    
45. 
    
46.         表.PageSetup.PrintArea   = 区域.Address;        //打印区域
    
47.         表.PageSetup.Orientation = 2;        //横向打印
    
48. 
    
49.         表.PageSetup.TopMargin          = 表应用.CentimetersToPoints(1.9);        //上边距，页边距
    
50.         表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.8);        //下边距
    
51.         表.PageSetup.LeftMargin   = 表应用.CentimetersToPoints(1);                //左边距
    
52.         表.PageSetup.RightMargin  = 表应用.CentimetersToPoints(0.4);        //右边距
    
53. 
    
54.         表.Columns("C:D").ColumnWidth   = 1.88;        //C列D列宽1.88
    
55.         表.Columns("E:F").ColumnWidth   = 7.5;        //E列F列宽7.5
    
56.         表.Columns("G:AR").ColumnWidth  = 1.88;        //G列至AR列宽1.88
    
57.         表.Columns("AS:AT").ColumnWidth = 7.5;        //AS列AT列宽7.5
    
58.         表.Columns("AU:BE").ColumnWidth = 1.88;        //AU列至BE列宽1.88
    
59.         表.Columns("BR").ColumnWidth        = 9.86;        //BF列宽9.86
    
60. 
    
61.         区域=表.Range("A3: BF80");
    
62.         区域.Font.Name = '宋体';        //字体
    
63.         区域.Font.Size = 8;        //字号
    
64. 
    
65.         表.Range("AE5").Borders(8).LineStyle = 1;        //上边8，AE5单元格边框
    
66.         表.Range("AE5").Borders(8).Weight         = 2;
    
67.         表.Range("AE5").Borders(9).LineStyle = 1;        //下边9
    
68.         表.Range("AE5").Borders(9).Weight         = 2;
    
69.         表.Range("AE5").Borders(7).LineStyle = 1;        //左边7
    
70.         表.Range("AE5").Borders(7).Weight         = 2;
    
71.         表.Range("AE5").Borders(10).LineStyle= 1;        //右边10
    
72.         表.Range("AE5").Borders(10).Weight   = 2;
    
73. 
    
74.         表.Rows("4:5").RowHeight  = 14;        //4至5行高14
    
75.         表.Rows(6).RowHeight          = 44;        //6行高44
    
76.         表.Rows(7).RowHeight          = 69;        //7行高69
    
77.         表.Rows("8:80").RowHeight = 14;        //8至80行高14
    
78. 
    
79.         表.PageSetup.CenterFooter = "第 &P 页，共 &N 页";        //中页脚
    
80.         表.PageSetup.PrintTitleRows = "$1:$3";        //顶端标题行
    
81.         表.PageSetup.Zoom = false;       //打印时页面设置,必须设置为false,下面的页宽才有效
    
82.         表.PageSetup.FitToPagesWide = 1;        //缩放：将所有列打印在一页
    
83.         表.PageSetup.FitToPagesTall = false;
    
84.         
    
85.         表.Range("AE6:AH6").Borders.LineStyle = 1;              //边框
    
86.         表.Range("AI5:AP6").Borders.LineStyle = 1;              //边框
    
87.         表.Range("A75").VerticalAlignment = 1;                        //文字与单元格中心对齐
    
88. }

复制代码

zhoubin

还有一个问题，就是再添加一些002工作表（含）以后的调整代码，002工作表（含）以后的工作表，并没有达到我的预期效果，具体看我修改您的 设置表格格式.7z (2.11 KB, 下载次数: 3)

昨天 21:00 上传

点击文件名下载附件
下载积分: 无忧币 -2

代码，不知哪里错了，麻烦您帮我看看，谢谢