精华内容
下载资源
问答
  • Excel使用VBA动态设置打印区域

    万次阅读 2010-07-05 20:46:00
    说明:本设置是实现Excel在一打开的瞬间便实现自动设置打印区域功能。     假设本Excel的格式是: 1.标题是从第一行至第七行;列是从第A列至L列 2.从第八行开始,便是动态变化的行...

    说明:本设置是实现Excel在一打开的瞬间便实现自动设置打印区域功能。

     

     

    假设本Excel的格式是:

    1.标题是从第一行至第七行;列是从第A列至L列

    2.从第八行开始,便是动态变化的行数据

     

    那么,要设置本动态Excel的打印区域:

    1.打开Excel,鼠标右键Sheet名,点选“查看代码”。

    2.双击“ThisWorkBook”字样,光标进入了代码编辑区。

    3.可直接贴入如下代码:

    Private Sub Workbook_Open()
       Dim iCount As Integer
       Dim MyPrintArea As String
      
      
       iCount = ActiveWindow.ActiveSheet.UsedRange.Rows.Count
       MyPrintArea = "$A$1:$L$" & iCount
       Range("$A$1:$L$" & iCount).Select
       Selection.Columns.AutoFit
       Range("A8").Select
       ActiveSheet.PageSetup.PrintArea = MyPrintArea
    End Sub

     

    4.保存xls,关闭VBA即可。

     

    若还有其它好办法,请各位赐教。

     

     

    展开全文
  • VBA Excel 打印

    2014-06-21 15:14:00
    1.设置 页边距、打印区域 With .PageSetup .HeaderMargin = Application.CentimetersToPoints(0.5) .LeftMargin = Application.CentimetersToPoints(1.5) .RightMargin = Application.CentimetersToPoints(1) ....

    1. 设置 页边距、打印区域

    With .PageSetup
      .HeaderMargin = Application.CentimetersToPoints(0.5)
      .LeftMargin = Application.CentimetersToPoints(1.5)
      .RightMargin = Application.CentimetersToPoints(1)
      .TopMargin = Application.CentimetersToPoints(1)
      .BottomMargin = Application.CentimetersToPoints(1)
      .FooterMargin = Application.CentimetersToPoints(0.5)

      .PrintTitleRows = "$1:$3" '要打印的默认页头
      .printArea = "A4:M" & l + 1 '打印区域
    End With


    2. 执行打印

    .Sheets("dl_1").PrintOut Copies:=2 '打印(2份)


     

     

    转载于:https://www.cnblogs.com/ssfie/p/3801037.html

    展开全文
  • Excel VBA:设置行高与列宽

    千次阅读 2020-01-02 00:44:12
    )为单位返回或设置指定区域中所有行的行高。如果指定区域中的各行的行高不等,则返回 null。Variant 类型,可读写。 语法 表达式.RowHeight 表达式一个代表 Range 对象的变量。 说明 可使用 Height 属性返回...

    Range.RowHeight 属性

    磅 (磅:指打印的字符的高度的度量单位。1 磅等于 1/72 英寸,或大约等于 1 厘米的 1/28。)为单位返回或设置指定区域中所有行的行高。如果指定区域中的各行的行高不等,则返回 nullVariant 类型,可读写。

    语法

    表达式.RowHeight

    表达式   一个代表 Range 对象的变量。

    说明

    可使用 Height 属性返回整个单元格区域的高度。

    以下是 RowHeightHeight 的不同之处:

    • Height 为只读。
    • 如果要返回几行的 RowHeight 属性,可得到每一行的行高(如果所有的行等高),或得到 null(如果它们不等高)。如果要返回几行的 Height 属性,将得到所有行高的总和。

    示例

    本示例使工作表 sheet1 上第一行的行高加倍。

    With Worksheets("Sheet1").Rows(1)
        .RowHeight = .RowHeight * 2
    End With
    Worksheet.StandardHeight 属性

    磅 (磅:指打印的字符的高度的度量单位。1 磅等于 1/72 英寸,或大约等于 1 厘米的 1/28。)为单位返回工作表中所有行的标准高度(默认值)。Double 类型,只读。

    语法

    表达式.StandardHeight

    表达式   一个代表 Worksheet 对象的变量。

    示例

    本示例将 Sheet1 中的首行的行高设置为标准行高。 

    Worksheets("Sheet1").Rows(1).RowHeight = _
        Worksheets("Sheet1").StandardHeight

    Range.ColumnWidth 属性

    返回或设置指定区域中所有列的列宽。Variant 类型,可读写。

    语法

    表达式.ColumnWidth

    表达式   一个代表 Range 对象的变量。

    说明

    一个列宽单位等于“常规”样式中一个字符的宽度。对于比例字体,则使用字符 0(零)的宽度。

    使用 Width 属性可返回以磅为单位的列宽。

    如果区域中所有列的列宽都相等,ColumnWidth 属性返回该宽度值。如果区域中的列宽不等,该属性返回 null

    示例

    本示例使工作表 Sheet1 上 A 列的列宽加倍。

    With Worksheets("Sheet1").Columns("A")
        .ColumnWidth = .ColumnWidth * 2
    End With
    Worksheet.StandardWidth 属性

    返回或设置工作表中所有列的标准列宽(默认值)。Double 类型,可读写。

    语法

    表达式.StandardWidth

    表达式   一个代表 Worksheet 对象的变量。

    说明

    一个列宽单位等于“常规”样式中一个字符的宽度。对于比例字体,则使用字符 0(零)的宽度。

    示例

    本示例设置 Sheet1 中首列的列宽为标准列宽。

    Worksheets("Sheet1").Columns(1).ColumnWidth = _
        Worksheets("Sheet1").StandardWidth

    source: VBA Help

    展开全文
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧2 选定单元格区域的方法 12 2-1 使用Select方法 12 2-2 使用Activate方法 12 2-3 使用Goto方法 12 技巧3 获得指定行、列中的最后一个非空单元格 12 技巧4 定位单元格 12 技巧5 查找单元格 12 5-1 使用Find方法 ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    VBA常用技巧 目录 VBA常用技巧 1 第1章 Range(单元格)对象 10 技巧1 单元格的引用方法 10 1-1 使用Range属性 10 1-2 使用Cells属性 11 1-3 使用快捷记号 11 1-4 使用Offset属性 12 1-5 使用Resize属性 13 1-6 使用...
  • CAD_VBA开发手册

    热门讨论 2008-12-06 17:57:59
    决定布局设置 了解视口 切换至图纸空间布局 切换至模型空间布局 建立图纸空间视口 改变视口视图及内容 在图纸空间中缩放线型样式 在被打印视口中的消隐线 打印图纸 执行基本打印 在模型空间中打印 从...
  • 04147设置单元格区域的除对角框线以外的全部边框 04148删除单元格区域的全部边框 04149设置单元格的颜色和背景 04150设置单元格的格式 04151设置单元格的对齐方式 04152缩小单元格内容以全部显示 04153设定、删除...
  • 导出excel和PDF小结 vba

    2016-10-28 10:27:00
    最近接触了一个关于Access工具的项目,所以整理下...设置头部的标题内容和打印区域的单元格格式,标题内容的格式再单独调整(比起一个个单元格调整,可以提高效率)  2.copy设置好的单元格,一次性生成多个sheet....

    最近接触了一个关于Access工具的项目,所以整理下需要使用的方法。

    功能要求简介:

      1.将数据表中的数据导出到excel和PDF

      2.并根据某个字段名称分sheet输出。

      3.无模板方式

    方案简介:

      1.设置头部的标题内容和打印区域的单元格格式,标题内容的格式再单独调整(比起一个个单元格调整,可以提高效率)

      2.copy设置好的单元格,一次性生成多个sheet.(开始创建sheet会有点时间开销,但后面会快一点。总体上来说效率提高了)

      3.然后就是每个sheet的数据处理了

    需要用到的函数:

      不会写的函数,可以使用宏录制,然后查看录制的代码

      1.打印设置

        

        With objCurSheet.PageSetup   'objCurSheet 当前sheet名称
            .PaperSize = xlPaperA3      '打印纸大小:A3
            .Orientation = xlLandscape '打印方向:横向
            .PrintTitleRows = "$1:$7"    '设置第一行至第七行为标题
            .PrintTitleColumns = "A:O"  '设置A到O列为标题列
            .PrintArea = "$A:$O"           '设置打印区域A到O列
            .BottomMargin = 26            '页边距
            .TopMargin = 26                 '页边距
        End With

      2.设置单元格为文本格式

        

    objCurSheet.Range("A:O").NumberFormatLocal = "@" '设置A到O列为文本格式

      3.设置单元格宽度

        objCurSheet.Columns("A").ColumnWidth = 9 

      4.接下来就不继续列举单元格操作,大家自己录制宏看吧。我说一下宏录制的问题吧。

        宏录制时,Range等属性前是不加表名的,并且会添加选中的操作,需要修改

        比如:

        Range("B9").Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

           其实上面的代码应该改为如下(1.加上表对象,跟excel进程正常退出是有关系的。2.减少对象的选择,可以提高效率):

        

        With objCurSheet.Range("B9")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = False
            .ReadingOrder = xlContext
            .MergeCells = False
        End With

       5.链接当前数据库表,查询方式如下:

        

        Dim ExcelAp As New Excel.Application
        Dim ExcelBk As New Excel.workBook
        Set ExcelBk = ExcelAp.Workbooks.Add
        Dim ExcelSh As New Excel.Worksheet
        Dim Obj_DataBase As DAO.Database
        Dim Obj_Recordset As DAO.Recordset
    
        Set Obj_DataBase = CurrentDb()
        Application.SysCmd acSysCmdSetStatus, "Exporting" '设置Acess左下角的状态提示
        
        Set Obj_Recordset = Obj_DataBase.OpenRecordset("tablename")
    
        Do While Not Obj_Recordset.EOF
        '数据处理

       Obj_Recordset.MoveNext
       Loop

      6.导出excel和PDF,并打开excel

      

    If OutType = 1 Then
            extension = ".xls"
        Else
            extension = ".pdf"
        End If
        'Open the window to select the target folder
        Dim result As String
        '弹出选择路径的窗口 start
        With Application.FileDialog(msoFileDialogSaveAs)
            .Title = "Please select the target folder"
            .InitialFileName = "文件名" & extension
            If .Show = -1 Then
                result = .SelectedItems(1) ’获取存储路径
            Else
                '退出进程并释放资源
                ExcelBk.Close Savechanges:=False
                ExcelAp.Quit
                Set ExcelBk = Nothing
                Set ExcelAp = Nothing
                Set ExcelSh = Nothing
                Set Obj_DataBase = Nothing
                Set Obj_Recordset = Nothing
                Application.SysCmd acSysCmdSetStatus, "Exporting  canceled"
                Exit Function
            End If
        End With
        '弹出选择路径的窗口 end
        If OutType = 1 Then
            '保存文件
            ExcelBk.SaveAs FileName:=result
            ExcelBk.Close
            
            If InStr(1, result, ".xls") = 0 Then
                result = result & ".xls"
            End If
            
            '打开excel文件
            ExcelAp.Visible = True
            ExcelAp.Workbooks.Open FileName:=result
        Else
            '导出 PDF
            ExcelBk.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                FileName:=result, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=True, _
                OpenAfterPublish:=True
            ExcelBk.Close Savechanges:=False
            ExcelAp.Quit
        End If
        Set ExcelBk = Nothing
        Set ExcelAp = Nothing
        Set ExcelSh = Nothing
        Set Obj_DataBase = Nothing
        Set Obj_Recordset = Nothing            

     

    转载于:https://www.cnblogs.com/fuge/p/6006772.html

    展开全文
  • 送货单管理(EXCEL VBA版)

    热门讨论 2009-07-01 22:47:02
    单据打印:已设置打印区域,单据录完后,直接点击上面的打印按钮进行打印; 新增单据:填完一个单据,再填新单时;点击下方〈新增单据〉按钮; 删除单据:在〈单据查询〉表内,将相同单号的条目删除即可; 修改...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
    完整清晰版 PDF ,有目录。共 270MB,分为 2 个分卷 中文版Excel 2007 高级VBA编程 宝典 OFFICE2007 ... 11.3.2 确定打印页面的数量  11.3.3 显示日期和时间  11.3.4 获得字体列表  11.3.5 对数组进行排序  ...
  • 函数作用:对多个用同一分隔符分隔的待查找元素,逐一在表区域首列内搜索,将返回选定单元格的值相加,............72 '51.函数作用:根据个人所得税(工资)反算工资数.........73 '52.函数作用:判断表是否存在.........
  • 118.取得预设的打印机及设置预设的打印机 119.获得当前操作系统的打印机个数及检测打印是否存在 120.枚举打印机名称清单 121.读取网络服务器当前时间 122.下载文件到指定目录 123.自动映射网络驱动器 124.自动断开...
  • 些情况下,我们在打印Excel文件时,有很多文件,比如打印员工卡,内容格式都一样,就是个别单元格的内容不同,只能改一次打印一次,效率低不说,可能不小心还会改错。...模型:sheet1中,已经设置好了打印区域。要求
  • EXCEL中套打格式设置

    万次阅读 2010-08-03 10:41:00
     EXCEL套打就是自动根据内容大小设置打印区域的问题。  举例:  1.打开EXCEL模版  2.在SHEET名称(最下面的SHEET名没有取名的话默认是sheet1)上鼠标右键,选“查看代码”。  3.进入...
  • autocad命令全集

    2008-10-24 21:46:23
    194 PLOTSTYLE   设置打印样式 195 PLOTTERMANAGER   打印机管理器 196 POINT PO 绘制点 197 POLYGON POL 绘制正多边形 198 PREVIEW PRE   199 PROPERTLES CH、MO、PRO 、PS、DDMODI、FX、DDCHPR OR 打印预览 ...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • Excel百宝箱

    2012-10-27 17:09:21
    【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • 打印区域会自动设置直接点击按钮即可打印,录入之后点击保存按钮入库单和出库单的信息会自动保存到入库和出库报表中,欠款金额列是有公式自动计算的无需手动填写删改;退货单中的数量和金额会以负数的形式保存到出库...
  • 【让合并单元格合理分页】:如果合并单元格已跨页,打印时会造成合并区域的值仅显示在一页中,另一页空白;或者两页各显示一部分,本工具用于调整合并单元格,使其字符同时显示在两页中 【增强版跨越合并】:对选区...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【生成系统图标】【获取内置命令】【修复Excel】【破解VBA密码】【删除空单元格】【转置选区】【按列倒置】【按列倒置】【字母大小写转换】【小写金额转大写】【大写金额转小写】【区域数据加密】【多区域复制】【按...
  • excel 工具箱

    2012-01-22 15:04:34
    【合并区域自动换行】:可以让具有合并单元格的区域在自动换行与不换行之间自由切换 【建立图片目录】:对指定文件夹下所有图片(GIF、PNG、JPG,JPEG)建立目录,并批量导入 【批量导入图片(精确匹配)】:瞬间导入...
  • 例如选择并计算红色区域,或者选择字号为20、字体为宋体的区域,再如选择加粗且倾斜的区域等等 【选区背景着色】将选择的行进行颜色标示,以突出当前行,有利于数据查看。可以随心所欲地定义颜色,还可以自由调整...
  • 中文版Excel.2007图表宝典 2/2

    热门讨论 2012-04-06 19:01:36
    除此之外,还可以学习如何通过AutoShapes,用图片和色彩修饰图表,以及利用VBA编程创建交互式的动态图表。 目录 -------------------------------------------------------------------------------- 第Ⅰ部分 基础...
  • 在选择打印窗口时浩辰ICAD2008i会将当前已经打印区域亮显,方便用户确认选择。  为了让用户更加便于控制打印样式,浩辰ICAD2008i提供了与AutoCAD2008一致的打印样式表设置环境,使用可以非常方便的操作浩辰ICAD...
  • 定义打印区域 设置分页符 XLSReadWriteII完全支持Unicode 所有的字符型都是宽字符型。你完全不必担心非英语字符。 控件 你可以插入控件以及定义他们的源和目的单元 绘图 插入所有种类的绘图,从简单的线条到...
  • 【制作工资条】 瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条标题的行数以及相隔行数、插入行数等。并能动态地显示运行过程,支持程序运行后中途暂停。 【恢复工资条】 能将已生成工资条的工资...
  • EXCEL集成工具箱V6.0

    2010-09-11 01:44:37
    【制作工资条】 瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条标题的行数以及相隔行数、插入行数等。并能动态地显示运行过程,支持程序运行后中途暂停。 【恢复工资条】 能将已生成工资条的工资...
  • 【制作工资条】 瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条标题的行数以及相隔行数、插入行数等。并能动态地显示运行过程,支持程序运行后中途暂停。 【恢复工资条】 能将已生成工资条的工资...
  • 【制作工资条】 瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条标题的行数以及相隔行数、插入行数等。并能动态地显示运行过程,支持程序运行后中途暂停。 【恢复工资条】 能将已生成工资条的工资...

空空如也

空空如也

1 2 3
收藏数 43
精华内容 17
关键字:

vba设置打印区域