VBA ActiveDocument.Printout Append problem

  • Thread starter Thread starter DaveInLV via AccessMonster.com
  • Start date Start date
D

DaveInLV via AccessMonster.com

I have Windows XP Pro and Office 2000 Premium.

I am creating MS-Word documents by modifying bookmarked areas in template
documents with data from a MS-Access query. I am using an application object
for this purpose.

Public objWord As Word.Application

When I create and save the documents separately with:

objWord.ActiveDocument.SaveAs DocSaveName

it works fine.

However, if I loop over the document generation routine and try to append
them all into a single file with:

If DocNo = 1 Then 'The first file
.ActiveDocument.PrintOut Background:=False, Append:=False, OutputFilename:
=DocSetSaveName, PrintToFile:=True
Else 'All other files
.ActiveDocument.PrintOut Background:=False, Append:=True, OutputFilename:
=DocSetSaveName, PrintToFile:=True
End If

then the output file is way oversized and MS-Word can't even read it. This
happens even if I have only one document.

Has anyone else encountered this problem?

Thanks.

Dave
 
Back
Top