精华内容
下载资源
问答
  • 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即可。

     

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

     

     

    展开全文
  • 3、在设置打印区域后,我们需要对选中的打印区域的输出效果稍作调整,以符合我们的输出需求。首先按下CTRL+P, 点击预览选项(红色笔标注)4、在弹出的先窗口中点击页面设置, 我们可以看到(如下图)...

    方法/步骤

    1、打开编辑好的Excel文档,选中想要打印的区域,如图所示(阴影图层部分为所要打印的区域)

    7f98c61827847ff170c2fc33ff3f053e.png

    2、点击页面布局选项卡,选择打印区域选项, 点击设置打印区域子选项,这时候我们就成功设置了打印区域。

    3336a92b46ccee22304a21170b289ca0.png

    3、在设置好打印区域后,我们需要对选中的打印区域的输出效果稍作调整,以符合我们的输出需求。首先按下CTRL+P, 点击预览选项(红色笔标注)

    62350fc8747c324dd43b1592c6f31822.png

    4、在弹出的先窗口中点击页面设置, 我们可以看到(如下图)1-页面,2-页边距,3-页眉/页脚,4-工作表四个选项卡,它们分别依次负责调整页面布局,调整页边距,添加页眉和页脚,以及工作表打印输出的一些高级选项(工作表选项新手很少使用),再熟悉了整个简单的页面设置后读者可以自行尝试对每一个选项进行亲自操作。

    80e9ef2e3fe4555293819c7d16178fda.png

    5、上述调整完成后,点击确定,输出到打印机即可 。(下面是高手进阶)

    6、高手进阶------打印区域控制(新手可忽略)

    当你熟悉的可以运用excel的各种功能后,有时候会根据表格的变化来自动选择打印区域,尤其在使用VBA进行打印区域选择输出时候,希望用公式来确定打印区域。当我们设定好打印区域后,其实Excel已经为我们建立好了一个叫Print_Area的名称。

    我们按下CTRL+F3键,便可以看到设置好的打印区域名称(Excel自动建立),以后若需要通过公式来调整打印区域的场合,不妨参考下名称管理器的定义方法。尤其在VBA编程的时候,十分有用!

    2029d07624113c084319e48c362627c1.png

    以上就是Excel如何设置打印区域及打印区域如何调整方法介绍,希望能对大家有所帮助!

    展开全文
  • Range是VBA的東西不屬excel而ActiveSheet.PageSetup.PrintArea這句是直接指向excel的printarea要求返回的是絕對值(如:$A$1)所以說{不能设置类PageSetup的PrintArea 属性},如果想用range來表達只要在後邊加上.address...
    Range是VBA的東西不屬excel而ActiveSheet.PageSetup.PrintArea這句是直接指向excel的printarea要求返回的是絕對值(如:$A$1)所以說{不能设置 类PageSetup的PrintArea 属性},如果想用range來表達只要在後邊加上.address就可返回excel中的絕對值
    ActiveSheet.PageSetup.PrintArea = Range(Cells(CJ + 1, 1), Cells(CQ, 14)).address就可以了
    ------以下代码是错误的----
    Private Sub OptionButton2_Click()
        CJ = Application.WorksheetFunction.CountIf(Range("I:I"), "一号")
        CQ = Application.WorksheetFunction.CountIf(Range("I:I"), "二号")
         ActiveSheet.PageSetup.PrintArea = Range(Cells(CJ + 1, 1), Cells(CQ, 14)) 这句显示错误1004,不能设置类PageSetup的PrintArea 属性
    End Sub
     
    自动调整所有列宽
    Cells.EntireColumn.AutoFit

    转载于:https://www.cnblogs.com/qiqingnan/p/3764120.html

    展开全文
  • VBA 打印设置相关属性及方法

    千次阅读 2019-09-04 11:18:49
    打印设置说明,以下均为默认值。 With ActiveSheet.PageSetup .PrintTitleRows = "" '工作表打印标题:顶端标题行(R) .PrintTitleColumns = "" '工作表打印标题:左端标题列(C) End With...
    打印设置说明,以下均为默认值。
    
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""                                '工作表打印标题:顶端标题行(R)
        .PrintTitleColumns = ""                             '工作表打印标题:左端标题列(C)
    End With 
    
    ActiveSheet.PageSetup.PrintArea = ""                    '工作表打印区域(A)
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""                                    '自定义页眉:左(L)
        .CenterHeader = ""                                  '页眉/自定义页眉:中(C)
        .RightHeader = ""                                   '自定义页眉:右(R)
        .LeftFooter = ""                                    '自定义页脚:左(L)
        .CenterFooter = ""                                  '页脚/自定义页脚:中(C)
        .RightFooter = ""                                   '自定义页脚:右(R)
        .LeftMargin = Application.InchesToPoints(0.75)      '页边距:左(L)_1.9厘米
        .RightMargin = Application.InchesToPoints(0.75)     '页边距:右(R)_1.9厘米
        .TopMargin = Application.InchesToPoints(1)          '页边距:上(T)_2.5厘米
        .BottomMargin = Application.InchesToPoints(1)       '页边距:下(B)_2.5厘米
        .HeaderMargin = Application.InchesToPoints(0.5)     '页边距:页眉(A)_1.3厘米
        .FooterMargin = Application.InchesToPoints(0.5)     '页边距:页脚(F)_1.3厘米
        .PrintHeadings = False                              '工作表打印:行号列标(L)
        .PrintGridlines = False                             '工作表打印:网格线(G)
        .PrintComments = xlPrintNoComments                  '工作表打印批注(M):无/(工作表末尾) xlPrintSheetEnd/(如同工作表中的显示) xlPrintIace
        .PrintQuality = 180                                 '页面打印质量(Q):180/360点 英寸
        .CenterHorizontally = False                         '页边距居中方式:水平(Z)
        .CenterVertically = False                           '页边距居中方式:垂直(V)
        .Orientation = xlPortrait                           '页面方向:纵向(T) xlPortrait/ 横向 (L)xlLandscape
        .Draft = False                                      '工作表打印:按草稿方式(Q)
        .PaperSize = xlPaperA4                              '页面纸张大小(Z):A4
        .FirstPageNumber = xlAutomatic                      '页面起始页码:自动
        .Order = xlDownThenOver                             '工作表打印顺序:先列后行(D)/先行后列(V) xlOverThenDown
        .BlackAndWhite = False                              '工作表打印:单色打印(B)
        .Zoom = 100                                         '页面缩放比例:100%     若选择页面缩放比例,则下面两项没有。
        .Zoom = False                                       '页面缩放比例:未选择   若选择调整页面则此项必为False,且与下面两项一起出现。
        .FitToPagesWide = 1                                 '页面缩放:调整为1页高
        .FitToPagesTall = 1                                 '页面缩放:调整为1页宽
        .PrintErrors = xlPrintErrorsDisplayed               '工作表打印错误单元格打印为(E):显示值/<空白> xlPrintErrorsBlank/-- xlPrintErrorsDash/#N/A xlPrintErrorsNA
    EndWith```
    
    
    展开全文
  • 行高统一加高自动() 批量设置工作表名称() 批量工作表文本() 批量设置每个工作表中某个单元格值() 批量设置工作表打印区域() 批量复制工作表()
  • 8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:  ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米  9) 在第8行之前插入分页符:  ExcelApp.WorkSheets[1].Rows[8].PageBreak ...
  • 平常我们都知道excel的工作区域是非常大的,如果我们不设置打印区域的话,打印出来的excel表格会很乱的,今天我们来一起学习一个excel表格基本操作中的一个小技巧,设置excel工作表打印区域的下技巧。 一、区域设置...
  • 【Excel VBA】PageSetup对象-打印设置

    千次阅读 2020-03-13 23:05:23
    我们在工作中经常会打印东西,会手动设置一些参数,如横向或竖向打印等。了解下PageSetup属性,用简短的几行代码设置打印参数,便可以设置一次,永久使用,方便高效。 PageSetup对象代表页面设置说明。包含所有...
  • excel VBA自动设置表格格式

    千次阅读 2020-01-07 23:42:30
    通过VBA自动将表格格式快速设置为要求的格式,减少手工调整的时间。
  • AUTOCAD批量打印程序

    2012-06-15 14:35:16
    自编的AUTOCAD VBA批量打印程序 CAD批量打印设置全部打印A4 可打印全部己打开的CAD文档,无文档数量限制,释放你的双手!
  • Excwl VBA:整行和整列区域

    千次阅读 2020-01-02 19:47:04
    返回一个 Range 对象,该对象表示包含指定区域的整行(或多行)。只读。 语法 表达式.EntireRow 表达式一个代表 Range 对象的变量。 示例 本示例对包含活动单元格的行中的第一个单元格赋值。本示例必须在工作表...
  • Excel VBA:设置行高与列宽

    千次阅读 2020-01-02 00:44:12
    )为单位返回或设置指定区域中所有行的行高。如果指定区域中的各行的行高不等,则返回 null。Variant 类型,可读写。 语法 表达式.RowHeight 表达式一个代表 Range 对象的变量。 说明 可使用 Height 属性返回...
  • 全面认识页面设置之 PageSetup 对象我们在写 VBA 代码时,特别是做小型程序开发时,经常会用 VBA设置“页面设置”中的选项,还可用要用 VBA 来实现一些特殊的效果,这就需要使用 PageSteup 对象。PageSetup 对象...
  • Sub 重组跨页合并() '将跨页的合并单元格重新合并从而适应分页打印 Dim p, MerageAddress As String, PageCell As Range, MergeValue Application.ScreenUpdating = False ActiveWindow.View = ...
  • 上面设置内容时多余的空格是为了占位,使整列数据都可以完整显示 'Sheet2.Columns("A:F").Select ' 选择Sheet2的A到F列 'Selection.HorizontalAlignment = Excel.xlCenter ' 对选择的区域设置为居中对齐 Sheet2....
  • 1)将对账单样式图片插入excel,略微调整大小为一张A4纸大小,插入图片的目的是为了准确定位套打位置,图片本身不用打印,需设置为不打印(套打需要先印刷,后打印)。如果不是套打,则打印图片本身。方法是右击图片...
  • 通用打印预览模块(VBA

    千次下载 2002-09-01 00:00:00
    通用打印预览模块 可选择打印或预览,调用只需一条语句,可输出到EXCEL,也可输出到快照,对方不需安装ACCESS即可预览报表。 在打印前选择打印多少份,而不是在按了打印后才选择份数 
  • 修改 WORD 命令,FILEPRINT,可用于统计打印机或者通过该模板打印了多少纸张Sub FilePrint() Dim MyDialog As Dialog, Ps() As String, Pl() As String, PPcount As Integer, PrintSel As String Dim S As Integer, ...
  • 对指定文件夹下所有工作簿中指定工作表进行打印
  • 函数作用:对多个用同一分隔符分隔的待查找元素,逐一在表区域首列内搜索,将返回选定单元格的值相加,............72 '51.函数作用:根据个人所得税(工资)反算工资数.........73 '52.函数作用:判断表是否存在.........
  • VBA打印模式操作

    2014-12-21 19:33:00
    http://pan.baidu.com/s/1qWoJxYsDim rCurrentCell As Range ' ... Dim r1stSubCell As Range ' 小计区域第一个单元格 ' ------------------------------------------------- ' 从这里开始执行 Sub Main() ...
  • 一个表格中我可以做到通过变换序号改变打印区域的内容,然后想通过控件自动打印,就是我在上面输入我要打印的内容的起始序号和终止序号,然后点击按钮就会自动打印。主要是后面的打印的命令实在不会,求回答? ...
  • 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) ....
  • VBA中调用AUTOCAD打印文件

    千次阅读 2005-07-20 20:30:00
    下一步用jacob封装在java中调用,在服务器上控制打印管理.做个记号再慢慢完善.取得当前文档对象(vba中的方法,如果是在VB中时需要从顶层对象开始引用取得)Dim currentDoc As AcadDocumentSet currentDoc = ThisDrawing...
  • 某朋友的某个单据用EXCEL制作,每天一张,每次修改日期太麻烦,因此想实现输入打印次数,表格的日期能够递增。经过一番摸索,实现了该功能。步骤 ALT+F11打开EXCEL的VBA窗口 在VBA窗口中选择菜单插入,再选择菜单项...
  • 2.程序就会自动对数据进行多页排版,并统一字体和打印比例,打印出来后给客户签收 3.打印完成之后,程序会自动把数据归类,不同的客户归到不同的独立工作表中 4.最后,在时间轴上标记哪个客户在今天取了件,并刷新...
  • EXCEL VBA 导出高清图片方法

    千次阅读 2020-02-17 09:59:50
    将EXCEL表格内容另存为图片的方法有很多种,简单的比如“复制为图片格式并另存”,“打印成XPS”等等,本文着重的是利用VBA实现的方法。 该方法适合用于中大型图文表格输出为图片格式,方便传阅,在office2010及...
  • Excel VBA技巧实例手册

    2016-07-28 22:29:39
    技巧085设置单元格区域的行高 4.3 使用工作表事件 技巧086激活时排序 技巧087记录修改信息 技巧088记录单元格区域的修改信息 技巧089高亮显示选择的单元格 技巧090增加快捷菜单 技巧091工作表失焦操作 技巧092修改...
  • 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方法 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,736
精华内容 694
关键字:

vba设置打印区域