Word 自动选择打印机打印

wuxixyf

亲问如何实现

点击打印按钮，如果文件名称是a, 自动用a 打印机打印， 如果文件名称是b, 自动用b打印机打印。

多谢

守柔

实现的方法有很多，这是一个修改WORD命令的代码，如果想做得更好一些，可以使用类模块，指向WORD.APPLICAITON,然后使用BEFOREPRINT事件中修改.

请参:

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-14 6:11:34 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub FilePrintDefault() Dim FileNameA As String, FileNameB As String With ActiveDocument If .Name = FileNameA Then Application.ActivePrinter = "AGFA-AccuSet v52.3 on LPT1:" ElseIf .Name = FileNameB Then Application.ActivePrinter = "Tencent Virtual Printer on LPT3:" Else End If .PrintOut End With End Sub '----------------------

konggs

Sub editpaste() ActiveDocument.TypeText Text:="Hello word" Selection.Range.PasteSpecial DataType:=wdPasteHTML End Sub

老大，经常看到人家说复制后出现“hello word”的小玩意。我这么做，怎么不行啊。

守柔

以下是引用konggs在2005-8-14 9:21:23的发言：

Sub editpaste() ActiveDocument.TypeText Text:="Hello word" Selection.Range.PasteSpecial DataType:=wdPasteHTML End Sub

老大，经常看到人家说复制后出现“hello word”的小玩意。我这么做，怎么不行啊。

不太明白，我也没有听说过？复制后出现？还是粘贴后出现？

出现在哪里？文本中，是前还是后，还是单独一段？还是对话框中（MSGBOX中）？

你说明白些，应该非常简单地。

konggs

应该是粘贴时。在剪贴板中文本的前面。

如复制“123”，粘贴时出现“hello word 123”这样的效果。这样做？

守柔

做了两个示例，供参考：

Sub EditPaste() Dim MyRange As Range Set MyRange = Selection.Range Selection.PasteAndFormat (wdPasteDefault) MyRange.InsertBefore "Hello Word!" End Sub Sub EditPaste() With Selection .InsertAfter "Hello Word!" .Collapse direction:=wdCollapseEnd .PasteAndFormat (wdPasteDefault) End With End Sub

konggs

谢谢老大的代码

第二方法的这一句我不懂 .Collapse direction:=wdCollapseEnd

如果在hello word后面另起一行的话，加上 & Chr(13) 手工换行的话 chr(10)

对否？

守柔

对。

第一个代码中，不使用SELECTION对象，则MyRange 对象的位置是固定的，它就是先前的光标所在位置，如果是选定文本的话，则在选定文本前插入这个文本，请注意善用InsertBefore和InsertAfter.

第二个代码中， .Collapse direction:=wdCollapseEnd是折叠到所选内容的最后位置，注意，SELECTION对象是个可变对象，也就是说如果当前SELECTION是个光标时，Selection.InsertAfter "Hello Word!"后，SELECTION已自动选定这个插入文本的内容，相当于扩展了光标位置，此时如果粘贴的话，当然会覆盖原文本内容，所以需要折叠到最后，你就当理解为使用了END键。

konggs

感谢老大的指点。

我就先学第一个代码好了。第二个以后再学。(现参不透)

还是复制下来，以来多看看吧。