Printing different sections of a document from different printer trays

Guessed · #2 05-23-2022, 04:11 PM

Your code is applying the trays to the selection rather than the document as a whole. Try this variation to make the trays independent of the selection when you run the macro.

Code:

Sub Section()
  With ActiveDocument.PageSetup
    .FirstPageTray = wdPrinterLowerBin
    .OtherPagesTray = wdPrinterMiddleBin
  End With
  If ActiveDocument.Sections.Count > 9 Then
    Application.PrintOut Range:=wdPrintRangeOfPages, Item:=wdPrintDocumentWithMarkup, Copies:=1, Pages:="S1-S10", _
          PageType:=wdPrintAllPages, Collate:=True
  Else
    Application.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentWithMarkup, Copies:=1, _
          PageType:=wdPrintAllPages, Collate:=True
  End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Print to Multiple Printer Trays...and Printers	RMittelman	Word VBA	4	01-02-2020 05:09 PM
Printing a document with multiple sections with different headers and footers	Finster	Word	2	01-09-2019 07:13 AM
Printing - merged document, multiple sections	nikkifox	Word	2	04-09-2013 12:54 AM
Printing Sections of a Word Document	Andy Jenkinson	Word	4	02-12-2010 02:53 AM
Document with selective sections printing	krismason	Word	0	07-09-2009 03:30 AM