如何获取打印页参数

Question

PrintArea 属性
参阅应用于示例特性返回或设置欲打印的区域，使用宏语言字符串中以 A1-样式的引用。String 类型，可读写。说明
将本属性设置为 False 或空字符串 ("")，就可打印整个工作表。本属性仅适用于工作表页面。示例
本示例将 sheet1 的打印区域设置为单元格区域 A1:C5。Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"

本示例将 sheet1 的打印区域设置为当前区。注意使用 Address 属性返回 A1-样式的地址。Worksheets("Sheet1").Activate
ActiveSheet.PageSetup.PrintArea = _
    ActiveCell.CurrentRegion.Address

Answer 1

printarea只有先设置了才能获取，默认情况下是得不到printarea值的。

Answer 2

找到 ActiveSheet.HPageBreaks 和 VPageBreaks 属性
用 HPageBreaks(1).Location.Row，VPageBreaks(1).Location.Column 可解决问题了

Answer 3

向5楼学习：VPageBreaks 属性
请参阅 应用于 示例 特性 
返回 VPageBreaks 集合，该集合代表工作表上的垂直分页符。只读。有关返回集合中单个成员的详细信息，请参阅返回集合中的对象。示例
本示例显示全屏幕垂直分页符和打印区域垂直分页符的总数。For Each pb in Worksheets(1).VPageBreaks
    If pb.Extent = xlPageBreakFull Then
        cFull = cFull + 1
    Else
        cPartial = cPartial + 1
    End If
Next
MsgBox cFull & " full-screen page breaks, " & cPartial & _
    " print-area page breaks"VPageBreak 对象
请参阅 属性 方法 事件 特性 
Sheets
VPageBreaks (VPageBreak) 代表一个垂直分页符。VPageBreak 对象是 VPageBreaks 集合的成员。VPageBreak 对象用法
使用 VPageBreaks(index)（其中 index 为该分页符的分页符索引号）可返回一个 VPageBreak 对象。下面的示例更改第一个垂直分页符的位置。Worksheets(1).VPageBreaks(1).Location = Worksheets(1).Range("e5")Location 属性
请参阅 应用于 示例 特性 
对于 HPageBreak 和 VPageBreak 对象，本属性返回或设置定义分页符位置的单元格（Range 对象）。水平分页符与定位单元格的顶端对齐；垂直分页符与定位单元格的左边界对齐。Range 类型，可读写。示例
本示例移动水平分页符。Worksheets(1).HPageBreaks(1).Location = Worksheets(1).Range("e5")Column 属性
请参阅 应用于 示例 特性 
返回指定区域中第一块中的第一列的列号。Long 类型，只读。说明
A 列返回 1，B 列返回 2，依次类推。若要返回区域中最后一列的列号，请使用下列语句。myRange.Columns(myRange.Columns.Count).Column
示例
本示例将工作表 Sheet1 上每隔一列的列宽设置为 4 磅。For Each col In Worksheets("Sheet1").Columns
    If col.Column Mod 2 = 0 Then
        col.ColumnWidth = 4
    End If
Next col

Answer 4

手一抖，Visual Basic变JavaScript了！