excel学习库

excel表格_excel函数公式大全_execl从入门到精通

如何选择当前工作薄中三个sheet表批量打印每个sheet表从1页到4页

Sub PrintSelectedSheets()' 选择要打印的工作表Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet1") ' 替换 "Sheet1" 为您要打印的第一个工作表的名称' 循环所有工作表Dim i As LongFor i = 1 To ws.UsedRange.Rows.Count    ' 打印工作表的第 1 页到第 4 页    ws.PrintOut From:=1, To:=4        ' 选择下一张工作表    Next iEnd Sub

使用方法:

  1. 将上述代码复制到您的工作簿中的模块中。

  2. 更改 Set ws = ThisWorkbook.Sheets("Sheet1") 行中的 "Sheet1" 为您要打印的第一个工作表的名称。

  3. 运行宏。

注意事项:

  • 此代码将打印所有选定工作表的第 1 页到第 4 页。如果您只想打印特定页码,请修改 PrintOut 语句中的 FromTo 参数。

  • 此代码将打印工作表的当前视图。如果您想要打印工作表的其他视图,请修改 PrintOut 语句中的 View 参数。

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

«    2024年12月    »
1
2345678
9101112131415
16171819202122
23242526272829
3031
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
搜索
最新留言
    文章归档
      友情链接