[已解决]word中用VBA命令打印当前页，偶而有不成功的现象

yjwdjfqb

word中用VBA命令打印当前页，偶而有不成功的现象

Sub 打印当前页()
    Dim n As String
    n = Selection.Information(wdActiveEndPageNumber)
    ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:=n
End Sub


上面的代码在word中用VBA命令打印当前页，但有时候，打印机没有反应，打印不成功，有时候，又能打印出来；
我也考虑到是否打印机问题，经用word中自带的打印命令测试，打印机是没有问题的。
为什么用上面的代码有时候可以，有时候不行，请老师们帮帮忙，或者重新帮帮写个　打印word中当前页的命令。

谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-11-3 18:37

1.     Application.PrintOut Range:=wdPrintCurrentPage, Item:= _
   
2.         wdPrintDocumentWithMarkup, Copies:=1, PageType:= _
   
3.         wdPrintAllPages, PrintToFile:=False
   

复制代码

跳转到最佳答案楼层

hwc2ycy

直接录制一个打印当前页的宏吧。

hwc2ycy

1.     Application.PrintOut Range:=wdPrintCurrentPage, Item:= _
   
2.         wdPrintDocumentWithMarkup, Copies:=1, PageType:= _
   
3.         wdPrintAllPages, PrintToFile:=False
   

复制代码