学步园

修改 WORD 命令，FILEPRINT，可用于统计打印机或者通过该模板打印了多少纸张

Sub FilePrint()<br /> Dim MyDialog As Dialog, Ps() As String, Pl() As String, PPcount As Integer, PrintSel<br /> As String<br /> Dim S As Integer, N As Integer, H As Integer, Upper As Integer, Lower As Integer,<br /> Cop As Integer<br /> Set MyDialog = Application.Dialogs(wdDialogFilePrint) '定义打印对话框<br /> With MyDialog<br /> If .Show = -1 Then '按下确定按钮<br /> Cop = .NumCopies '返回打印份数<br /> Select Case .Range '打印区域<br /> Case 0<br /> PrintSel = "您选择了打印所有页"<br /> '取得文档总页数<br /> PPcount =<br /> ActiveDocument.Content.Information(wdNumberOfPagesInDocument)<br /> Case 2 '相当于打印光标所在页<br /> PPcount = 1<br /> PrintSel = " 您选择了打印当前第 " &<br /> Selection.Information(wdActiveEndPageNumber) & "页"<br /> Case 4 '选择从第几页到第几页如"1-3,5,9,10-15"<br /> PrintSel = "您选择了打印指定页:" & .Pages<br /> '数组<br /> Ps = Split(.Pages, ",") </p> <p> Upper = UBound(Ps) '上标<br /> Lower = LBound(Ps) '下标<br /> For i = Lower To Upper<br /> N = N + 1<br /> '如果该数组中的某个值中提取有"-"的话<br /> If InStr(Ps(i), "-") > 0 Then<br /> Pl = Split(Ps(i), "-")<br /> S = Pl(1) * 1 - Pl(0) * 1 '直接取得上标和下标数值之差<br /> H = S + H<br /> End If<br /> Next<br /> PPcount = N + H '打印的页数等于单页和连页数之和<br /> End Select<br /> MsgBox PrintSel & ",打印份数为:" & Cop & ",打印的页数为:" & PPcount<br /> & "张," & vbCrLf _<br /> & "实际上产生了" & Cop * PPcount & "张纸.", vbInformation<br /> End If<br /> End With<br /> End Sub