Question

我正在制作一个打印第1页的宏从一个带纸的纸盘和另一个纸盘的所有其他页面。

除了打印机双面打印机之外，它还可以正常工作，因此它可以从前面和上下颠倒。

有没有办法让它不会上升并可能将页面上的所有内容旋转180度？

或使用acPRDPSimplex

禁用双面打印

以下是代码：

Sub PrintHeaded()
findprinter
Dim VNumberofPages As Integer
ActiveDocument.Repaginate
VNumberofPages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
If VNumberofPages = 1 Then
    vprintrange = "1"
    ActiveDocument.PageSetup.FirstPageTray = LetterHeadTray
Else: vprintrange = "1,2"
   ActiveDocument.PageSetup.FirstPageTray = LetterHeadTray
End If
        Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:=vprintrange, PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0, OutputFileName:="", _
        Append:=False
If VNumberofPages > 2 Then
    vprintrange = "1 - " & VNumberofPages
    With ActiveDocument.PageSetup
        .FirstPageTray = LetterHeadTray
        .OtherPagesTray = PlainPaperTray
    End With
        Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:=vprintrange, PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
        True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0, OutputFileName:="", _
        Append:=False
End If

End Sub

从双面打印机上的不同纸盘打印（Word 2003）

0 个答案: