求救~!!!!关于WORD打印。。。我想在WORD文档上方蒙上一层自己的位图，一并打印出来，该如何做?

[ChocoboY]

是这样的.最近在做手写批注控件,想把手写信息和WORD一并打印出来!请大大们给个思路,该如何做

[liuxianzhi]

gz!
只会打印，不会蒙上一层。

[huaboy408]

不懂，是不是跟水印似的

mark

[ChocoboY]

找不到办法，真的只能用水印了。
其实就是在WORD 内容和手写图案混在一起 打印出来。
我现在的做法，就是在WORD现有内容上蒙上一层透明窗口，用鼠标在上面圈圈画画，然后想把这些圈圈画画的信息和WORD一并输出打印

[yuyuhaso]

就象哪个很牛B的NIKO什么的控件一样吧(我用总是能死机)
现在最主要的问题不是如何蒙,而是蒙在那里?
就是说要取得文档的位置;
光是加一张图你可以使用这个:
expression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)
但是他的LEFT和TOP是指的文档位于DOCUMENT的坐标,所以重要的是取得你要添加图象的文挡坐标(不是SCREEN的坐标)
不知道哪位兄台可以解决呢

[yuyuhaso]

本示例为活动文档添加一幅图片，该图片链接到原始文件并与文档一起保存。

Sub NewPicture()
ActiveDocument.Shapes.AddPicture _
FileName:="C:\Program Files\Microsoft Office\" _
& "Office\Bitmaps\Styles\stone.bmp", _
LinkToFile:=True, SaveWithDocument:=True
End Sub

[ChocoboY]

自己UP一下

[wingedsteed]

不会,帮顶.

[ChocoboY]

文档坐标-o-，我现在给那个可恶的滚动条折磨的快不行了..
我的办法是挂上钩子获取滚动条的信息..就是这个得不到比较准确的位置..
可以这样做,用VBA控制WORD翻页,每翻一页,这时窗口TOP坐标也就是页TOP坐标(可能有1,2个象素偏差)
然后LEFT坐标 (页面100%情况显示的话,且窗口宽度大于页面宽度) 应该是窗口WIDTH - PAPERWIDTH(这个VBA可获得).然后在把图往上贴,有多少页就重复多少次这样的动作.-o-
给我的任务取消了,短期之类,我做不到像他们那样全的功能,这个留给自己做着玩了.另外,我可以转正了,谢谢大伙帮助.稍后散分

[sjzxyg]

手写批注实际没有一点用途的，不信，你设置成80％显示，然后批注，再显示100％看看，呵呵

[ChocoboY]

TO 小小鸟
不知道你看过优泰的手写批注控件没..可以缩放批注,缩放50%以后(同时显示两页),墨迹照样显示,不错位(微小的错位还是有的-o-)..