1

我正在制作一个宏，它从一个纸盘打印第 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

结束子

4

0 回答 0