[VB6] Creazione e stampa con Word

[angelicab]

nel mio programma devo stampare una serie di documenti word partendo da alcuni dati in archivio ..

Set dbAss = OpenDatabase(App.Path & "\db\db1.mdb")
Set rsVerifiche = dbAss.OpenRecordset(sql)
If Not rsVerifiche.EOF Then
   While Not rsVerifiche.EOF
        
'per copiare il modello
percorso = App.Path & "\file\"
FileCopy percorso & "MOD08_01.doc", percorso & "MOD08_01_mod.doc"

' Apre Word
Set myWord = CreateObject("Word.Application")
' Apre il documento In.doc
myWord.Documents.Add App.Path & "\file\MOD08_01_mod.doc"

' Seleziona il BoookMark con nome FirstBookmark
Set myRange = myWord.ActiveDocument.Bookmarks("nrichiesta").Range
myRange.InsertAfter rapp & "/" & frm_sceltanumerovp.avp

.. altri segnalibri ...

'stampo
myWord.ActiveDocument.PrintOut

'per salvare

myWord.ActiveDocument.SaveAs FileName:=App.Path & "\file\MOD08_01_mod.doc", FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _False

'alla fine chiudo word
myWord.ActiveDocument.Close

Set myWord = Nothing
        

 rsVerifiche.MoveNext
Wend
End If
rsVerifiche.Close
dbAss.Close

in fase di stampa però mi da errore di memoria piena ...
non c'è un modo per eliminare questo problema??

[xam85reBanned]

Bh nn toglie il problema, ma togli pure

If Not rsVerifiche.EOF Then

se rsVerifiche.EOF = true il while non entra.
oppure modificalo così:

If Not rsVerifiche.BOF Then

per via della memoria... acquista più ram..

[angelicab]

grazie