Paper Type codes for VBscript Macro

[Jennifer Q]

I would like to create a macro that will quickly assign a paper tray or
paper type to a document.

This is the code:
Sub tray()
With ActiveDocument.PageSetup
..FirstPageTray = wdPrinterManualFeed
..OtherPagesTray = wdPrinterManualFeed
End With
End Sub

But what I am missing are the codes for paper trays besides the Manual Feed.
I would also like to know the code for Letterhead type and Bond type.

Can anyone help out?

Thanks,
Jeni

 

[old man]

Hi,

this is from URL -
http://pubs.logicalexpressions.com/pub0009/LPMArticle.asp?ID=101

Value Word
Constant Name

0
wdPrinterDefaultBin

1
wdPrinterOnlyBin

1
wdPrinterUpperBin

2
wdPrinterLowerBin

3
wdPrinterMiddleBin

4
wdPrinterManualFeed

5
wdPrinterEnvelopeFeed

6
wdPrinterManualEnvelopeFeed

7
wdPrinterAutomaticSheetFeed

8
wdPrinterTractorFeed

9
wdPrinterSmallFormatBin

10
wdPrinterLargeFormatBin

11
wdPrinterLargeCapacityBin

14
wdPrinterPaperCassette

15
wdPrinterFormSource