首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

将工作簿中的每个工作表打印为合法大小的VBA代码

是指通过VBA代码将工作簿中的每个工作表以合适的尺寸打印出来。

VBA(Visual Basic for Applications)是一种基于Visual Basic的宏语言,可以用于自动化执行任务、操作Excel工作簿和工作表等。下面是如何使用VBA代码来实现将工作簿中的每个工作表打印为合法大小的步骤:

  1. 打开Excel工作簿,按下Alt + F11快捷键打开VBA编辑器。
  2. 在左侧的项目窗口中,找到工作簿对象,双击打开该工作簿的代码窗口。
  3. 在代码窗口中输入以下VBA代码:
代码语言:txt
复制
Sub PrintEachWorksheet()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        With ws
            .Activate ' 激活当前工作表
            .PageSetup.Zoom = False ' 取消自动缩放
            .PageSetup.FitToPagesWide = 1 ' 适应一页宽度
            .PageSetup.FitToPagesTall = False ' 取消自动适应页高度
            .PrintOut ' 打印当前工作表
        End With
    Next ws
End Sub
  1. 按下F5键或点击工具栏上的运行按钮来执行代码。

以上代码会循环遍历工作簿中的每个工作表,并将其打印为合适的尺寸。通过设置PageSetup.Zoom、PageSetup.FitToPagesWide和PageSetup.FitToPagesTall属性,可以自定义打印尺寸。例如,可以修改FitToPagesWide的值来调整打印页数的宽度,将其设置为2表示适应两页的宽度。

需要注意的是,该代码只是一个示例,如果需要进行更多的定制,可以根据具体需求进行修改。

在腾讯云中,提供了丰富的云服务和产品,例如腾讯云服务器、云数据库、云存储等,可以帮助用户实现云计算的需求。具体的产品和介绍可以参考腾讯云官方网站的相关页面。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

VBA代码:拆分工作簿示例——工作簿每个工作保存为单独工作簿

标签:VBA 有时候,我们想将工作簿每个工作都保存为一个单独工作簿。 你可以使用下面的操作逐个保存工作: 1.在工作标签单击右键。 2.选取“移动或复制…”命令。...3.选择“(新工作簿)”。 4.保存该工作簿。 图1 这样,有多少工作,你就要操作上面的步骤多少次。 然而,如果存在很多个工作簿,这样重复工作使用VBA是最合适。...msoFileDialogFolderPicker) .InitialFileName =Application.DefaultFilePath & "\" .Title = "选择保存工作位置...Next wks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 只需在要拆分工作簿运行上述代码...,就可将该工作簿所有工作全部保存为单独工作簿

4K11

VBA: 多个工作簿第一张工作合并到一个工作簿

文章背景: 在工作,有时需要将多个工作簿进行合并,比如多份原始数据附在报告之后。...一般操作方法是打开两个工作簿(目标工作簿和待转移工作簿),然后选中需要移动工作,右键单击以后选择“移动或复制”。接下来在新对话框里面进行设置。 这种方法适合在移动少量工作时候使用。...在目标工作簿内,插入一个模块,然后导入如下代码: Option Explicit Sub MergeWorkbook() '多个工作簿第一张工作合并到目标工作簿...End Sub (1) 目标工作簿和待转移工作簿放在同一个文件夹内; (2)上述代码要实现功能是,将同一个文件夹内所有工作簿(目标工作簿除外)第一张工作拷贝到目标工作簿内,并将名设置拷贝前所属工作簿名称...转移前: 转移后: 参考资料: [1] 如何使用Excel VBA多个工作簿全部工作合并到一个工作簿(https://zhuanlan.zhihu.com/p/76786888)

5.8K11
  • yhd-VBA从一个工作簿工作查找符合条件数据插入到另一个工作簿工作

    今天把学习源文件共享了出来,供大家学习使用 上次想到要学习这个 结合网友也提出意见,做一个,如果有用,请下载或复制代码使用 【问题】我们在工作中有时要在某个文件(工作簿查找一些数据,提取出来...想要做好了以后同样工作就方便了 【想法】 在一个程序主控文件 设定:数据源文件(要在那里查找工作簿) 设定:目标文件(要保存起来那个文件) 输入你要查找数据:如:含有:杨过,郭靖数据。...要复制整行出来 主控文件设定如图 数据源文件有两个工作 查找到"郭靖"数据保存到目标文件【射雕英雄传】工作 查找到"杨过"数据保存到目标文件【第一个】工作代码】 Sub...从一个工作簿工作查找符合条件数据插入到另一个工作簿工作() Dim outFile As String, inFile As String Dim outWb As...MsgBox ("一个也没找到") End If '==end=工作内部

    5.3K22

    隐藏工作簿中所有工作行列标题,VBA一次搞定

    标签:VBA 有时候,我们不需要看到工作行列标题,如下图1所示。 图1 此时,可以修改Excel设置来实现。...单击“文件——选项”,在“Excel选项”对话框,单击左侧“高级”选项卡,在“此工作显示选项”取消选取“显示行和列标题”前勾选,如下图2所示。...图2 可以看出,这个设置只对指定工作有效,如果要隐藏工作簿中所有工作行列标题,则要逐个选择工作,并取消该选项选择。 如果工作簿中有很多工作,这样重复操作就有点浪费时间了。...下面的代码隐藏工作簿除指定工作所有工作行列标题: Sub HideHeadings() Dim wks As Worksheet Application.ScreenUpdating...= False '遍历工作簿工作 For Each wks In ThisWorkbook.Worksheets '名为"示例"工作除外 '你可以修改为自己工作

    1.9K20

    VBA技巧:在不保护工作簿情况下防止删除工作

    标签:VBA 下面介绍一个使用少量VBA代码实现简单实用小技巧。 通常情况下,我们执行“保护工作簿”命令后,此时删除工作命令变成灰色,用户就不能轻易地删除工作了。...然而,这样也不能进行插入、移动或复制工作操作了。 如果想要在不保护工作簿情况下防止用户删除工作,而且允许用户插入工作并对其进行重命名,也允许用户移动或复制工作,有没有什么好方法实现?...可以使用下面的VBA代码,很简单,却很实用。...在工作簿ThisWorkbook模块粘贴或输入下面的代码: Option Explicit Private Sub Workbook_SheetDeactivate(ByVal Sh As Object..." End Sub Sub RemoveProtection() '撤销保护工作簿 ThisWorkbook.Unprotect End Sub 此时,用户再要删除该工作簿工作,就会弹出

    1.9K30

    VBA技巧:让代码识别工作形状

    标签:VBA Q:我在工作中放置有一些形状,例如圆形、矩形等,我想当我在工作中使用鼠标单击这些形状时能够根据单击形状有不同操作,该如何实现?...我想在一个过程实现,而不是每个形状关联不同过程。 如下图1所示,当我使用鼠标单击上方圆形时,会执行一个操作;单击下方矩形时,会执行另一个操作,但这两个形状都关联相同过程。...图1 A:在示例工作,将上方圆形命名为“椭圆示例”,下方矩形命名为“圆角矩形”。...End If End Sub 然后,返回工作,在形状单击鼠标右键,将其关联到宏过程testShape。当你单击工作形状时,结果如下图2所示。...图2 你可以代替过程MsgBox行代码你想要执行操作代码

    13610

    快速汇总多个工作簿工作数据(Excel工具推荐)

    有时候我们会遇到这种问题: 很多数据散落在很多工作或者工作簿,由于某项工作我们需要将这些数据做个汇总。...最笨办法是挨个打开这些工作簿,手动数据源串联起来,然后做数据透视。可是 1.有时候数据源过大,超出单个Excel文件承载范围,你无法串联。...2.右侧列出了涉及工作所有字段,你可以只选你需要字段进行显示。...3.可以看到有“插入工作簿名”,“插入工作名”按钮,这两个按钮意思是是否需要将工作簿/工作名称作为数据透视字段,此处我们假设想看各月汇总情况,因此需要点击“插入工作簿名”。...点击更改数据源-链接属性,弹出以下对话框 刚才复制代码粘贴到“命令文本“,点“确定“。

    10.8K10

    Excel应用实践21:实现工作簿所有工作多值替换

    学习Excel技术,关注微信公众号: excelperfect 有两个工作簿,一个工作簿存放着要查找并替换成文本,如下图1所示,列A是要查找文本,列A查找到文本替换成列B相应文本,例如...图1 另一个工作簿是我们要替换其文本工作簿,我们要在该工作簿所有工作查找上图1列A值并将找到文本替成列B文本,如图2所示。 ? 图2 要实现结果如下图3所示。 ?...图3 使用下面的VBA代码来完成上述任务。...).CurrentRegion '遍历要替换文本工作簿中所有工作 For Each wks In ReplaceInWB.Worksheets '使用替换文本来替换工作数据...选择工作簿文件后,根据上图1工作文本自动对该工作簿文本进行查找和替换操作。 ? 图4 代码图片版如下: ?

    3K10

    VBA代码:获取并列出工作所有批注

    标签:VBA 在使用Excel工作时,我们往往会对某些单元格插入批注来解释其中数据,用户也可能会插入批注来写下他们建议。...如果你工作中有很多批注,而你不想逐个点开查看,那么可以所有批注集中显示在工作。...本文给出代码获取工作中所有的批注,并将它们放置在一个单独工作,清楚地显示批注所在单元格、批注人和批注内容。...ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub 代码首先检查当前工作是否存在批注...如果有批注,则创建一个用于放置批注名为“批注列表”工作,其中,在列A放置批注所在单元格地址,列B放置写批注的人名,列C是批注内容。

    2.4K20

    VBA技巧:自动给每个工作添加相同大小和位置按钮并指定相同

    标签:VBA Q:我有一个工作簿,包含有多个工作,我想在这些工作同一位置都添加一个按钮,并对这些按钮指定相同宏过程,如何实现? A:这样操作最适合使用VBA。...在第一个工作,假设其名称为“Sheet1”,在想要添加按钮位置放置一个大小合适按钮,编辑修改其上文字,然后指定宏过程,示例MacroToRun。...打开VBE,插入一个标准模块,在其中输入下面的代码: Sub AddButtons() Dim ws As Worksheet Dim oButton As Shape Dim T As Double...Selection.Text = C End If Next End Sub Sub MacroToRun() MsgBox ActiveSheet.Name End Sub 运行AddButtons过程,即可在每个工作表相同位置添加相同大小按钮并指定相同

    39810

    VBA实用小程序49: 列出所有打开工作簿VBA模块和过程

    Jon Peltier改编了VBA过程,可以列出当前所有已经打开工作簿中所含有的VBA模块和过程清单。在输出工作,前两行为模块所在工作簿名称和工程名称。...并且,代码会绕过受保护VBA工程,同时如果工作簿没有代码,也会在输出工作说明。...下面是完整代码: Sub GetVBAProcedures() '声明访问Excel工作簿变量 Dim app As Excel.Application Dim wb As...vbProj.VBComponents(1) On Error GoTo 0 If Not vbComp Is Nothing Then '遍历工程每个组件...图2 从图2可以看出,我当前打开了3个工作簿,其中两个没有保存也没有代码,另外工作簿就是GetVBAProcedures过程代码所在工作簿,有2个模块3个过程。

    4.1K20

    Excel实战技巧57: 标识并使用VBA代码识别特定工作簿

    有时候,需要使用代码确认某个工作簿是否是特定模板创建,或者是否属于某个应用程序,如果是就打开并操作该工作簿或应用程序。如何实现呢?...一种常用方法是对工作簿文件添加自定义文档属性,这样让代码在不打开工作簿情况下判断是否是想要工作簿。...工作簿添加自定义文档属性 单击“文件——信息——属性——高级属性”,打开工作簿“属性”对话框。...选取“自定义”选项卡,在名称文本框输入属性名称,示例是“MyTestBook”,在类型下拉列表中选择“是或否”,选取取值选项按钮“是”,单击“添加”按钮,如下图1所示,工作簿添加自定义文档属性...,测试工作簿是否具有名为MyTestBook属性,如果是,则弹出下图3所示消息。

    1.8K10

    使用VBA删除工作多列重复行

    标签:VBA 自Excel 2010发布以来,已经具备删除工作重复行功能,如下图1所示,即功能区“数据”选项卡“数据工具——删除重复值”。...图1 使用VBA,可以自动执行这样操作,删除工作所有数据列重复行,或者指定列重复行。 下面的Excel VBA代码,用于删除特定工作所有列所有重复行。...如果没有标题行,则删除代码后面的部分。...如果只想删除指定列(例如第1、2、3列)重复项,那么可以使用下面的代码: Sub DeDupeColSpecific() Cells.RemoveDuplicates Columns:=Array...(1, 2, 3), Header:=xlYes End Sub 可以修改代码中代表列数字,以删除你想要重复行。

    11.3K30

    VBA小技巧10:删除工作错误值

    这里编写VBA代码,用来删除工作指定区域中错误值,这在很多情况下都很有用。 如下图1所示,有一组数据,但其中有一些错误值,我们想要自动删除这些错误值。 ?...图1 删除错误值数据如下图2所示。 ? 图2 如果不使用VBA,可以使用Excel“定位”功能来实现。...如下图3所示,单击功能区“开始”“编辑”组“查找和选择——定位条件”,弹出“定位条件”对话框。在该对话框,选取“公式”“错误”前复选框,如下图3所示。 ?...图3 单击“确定”后,工作错误数据单元格会被选择,单击“Delete”键,删除错误值,结果如上图2所示。...函数来判断单元格是否是错误值,如果是,则设置该单元格空。

    3.4K30
    领券