View Single Post
 
Old 05-23-2022, 05:34 AM
Ian_WB Ian_WB is offline Windows 11 Office 2013
Novice
 
Join Date: May 2022
Posts: 1
Ian_WB is on a distinguished road
Default Printing different sections of a document from different printer trays

Hi,

I need to be able to print the first section of a word document from one tray, but the rest of the sections from another tray. I have managed to do this on a document that we know how many sections. I have tried to do this, but the first 2 sections come out from one tray and the third from the different tray.

Any ideas where I may have gone wrong? This is my macro:

Sub Section()
'
' Section Macro
'
'
With Selection.PageSetup
.FirstPageTray = wdPrinterLowerBin
.OtherPagesTray = wdPrinterLowerBin
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="S1", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End With
With Selection.PageSetup
.FirstPageTray = wdPrinterMiddleBin
.OtherPagesTray = wdPrinterMiddleBin
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="S2-S10", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End With
End Sub

Thanks
Ian
Reply With Quote