Creating Word Document

[vr]

I am creating a letter in Word 2000 via Access VBA. It all works fine, except, I need to set the paper source to manual feed for printing. Can anyone help? This is a new word object, not a Word Merge.

Here is a sample of the code:

Set oApp = New Word.Application
Set wDoc = oApp.Documents.Add
oApp.Visible = True

With wDoc
.PageSetup.LeftMargin = 90
.PageSetup.RightMargin = 90
.PageSetup.TopMargin = 100
.Range.Font.Name = "Arial"
.Range.Font.Size = 11
End With

With oApp
.Selection.TypeText Format(Now(), "mmmm d, yyyy&quot
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeText "blah blah blah"
End With



Thanks!

 

[GoodOmens]

My firm is still using Word 97 but the following probably still applies:

To set the document to a manual feed (this setting is saved with the document)
With wDoc
.PageSetup.OtherPagesTray = 4 'wdPrinterManualFeed
.PageSetup.FirstPageTray = 4 'wdPrinterManualFeed
end with

To change the Word default print tray to manual feed:
Options.DefaultTrayID = 4 'wdPrinterManualFeed

If you use this I recommend that you save the DefaultTrayID setting before changing it, then change it back after you print or everything the user prints will expect a manual feed.

Limitations: The manual feed tray number seems dependent on the print driver. The number 4 will probably work for most printers but if I run this code using a postscript print driver for the same printer it does not work because it expects 257 to be the manual feed setting.

 

[VBslammer]

Try This:

With wDoc
    .PageSetup.LeftMargin = 90
    .PageSetup.RightMargin = 90
    .PageSetup.TopMargin = 100
    .PageSetup.FirstPageTray = wdPrinterManualFeed   ' <<<---
    .Range.Font.Name = &quot;Arial&quot;
    .Range.Font.Size = 11
End With

VBSlammer

Unemployed in Houston, Texas

 

[vr]

Thank you both!

Works great!!