能否自动打印目录内的第一页或第二页文档资料？

sblisb

目录下有多个word文件，每个文件中只有两页，想正反两面打印出来，有什么好办法？
能不能做个宏自动打印所有的文档的第一页，然后手动调纸张再来打印第二页？

pureshadow

宏倒是不用，在文件夹里选取多个文件后右击，有个打印按钮，点一下就一张一张自己打印了。
这种打印是连续的，如果想手动双面，那就守在打印机旁，打印机里只放一张纸，一张打好了再手动翻页。

daibao88

2楼的方法吧
一旦卡纸或连续出纸排放乱，可能前功尽弃

sblisb

pureshadow 发表于 2018-1-18 19:40
宏倒是不用，在文件夹里选取多个文件后右击，有个打印按钮，点一下就一张一张自己打印了。
这种打印是连续 ...

打印机打双面要手动，麻烦呀
有很多文档，每张纸都要手动翻一面，所以想能不能把第一页和第二页分两次来打印，这样就只要手动翻动一次就可以了

leikaiyi123

可以考虑用宏合并成一个文档后再打

sblisb

leikaiyi123 发表于 2018-1-24 16:49
可以考虑用宏合并成一个文档后再打

有没例子参考下？

不经意的回头

daibao88 发表于 2018-1-20 21:58
2楼的方法吧
一旦卡纸或连续出纸排放乱，可能前功尽弃

可以先打印到XPS，再从打印机输出，卡纸也不用怕

sblisb

合并目录下的word文件
Sub Macro1()
    Dim p$, f$, w As Object
    Application.Visible = False
    Set w = ActiveDocument
    p = w.Path & "\"
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    f = Dir(p & "*.doc")
    Do While f <> ""
        If f <> w.Name Then
            With Documents.Open(p & f)
                Selection.WholeStory
                Selection.Copy
                w.Activate
                Selection.PasteAndFormat (wdPasteDefault)
                .Close
            End With
        End If
        f = Dir
    Loop
    Application.Visible = True
End Sub