[AccessD] Printing a word document from Access

I just ran this code and it printed out the document without complaint even
when I had the document open in Word.

Admittedly this is with Access and Word XP (2002).

Sub PrintWordDoc(MyFilePath As String)
Dim appObject As Word.Application

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

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
rusty.hammond at cpiqpc.com
Sent: Wednesday, June 28, 2006 10: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.
>**********************************************************************
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.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.
**********************************************************************
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com