能不能把打印的默认选项设置 成默认当前页而不是全部

涛哥0

如题
能不能把打印的默认选项设置 成默认当前页而不是全部


该贴已经同步到 涛哥0的微博

szh9388

我也想知道，顶你

szh9388

我也想知道，顶你

涛哥0

试过录制一个宏，但保存后再打开的时候宏消失了，提示不能用，不知道是不是我保存的方式不对！

海龙王的窝

Sub 打印当前页()
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage
End Sub
Sub 打印当前节()
' Obtain section number.
Dim sCurSection As String
sCurSection = Selection.Information(wdActiveEndSectionNumber)
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="s" & sCurSection, PageType:=wdPrintAllPages _
        , ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile _
        :=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub
可以新建一个打印当前页或当前节的工具栏，代码如上。

涛哥0

海龙王的窝 发表于 2014-5-12 12:09
Sub 打印当前页()
Application.PrintOut FileName:="", Range:=wdPrintCurrentPage
End Sub

谢谢，不好意思有点晚了