【烟花原创】VBA零基础之第44篇 Sheets对象（三）

hwc2ycy

　　Sheets.Move 方法
　　将工作表移到工作簿中的其他位置
　　语法：Move(Before, After)
　　　Before 可选 Variant 在其之前放置移动工作表的工作表
　　　如果指定了 After，则不能指定 Before
　　　After 可选 Variant 在其之后放置移动工作表的工作表
　　　如果指定了 Before，则不能指定 After
　　　如果既不指定 Before 也不指定 After，Microsoft Excel 将新建一个工作簿，其中包含所移动的工作表
　　示例:
　　　Worksheets("Sheet1").Move After:=Worksheets("Sheet3")
　　　Worksheets(3).Move Before:=Worksheets(1)
　　在工作表标签上右键 移动或复制 所实现的就是Move和copy方法

　　Sheets.PrintOut 方法
　　打印对象
　　语法：PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)
　　　From 可选 Variant 打印的开始页号如果省略此参数，则从起始位置开始打印
　　　To 可选 Variant 打印的终止页号如果省略此参数，则打印至最后一页
　　　Copies 可选 Variant 打印份数如果省略此参数，则只打印一份
　　　Preview 可选 Variant 如果为 True，Microsoft Excel 将在打印对象之前调用打印预览如果为 False（或省略该参数），则立即打印对象
　　　ActivePrinter 可选 Variant 设置活动打印机的名称
　　　PrintToFile 可选 Variant 如果为 True，则打印到文件如果没有指定 PrToFileName，Microsoft Excel 将提示用户输入要使用的输出文件的文件名
　　　Collate 可选 Variant 如果为 True，则逐份打印多个副本
　　　PrToFileName 可选 Variant 如果 PrintToFile 设为 True，则该参数指定要打印到的文件名
　　　IgnorePrintAreas 可选 Variant 如果为 True，则忽略打印区域并打印整个对象
　　返回值：Variant
　　注意：From 和 To 所描述的"页"指的是要打印的页，并非指定工作表或工作簿中的全部页
　　示例：
　　　　ActiveSheet.PrintOut
　　　　ActiveSheet.PrintOut From:=2, To:=4, Copies:=5, Preview:=True
　　具体参数的用法，可以录制一个打印的宏，通过不同的设置，来加强对于参数的理解。
　　关于返回值，貌似是逻辑值，指示打印完成与否。
　　　Dim varPrint As Variant
　　　varPrint = ActiveSheet.PrintOut(From:=2, To:=4, Copies:=5, Preview:=True)
　　　Stop
　　打印前把指定的打印机关闭，可测试返回值

　　Sheets.PrintPreview 方法
　　按对象打印后的外观效果显示对象的预览
　　语法: PrintPreview (EnableChanges)
　　　EnableChanges 可选 Variant 传递 Boolean 值，以指定用户是否可更改边距和打印预览中可用的其他页面设置选项。
　　　缺省情况下，EnableChanges的值为True。

　　　当传递的值为False时，在预览窗口中的显示边距选项，页面设置均为灰色不可选状态，也就无从修改页边距和页面设置了。

　　示例：
　　　Sheets("Sheet1").PrintPreview

　　　ActiveSheet.PrintPreview与 ActiveSheet.PrintPreview True 所实现的效果是一样的。

　　Sheets.Select 方法
　　选择对象
　　语法：Select(Replace)
　　　Replace 可选 Variant （仅用于工作表）如果为 True，则用指定的对象替换当前所选内容如果为 False，则扩展当前所选内容以包括以前选择的对象和指定的对象。缺省情况下，Replace参数为True。通过传递False，实现多选工作表。
　　示例：
　　　Sheets(1).Select
　　　MsgBox "当前窗口中选中的工作表数量：" & ActiveWindow.SelectedSheets.Count
　　　Sheets(2).Select False
　　　MsgBox "当前窗口中选中的工作表数量：" & ActiveWindow.SelectedSheets.Count
　　　Sheets(3).Select False
　　　MsgBox "当前窗口中选中的工作表数量：" & ActiveWindow.SelectedSheets.Count

　　Window.SelectedSheets 属性返回一个 Sheets 集合，该集合表示指定窗口中所有选定工作表

justawaylife

顶一个，虽然还不懂

kaka1688

谢谢学习了

yewei113

下载， 存档

我的一生141314

顶一个，虽然还不懂

tingfeng461002

含月化烛

学习了

ANDY0393

Window.SelectedSheets 属性返回一个 Sheets 集合，该集合表示指定窗口中所有选定工作表
谢谢分享，标记，四十四