[AccessD] Printing a word document from Access

Well, that might work.

I still think there should be a way to open a file read-only without getting
that prompt when someone else has the file open.

-----Original Message-----
From: Hale, Jim [mailto:Jim.Hale at fleetpride.com]
Sent: Wednesday, June 28, 2006 10:23 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Printing a word document from Access


How about making a temp copy of the file, open and print and then delete.
Not elegant but should do the trick. HTH
Jim Hale

-----Original Message-----
From: rusty.hammond at cpiqpc.com [mailto:rusty.hammond at cpiqpc.com]
Sent: Wednesday, June 28, 2006 9:54 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Printing a word document from Access


Thanks Marty but I still get the prompt if the file is already opened
elsewhere.  Any other ideas?


-----Original Message-----
From: MartyConnelly [mailto:martyconnelly at shaw.ca]
Sent: Tuesday, June 27, 2006 6:08 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Printing a word document from Access


You don't need the newDoc  object try something like

 Set AppObject = CreateObject("Word.Application")
    AppObject.DisplayAlerts = False
    '**** In the following line, if the file is already open we get an 
error ****
    AppObject.Documents.Open MyFilePath, False, True
   AppObject.Visible = False
'lots of options available here
   AppObject.PrintOut _
        Background:=False, _
        Append:=False

rusty.hammond at cpiqpc.com wrote:

>Using Access 97 and Word 2000, I simply want to open a word or rich text
>format (.rtf) file and print it.  If someone already has the file open,
Word
>pops up a dialog saying the file is locked for editing and I have to choose
>to open it Read-Only, Notify me when it is closed or Cancel the request.
If
>I click on the Read Only button the file is opened and printed and I'm on
my
>merry way, BUT I need the printing to be automated.  Is there a way to
>suppress this prompt?  I'm already telling word to open the document read
>only but it doesn't help - any ideas?
>
>Sample code follows:
>
>Function PrintWordDoc()
>
>    Dim AppObject As Object
>    Dim NewDoc As Object
>    
>    Set AppObject = CreateObject("Word.Application")
>    AppObject.DisplayAlerts = False
>    '**** In the following line, if the file is already open we get an
error
>****
>    Set NewDoc = AppObject.Documents.Open("c:\logs\rptNewCash.rtf", False,
>True)
>    NewDoc.PrintOut False
>    NewDoc.Close
>    AppObject.Quit
>    Set AppObject = Nothing
>
>End Function
>
>
>Rusty Hammond
>IT Dept. - B-20
>CPI Qualified Plan Consultants, Inc.
>(620) 793-8473 ext. 416
>rusty.hammond at cpiqpc.com

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************