[已解决]Sub 打印word所选内容()

yjwdjfqb

Sub 打印word所选内容()
    Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

上面这个是录制得到的，麻烦朋友们帮我精简下好吧，谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-10 10:06

1. Sub 打印word所选内容()
   
2.     Application.PrintOut Range:=wdPrintSelection, Item:= _
   
3.                          wdPrintDocumentContent, Copies:=1, PageType:=wdPrintAllPages, _
   
4.                           Collate:=True, Background:=True
   
5. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub 打印word所选内容()
   
2.     Application.PrintOut Range:=wdPrintSelection, Item:= _
   
3.                          wdPrintDocumentContent, Copies:=1, PageType:=wdPrintAllPages, _
   
4.                           Collate:=True, Background:=True
   
5. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2014-3-10 10:06

谢谢版主！

victory610

学习了，非常实用。

雨玥

谢谢