DOC WORD - Stampa automatica

Question

Buongiorno,

Ho realizzato un modulo VB che apre word e crea un documento con tutti i dati, il documento si genera da un template di word, funziona tutto, quello che volevo e far stampare e chiudere word (non serve salvarlo) è possibile?

Che comandi devo usare?

Grazie

Laura

Answer 1

Ho un problema, con il comando 

xWord.Application.Quit SaveChanges:=wdDoNotSaveChanges

il processo non stampa o meglio il pdf è illeggibile (ora stampo su file PDF per le prove) 

Questo fa bloccare anche access 

Potete aiutarmi 

Grazie

Answer 2

Intendevi cosi? (considera che non sono una molto esperta)

Private Sub Document_open()

Set xWord = Word.Application

Options.PrintBackground = True

xWord.ActiveDocument.PrintOut

' Chiudi il documento senza salvare

' xWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

' Oppure

' Chiudi WORD senza salvare il documento

xWord.Application.Quit SaveChanges:=wdDoNotSaveChanges

xWord.Quit

Set xWord = Nothing

End Sub

Answer 3

ciao Laura,

ricordati anche di distruggere l'istanza creata...solo qualora te ne sia scoradata e passa al late binding una volta finito lo sviluppo.

Ciao, Sandro.

Answer 4

Grazie Sandro,

sono riuscita, ho anche inserito il comando per chiudere word quello che non sono riuscita è far eseguire all'aperture del foglio di word

Private Sub Document_open()

Options.PrintBackground = True

ActiveDocument.PrintOut

' Chiudi il documento senza salvare il documento 

' ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

' Oppure

' Chiudi WORD senza salvare il documento

Application.Quit SaveChanges:=wdDoNotSaveChanges

End Sub

Answer 5

ciao Laura,

vedi se questo ti aiuta :

https://docs.microsoft.com/en-us/office/vba/api/word.options.printbackground

Ciao, Sandro.