中级问题，VBA能不能在打印前，取得要打印的份数，页码等信息？

tan133 · 发表于 2015-3-28 00:59

中级问题，VBA能不能在打印前，取得要打印的份数，页码等信息？
起因是这样的
单位有台打印机，单面打印
同事打印时老是记得翻纸的面，却忘记了修改打印的纸
导致打印时，正反两面都打成了同样的内容
从而造成了纸张的浪费
作为一个VBA爱好者，我在想能不能通过VBA在打印时存一下当前打印的文件，页码
下次打印前和比较，如果页码和上次的相同，则弹窗警告修改

我找到了这样的事件
Private Sub Application_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
却没有在里面找到任何可以取得打印页码等信息的内容
一个一个的看到Document的属性，好象也没啥头绪
现求教大家：
如何才能在打印前取得页数，份数等信息，以便选择性放行或者弹窗警告

ctp_119 · 发表于 2015-3-28 09:52

ExecuteExcel4Macro("Get.Document(50)")
试试这个

tan133 · 发表于 2015-3-28 16:26

本帖最后由 tan133 于 2015-3-28 16:37 编辑

ctp_119 发表于 2015-3-28 09:52
ExecuteExcel4Macro("Get.Document(50)")
试试这个

谢谢版主的及时回答
在WORD2010中，没有找到ExecuteExcel4Macro这个函数啊
仔细看了函数名，好象是支持EXCEL的
用EXCEL2010打开的一看，嘿，真的是支持EXCEL的
而且只是支持查看打印总数，
我要的效果是
假设原文档有1000页
打印的时候如果我选了 1-4,6-10,我就要获取这个1-4 6-10
或者有办法直接获取要打印的文档总页数，更好
请不吝赐教

ctp_119 · 发表于 2015-3-28 16:55

不熟悉word的VBA，不好意思！！！可以搜下。

tan133 · 发表于 2015-3-28 17:57

还是非常感谢，但对C#不熟，不知道能不能重载PrintOut
beforePrint事件中，又没有页码相关的对象

413191246se · 发表于 2015-3-30 09:22

本示例打印活动文档的当前页面。

ActiveDocument.PrintOut Range:=wdPrintCurrentPage
本示例打印当前文件夹中的所有文档。Dir 函数用于返回所有扩展名为“.doc”的文件名。

adoc = Dir("*.DOC")
Do While adoc <> ""
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
本示例打印活动窗口中文档的前三页。

ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
本示例打印活动文档中的备注。

If ActiveDocument.Comments.Count >= 1 Then
ActiveDocument.PrintOut Item:=wdPrintComments
End If
本示例将打印活动文档，每张纸上打印六页文档。

ActiveDocument.PrintOut PrintZoomColumn:=3, _
PrintZoomRow:=2
本示例按实际尺寸的 75% 打印活动文档。

ActiveDocument.PrintOut _
PrintZoomPaperWidth:=0.75 * (8.5 * 1440), _
PrintZoomPaperHeight:=0.75 * (11 * 1440)

tan133 · 发表于 2015-4-1 13:00

413191246se 发表于 2015-3-30 09:22
本示例打印活动文档的当前页面。

ActiveDocument.PrintOut Range:=wdPrintCurrentPage

谢谢你的解答，打印的代码我会，
我的问题的关键，
如果不能取得鼠标点击发送的打印指令有哪些页码，
那如何屏蔽系统本身的打印菜单并用我自己的菜单取代（2003估计也简单，RIBBON自带的菜单如何用代码屏掉？）
这样我就可以自己写一个打印窗口代替也就可以控制打印页数了

413191246se · 发表于 2015-4-2 09:32

楼主，人们都想不打开文档而打印，但我觉得做不到，WORD2003总是打开文档后才打印。你的问题，我没看明白（我现在打印单个文档，都是按F9键，它代表《打印文档关闭不保存》宏）。

tan133 · 发表于 2015-5-5 16:20

本帖最后由 tan133 于 2015-5-5 16:22 编辑

413191246se 发表于 2015-4-2 09:32
楼主，人们都想不打开文档而打印，但我觉得做不到，WORD2003总是打开文档后才打印。你的问题，我没看明白（ ...

我不是要不打开文档操作
我的问题很简单，流程如下
一，我打开了某个文档，我要打印
二，我打印的时候要发送打印范围
三，如果，一文档400页，而我只需要其中一两页，忘记选范围，则会打全部400页，造成纸张的浪费
四，我就是想要在我点下打印指令后，在系统开始打印前，获取我发送的打印指令，防止各马大哈老是误操作，纸不算贵，可老是这么浪费也不好吧？

413191246se · 发表于 2015-5-5 20:35

楼主，最简单的办法是：你点：工具菜单——自定义——文件——把“打印..."这个按钮，拖动到工具栏上，并且编辑一下这个按钮，在原有图标的基础上，四周画上红色或蓝色，以后打印时，不要按第6个打印按钮，而直接按这个按钮，相当于按CTRL+P，就每次必选打印范围了！（另外，要是用自定义宏代替打印命令，也许可以，但屏蔽内部命令不好！）

		自动登录	找回密码
密码			免费注册