Selecting Printer Tray for Mail Merge

[cyb3rwolf]

Hello everyone,

I wrote the below function for automatically sending a Mail Merge document
to the printer through access. Depending on which document it is, i want to
send it to a different printer tray. Here is my coding so far. This would
obvioulsy be for the case of send to printer...

Public Function ExMailMerge(Dest As String, DBPath As String, DocPath As
String, strSQL As String, Optional MailSubject As String, Optional EmailField
As String)

Dim objWord As Word.Document
Set objWord = GetObject(DocPath, "Word.Document")

objWord.MailMerge.OpenDataSource Name:=DBPath, LinkToSource:=True,
AddToRecentFiles:=False, _
SQLStatement:=strSQL



Select Case Dest
Case "Letter"
objWord.MailMerge.Destination = wdSendToNewDocument
Case "email"
objWord.MailMerge.MailSubject = MailSubject
objWord.MailMerge.MailAddressFieldName = EmailField
objWord.MailMerge.Destination = wdSendToEmail
Case "Print"

objWord.MailMerge.Destination = wdSendToPrinter
End Select

objWord.MailMerge.Execute
objWord.Close wdDoNotSaveChanges




Set objWord = Nothing

End Function

 

[PieterLinden via AccessMonster.com]

Grab Albert's printer change code from his a little more than temporary web
page...
http://www.members.shaw.ca/AlbertKallal/msaccess/printch2k.zip