Microsoft Office Forums - View Single Post - documents print setup defined in page setup, but overriden by printer settings. macro required?

gmayor · 02-17-2021, 04:35 AM

Bearing in mind that I don't have access to your printer to check it, the following should work. As I indicated in my web page some printers don't respond to calling the trays by name and require the tray IDs as described on the web page.

In which case Options.DefaultTray would have to be Options.DefaultTrayID and the two IDs would replace the values sLetterhead and sPlain.

I have turned off background printing as this is presumably a shared printer

Code:

Sub PrintToTrays()
Dim sCurrentPrinter As String
Dim sTray As Long
Const sLetterhead As String = "Drawer 3"
Const sPlain As String = "Multi-purpose Tray"

    With Dialogs(wdDialogFilePrintSetup)
        Options.DefaultTray = sLetterhead
        PrintIt "1"

        Options.DefaultTray = sPlain
        PrintIt "2"

        Options.DefaultTray = sLetterhead
        PrintIt "3-5"

        Options.DefaultTray = sPlain
        PrintIt "6-7"

        Options.DefaultTray = sLetterhead
        PrintIt "8"

        Options.DefaultTray = sPlain
        PrintIt "9-999"

        .Execute
    End With
End Sub

Sub PrintIt(sPrintRange As String)
    Application.PrintOut FileName:="", _
        Range:=wdPrintRangeOfPages, _
        Item:=wdPrintDocumentWithMarkup, _
        copies:=1, _
        Pages:=sPrintRange, _
        PageType:=wdPrintAllPages, _
        collate:=True, _
        Background:=True, _
        PrintToFile:=False, _
        PrintZoomColumn:=0, _
        PrintZoomRow:=0, _
        PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub