Print word document from VBA

[dgillz]

I am trying to print a word document from vba, but I keep getting an "Object variable or with block variable not set" error. Here is my code, the line in red is where I am getting the error:

Private Sub btn1_click
  Dim objDoc As Word.Document
  Dim objWord As Word.Application
  
  CreateObject ("Word.Application")
  [red]Set objDoc = objWord.Documents.Open("C:\MyDirectory\12345.doc")[/red]
  
  objDoc.PrintOut
  objWord.Quit
End Sub

Any insight on what the problem is would be appreciated.

Software Training, Implementation, Programming and Support for Macola Progression, Macola ES, Synergy, and Crystal Reports. Check out our Macola tools:

http://www.gainfocus.biz/exceladdin.html

 

[combo]

You have not instantiated objWord. Modify the line with CreateObject:
Set objWord=CreateObject("Word.Application")


combo

 

[dgillz]

I did that and now I have "Run time error 429 - ActiveX component cannot create object".

Software Training, Implementation, Programming and Support for Macola Progression, Macola ES, Synergy, and Crystal Reports. Check out our Macola tools:

http://www.gainfocus.biz/exceladdin.html

 

[SkipVought]

please post your most current code.

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[dgillz]

Private Sub btn1_click

Dim objDoc As Word.Document
Dim objWord As Word.Application

[red]CreateObject ("Word.Application")[/red]
Set objDoc = CreateObject("WordApplication")
Set objDoc = objWord.Documents.Open("C:\MyDirectory\12345.doc")

objDoc.PrintOut
objWord.Quit​

End Sub


Software Training, Implementation, Programming and Support for Macola Progression, Macola ES, Synergy, and Crystal Reports. Check out our Macola tools:

http://www.gainfocus.biz/exceladdin.html

 

[SkipVought]

Private Sub btn1_click

   Dim objDoc As Word.Document
   Dim objWord As Word.Application

   Set [highlight #FCE94F]objWord[/highlight] = CreateObject("WordApplication")
   Set objDoc = objWord.Documents.Open("C:\MyDirectory\12345.doc")

   objDoc.PrintOut
   objWord.Quit
End Sub

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[Andrzejek]

Shouldn’t that be:

Private Sub btn1_click

   Dim objDoc As [blue]Object[/blue]
   Dim objWord As [blue]Object[/blue]

   Set objWord = CreateObject("Word[highlight #FCE94F].[/highlight]Application")
   Set objDoc = objWord.Documents.Open("C:\MyDirectory\12345.doc")

   objDoc.PrintOut
   objWord.Quit
End Sub

???

Have fun.

---- Andy

A bus station is where a bus stops. A train station is where a train stops. On my desk, I have a work station.