excel打印格式设置求助

ohte

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

1. 
   
2. Sub 格式设置15个表()
   
3. '000工作表打印区域选定为：A1:B17，无填充颜色；纵向打印；打印页边距：上2.5、下2.5、左1.4、右1.3。
   
4. Sheets("000").Select
   
5.     Range("A1:B17").Select
   
6.     With Selection.Interior
   
7.         .Pattern = xlNone
   
8.         .TintAndShade = 0
   
9.         .PatternTintAndShade = 0
   
10.     End With
    
11. 
    
12.     With ActiveSheet.PageSetup
    
13.         .PrintArea = ""
    
14.         .PrintArea = "$A$1:$B$17"
    
15.         .LeftMargin = Application.CentimetersToPoints(1.4)
    
16.         .RightMargin = Application.CentimetersToPoints(1.3)
    
17.         .TopMargin = Application.CentimetersToPoints(2.5)
    
18.         .BottomMargin = Application.CentimetersToPoints(2.5)
    
19. 
    
20.         .PaperSize = xlPaperA4
    
21.         .Orientation = xlPortrait
    
22.         .FitToPagesWide = 1
    
23.         .FitToPagesTall = 5
    
24.     End With
    
25.    
    
26.    
    
27. '003工作表：打印区域选定为：A1:BF80，无填充颜色；横向打印；打印页边距：上1.9、下1.8、左1、右0.4；
    
28. 'C列D列：列宽1.88，E列F列：列宽7.5，'G列至AR列：列宽1.88，
    
29. 'AS列AT列：列宽7.5，'AU列至BE列：列宽1.88，'BF列：列宽9.86，'其余列保持原列宽，不做调整；
    
30. '替换工作簿里：金额单位：?$为金额单位：万元；
    
31. '设置A3: BF80，宋体8号字；
    
32. '4至6行，行高调整为14，7行，行高调整为69，8至80行，行高调整为14，其余行高保持原行高，不做调整；
    
33. '打印：将所有列调整为一页；打印顶端标题行1至3行（$1:$3）
    
34. Sheets("003").Select
    
35.     Range("A1:BF80").Select
    
36.     With Selection.Interior
    
37.         .Pattern = xlNone
    
38.         .TintAndShade = 0
    
39.         .PatternTintAndShade = 0
    
40.     End With
    
41.     Range("A3:BF80").Select
    
42.     With Selection.Font
    
43.         .Name = "宋体"
    
44.         .Size = 8
    
45.     End With
    
46.     Rows("4:6").RowHeight = 14
    
47.     Rows("7:7").RowHeight = 69
    
48.     Rows("8:80").RowHeight = 14
    
49. 
    
50. 
    
51.     Columns("C:D").ColumnWidth = 1.88
    
52.     Columns("E:F").ColumnWidth = 7.5
    
53.     Columns("G:AR").ColumnWidth = 1.88
    
54.     Columns("AS:AT").ColumnWidth = 7.5
    
55.     Columns("AU:BE").ColumnWidth = 1.88
    
56.     Columns("BF").ColumnWidth = 9.86
    
57. 
    
58.     Cells.Replace What:="?$", Replacement:="万元", LookAt:=xlPart, SearchOrder _
    
59.         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    
60.    
    
61.     With ActiveSheet.PageSetup
    
62.         .PrintArea = ""
    
63.         .PrintArea = "$A$1:$BF$80"
    
64.         .LeftMargin = Application.CentimetersToPoints(1)
    
65.         .RightMargin = Application.CentimetersToPoints(0.4)
    
66.         .TopMargin = Application.CentimetersToPoints(1.9)
    
67.         .BottomMargin = Application.CentimetersToPoints(1.8)
    
68.         .Orientation = xlLandscape
    
69. 
    
70.         .PrintTitleRows = "$1:$3"
    
71.         .FitToPagesWide = 1
    
72.         .FitToPagesTall = 5
    
73.     End With
    
74. End Sub
    
75. 
    
76. 
    
77. 
    

复制代码

zhoubin

狼人72105 发表于 2026-2-5 08:39
试试上面宏代码

没法运行

扬帆128

将要求具体清晰告诉DS，让它帮做个网页版的表，或用现有表让它邦做宏，它会教你如何用的

门口

不想做模版或代码的话，直接在要复制格式的文件上右键新建即可，会快速生成个新文件。

zhoubin

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

这个有点问题

zhoubin

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

又调整了，刚看到

cutebe

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

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

1. //设置表格格式并打印.JS
   
2. var 表格文件=WScript.Arguments(0);        //拖入表格文件.xls/.xlsx
   
3. 
   
4. var 表应用 = new ActiveXObject("Excel.Application");        //创建表格程序对象
   
5. var 工作簿 = 表应用.Workbooks.open(表格文件);        //打开表格文件
   
6. var 工作表000 = 工作簿.Worksheets("000");
   
7. var 工作表003 = 工作簿.Worksheets("003");
   
8. 
   
9. 表应用.Visible = 1;        //显示表格程序
   
10. 
    
11. 表格纵向打印格式(工作表000);
    
12. //工作表000.PrintPreview;        //打印预览
    
13. 工作表000.PrintOut;        //打印
    
14. 
    
15. 工作表003.UsedRange.Replace("金额单位：?$","金额单位：万元");        //替换文本
    
16. 表格横向打印格式(工作表003);
    
17. //工作表003.PrintPreview;        //打印预览
    
18. //工作表003.PrintOut;        //打印
    
19. 
    
20. //工作簿.Save();        //保存
    
21. //工作簿.Close(0);        //关闭
    
22. //表应用.Quit();        //退出表格程序
    
23. WScript.Quit();        //结束
    
24. 
    
25. 
    
26. /* =====函数===== */
    
27. function 表格纵向打印格式(表){
    
28.         var 区域=表.Range("A1:B17");
    
29.         区域.Interior.ColorIndex = 0;        //无背景色-4142
    
30. 
    
31.         表.PageSetup.PrintArea   = 区域.Address;        //打印区域
    
32.         表.PageSetup.Orientation = 1;        //纵向打印
    
33. 
    
34.         表.PageSetup.TopMargin    = 表应用.CentimetersToPoints(2.5);        //页边距上
    
35.         表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(2.5);        //下
    
36.     表.PageSetup.LeftMargin   = 表应用.CentimetersToPoints(1.4);        //左
    
37.     表.PageSetup.RightMargin  = 表应用.CentimetersToPoints(1.3);        //右
    
38. }
    
39. 
    
40. function 表格横向打印格式(表){
    
41.         var 区域=表.Range("A1:BF80");
    
42.         区域.Interior.ColorIndex = -4142;        //无背景色
    
43. 
    
44.         表.PageSetup.PrintArea   = 区域.Address;        //打印区域
    
45.         表.PageSetup.Orientation = 2;        //横向打印
    
46. 
    
47.         表.PageSetup.TopMargin    = 表应用.CentimetersToPoints(1.9);        //上边距，页边距
    
48.         表.PageSetup.BottomMargin = 表应用.CentimetersToPoints(1.8);        //下边距
    
49.     表.PageSetup.LeftMargin   = 表应用.CentimetersToPoints(1);                //左边距
    
50.     表.PageSetup.RightMargin  = 表应用.CentimetersToPoints(0.4);        //右边距
    
51. 
    
52.         表.Columns("C:D").ColumnWidth   = 1.88;        //C列D列宽1.88
    
53.         表.Columns("E:F").ColumnWidth   = 7.5;        //E列F列宽7.5
    
54.         表.Columns("G:AR").ColumnWidth  = 1.88;        //G列至AR列宽1.88
    
55.         表.Columns("AS:AT").ColumnWidth = 7.5;        //AS列AT列宽7.5
    
56.         表.Columns("AU:BE").ColumnWidth = 1.88;        //AU列至BE列宽1.88
    
57.         表.Columns("BR").ColumnWidth    = 9.86;        //BF列宽9.86
    
58. 
    
59.         区域=表.Range("A3: BF80");
    
60.         区域.Font.Name = '宋体';        //字体
    
61.         区域.Font.Size = 8;        //字号
    
62. 
    
63.         表.Rows("4:6").RowHeight  = 14;        //4至6行高14
    
64.         表.Rows(7).RowHeight      = 69;        //7行高69
    
65.         表.Rows("8:80").RowHeight = 14;        //8至80行高14
    
66. 
    
67.         表.PageSetup.PrintTitleRows = "$1:$3";        //顶端标题行
    
68.         表.PageSetup.FitToPagesWide = 1;        //缩放：将所有列打印在一列
    
69.         表.PageSetup.FitToPagesTall = false;       
    
70.         //表.PageSetup.PaperSize = 8;        //纸张大小A4：9，A3：8
    
71. }
    

复制代码

zhoubin

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

报错了

cutebe

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

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

1. //设置表格格式并打印.JS
   
2. var _xlsFile=WScript.Arguments(0);        //拖入表格文件.xls/.xlsx
   
3. 
   
4. var XlsApp = new ActiveXObject("Excel.Application");        //创建表格程序对象
   
5. var _Books = XlsApp.Workbooks.open(_xlsFile);        //打开表格文件
   
6. var _Sheet000 = _Books.Worksheets("000");
   
7. var _Sheet003 = _Books.Worksheets("003");
   
8. 
   
9. XlsApp.Visible = 1;        //显示表格程序
   
10. 
    
11. _Sheet_PrtFromat1(_Sheet000);
    
12. //_Sheet000.PrintPreview;        //打印预览
    
13. _Sheet000.PrintOut;        //打印
    
14. 
    
15. _Sheet003.UsedRange.Replace("金额单位：?$","金额单位：万元");        //替换文本
    
16. _Sheet_PrtFromat2(_Sheet003);
    
17. //_Sheet003.PrintPreview;        //打印预览
    
18. //_Sheet003.PrintOut;        //打印
    
19. 
    
20. //_Books.Save();        //保存
    
21. //_Books.Close(0);        //关闭
    
22. //XlsApp.Quit();        //退出表格程序
    
23. WScript.Quit();        //结束
    
24. 
    
25. 
    
26. /* =====函数===== */
    
27. function _Sheet_PrtFromat1(_Sht){
    
28.         var _fRange=_Sht.Range("A1:B17");
    
29.         _fRange.Interior.ColorIndex = 0;        //无背景色-4142
    
30. 
    
31.         _Sht.PageSetup.PrintArea   = _fRange.Address;        //打印区域
    
32.         _Sht.PageSetup.Orientation = 1;        //纵向打印
    
33. 
    
34.         _Sht.PageSetup.TopMargin        = XlsApp.CentimetersToPoints(2.5);        //页边距上
    
35.         _Sht.PageSetup.BottomMargin = XlsApp.CentimetersToPoints(2.5);        //下
    
36.         _Sht.PageSetup.LeftMargin   = XlsApp.CentimetersToPoints(1.4);        //左
    
37.         _Sht.PageSetup.RightMargin  = XlsApp.CentimetersToPoints(1.3);        //右
    
38. }
    
39. 
    
40. function _Sheet_PrtFromat2(_Sht){
    
41.         var _fRange=_Sht.Range("A1:BF80");
    
42.         _fRange.Interior.ColorIndex = -4142;        //无背景色
    
43. 
    
44.         _Sht.PageSetup.PrintArea   = _fRange.Address;        //打印区域
    
45.         _Sht.PageSetup.Orientation = 2;        //横向打印
    
46. 
    
47.         _Sht.PageSetup.TopMargin        = XlsApp.CentimetersToPoints(1.9);        //上边距，页边距
    
48.         _Sht.PageSetup.BottomMargin = XlsApp.CentimetersToPoints(1.8);        //下边距
    
49.         _Sht.PageSetup.LeftMargin   = XlsApp.CentimetersToPoints(1);                //左边距
    
50.         _Sht.PageSetup.RightMargin  = XlsApp.CentimetersToPoints(0.4);        //右边距
    
51. 
    
52.         _Sht.Columns("C:D").ColumnWidth   = 1.88;        //C列D列宽1.88
    
53.         _Sht.Columns("E:F").ColumnWidth   = 7.5;        //E列F列宽7.5
    
54.         _Sht.Columns("G:AR").ColumnWidth  = 1.88;        //G列至AR列宽1.88
    
55.         _Sht.Columns("AS:AT").ColumnWidth = 7.5;        //AS列AT列宽7.5
    
56.         _Sht.Columns("AU:BE").ColumnWidth = 1.88;        //AU列至BE列宽1.88
    
57.         _Sht.Columns("BR").ColumnWidth        = 9.86;        //BF列宽9.86
    
58. 
    
59.         _fRange=_Sht.Range("A3: BF80");
    
60.         _fRange.Font.Name = '宋体';        //字体
    
61.         _fRange.Font.Size = 8;        //字号
    
62. 
    
63.         _Sht.Rows("4:6").RowHeight  = 14;        //4至6行高14
    
64.         _Sht.Rows(7).RowHeight          = 69;        //7行高69
    
65.         _Sht.Rows("8:80").RowHeight = 14;        //8至80行高14
    
66. 
    
67.         _Sht.PageSetup.PrintTitleRows = "$1:$3";        //顶端标题行
    
68.         _Sht.PageSetup.FitToPagesWide = 1;        //缩放：将所有列打印在一列
    
69.         _Sht.PageSetup.FitToPagesTall = false;
    
70.         //_Sht.PageSetup.PaperSize = 8;        //纸张大小A4：9，A3：8
    
71. }
    

复制代码

zhoubin

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

仍然报错

狼人72105

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

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

狼人72105

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

这一下，粘贴试试

cutebe

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

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

zhoubin

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

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

ohte

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

15张表格都做好了。

狼人72105

啊？

zhoubin

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

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

ylbf

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

cutebe

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

复制代码

zhoubin

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

又报错了

cutebe

再看看

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

复制代码