TheTruster's Box

Visual Basic 6, come è noto, consente di creare anche applicazioni di tipo gestionale. Questo tipo di software deve possedere in molti casi, la possibilità di stampare documenti, resoconti, prospetti, lettere commerciali e quant'altro.

Nonostante VB6 disponga comunque di un buon seppur leggermente criptico sistema di reporting, a volte questo può non bastare per le proprie necessità, soprattutto se si desidera uno stile fortemente personalizzato sulle stampe da produrre.

La metodologia che vorrei esporre in questo articolo è quella di creare i propri modelli in Word, ottenendo così la possibilità di personalizzazioni piuttosto variegate, che contemplano ad esempio formattazioni particolari sia dei caratteri che dei paragrafi in genere, l'inserimento di tabelle, immagini, forme e così via.

L'unica accortezza che è necessario utilizzare è l'utilizzo dei Campi Modulo, nei punti dove sarà necessario inserire i dati provenienti dalla nostra applicazione, così che possano essere identificati e valorizzati.

Apriamo quindi il nostro Microsoft Word (va sicuramente bene qualsiasi versione dalla 2000 in poi) e iniziamo a scrivere, ad esempio, una lettera commerciale per ricordare ad un nostro cliente che la sua polizza assicurativa è scaduta:

Come dicevo prima, avremo l'accortezza di inserire, nei punti in cui sarà necessario inserire i dati relativi al cliente o alla polizza, dei Campi Modulo reperibili visualizzando la barra degli strumenti Moduli. Qualora non fosse già presente, per visualizzarla andiamo sul menu Visualizza -> Barre degli Strumenti -> Moduli.

Diventerà visibile la seguente barra e l'icona adeguata per l'inserimento di un Campo Modulo è la prima a sinistra (nel cerchio rosso)

Ogni campo inserito andrà adeguatamente rinominato, al fine di identificarlo in maniera esatta da codice, una volta terminato il modello. Per questo scopo possiamo fare doppio click sul campo da rinominare. Si aprirà la finestra delle impostazioni per il campo di testo, quindi nella sezione Impostazioni Campo variamo il contenuto del campo Segnalibro attribuendo il nome che riteniamo più opportuno.

Per esercizio, anzichè creare un modello da zero, si può prendere a base il documento Word fornito a corredo dell'articolo che contiene, opportunamente predisposti e nominati, dei campi di esempio.

A questo punto, per evitare modifiche indesiderate alla lettera-modello, si può "bloccare" il testo, lasciando comunque invariata la possibilità di editare i campi di testo. Per bloccare il modello basta cliccare l'icona del lucchetto sulla barra degli strumenti Moduli

Saviamo pure il documento, nominandolo opportunamente, per il futuro uso da Visual Basic.

Per rendere ancora più semplice l'attuazione di questo metodo, ho incluso nel progetto di esempio relativo all'articolo anche un Database Access (.mdb) contenente 2 clienti e 2 polizze. Ovviamente il DB è assolutamente scarno e adatto all'esclusiva funzionalità esplicativa che l'articolo intende avere.

Ci interfacceremo a questo DB da Visual Basic utilizzando il modello ad oggetti ADO, per cui sarà bene ricordarsi inserirlo tra i riferimenti in Visual Basic, prima di iniziare a scrivere il codice. Non sarà necessario farlo, in quanto già inserito, nel caso in cui si usi il progetto Visual Basic fornito in allegato.

Da VB6 è veramente semplice accedere ai campi modulo precedentemente inseriti, poichè si utilizzerà l'automazione OLE per definire da codice un'istanza di Word, sfruttando così il modello ad oggetti fornito dal pacchetto Office. Attraverso l'automazione possiamo accedere ad ogni singolo oggetto, proprietà e metodo dell'applicazione e, di conseguenza, anche ai campi modulo, visto che fanno parte di una Collection denominata FormFields che è possibile indirizzare sia numericamente che - cosa più importante - attraverso il segnalibro impostato in fase di definizione dei campi.

Un esempio per tutti:

wDoc.FormFields("tLuogo").Result = "Sede della Ditta"

wDoc, come si vedrà nel codice di esempio in allegato, definisce l'istanza di Word aperta da codice.

L'applicazione VB6 è anch'essa ridotta all'essenziale e consta di un solo Form che ospita una ListBox e 2 pulsanti.

La ListBox viene popolata con i dati presenti sul DB utilizzando un Recordset ADO e un ciclo While, mentre la compilazione vera e propria del modello Word, è affidata al codice presente nell'evento Click di uno dei pulsanti:

 
Private Sub cmdCompila_Click()
 
Dim wApp As Object
Dim wDoc As Object
Dim SQL As String
Dim rsPolizza As ADODB.Recordset
Dim rsCliente As ADODB.Recordset
Dim sNomeLettera
 
'Apro il recordset della polizza selezionata
Set rsPolizza = New ADODB.Recordset
SQL = "SELECT * FROM tPolizze WHERE IDPolizza = " & lstPolizze.ItemData(lstPolizze.ListIndex)
rsPolizza.Open SQL, cnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
 
'Apro il recordset del cliente relativo alla polizza selezionata
Set rsCliente = New ADODB.Recordset
SQL = "SELECT * FROM tAnagrafica WHERE IDCliente = " & rsPolizza("rifIDCliente").Value
rsCliente.Open SQL, cnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
 
'Apro il file Word del Modello della Lettera
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open(App.Path & "\LetteraEsempio.doc")
 
'Compilo i campi non corrispondenti al recordset
wDoc.FormFields("tNumPolizzaOgg").Result = rsPolizza("NumPolizza").Value
wDoc.FormFields("tIntestazioneLett").Result = rsCliente("Cognome").Value & " " & rsCliente("Nome").Value
wDoc.FormFields("tLuogo").Result = "Sede della Ditta"
wDoc.FormFields("tData").Result = Date 'Adesso
wDoc.FormFields("tTermineMax").Result = DateAdd("y", 20, Date) ' Tra 20 giorni da adesso

On Error Resume Next 'Salta l'errore se un campo non esiste

'Con un ciclo riempio i campi corrispondenti sul file di Word
For i = 0 To rsCliente.Fields.Count - 1
    wDoc.FormFields("t" & rsCliente.Fields(i).Name).Result = rsCliente.Fields(i).Value
Next i
 
For i = 0 To rsPolizza.Fields.Count - 1
    wDoc.FormFields("t" & rsPolizza.Fields(i).Name).Result = rsPolizza.Fields(i).Value
Next i
 
On Error GoTo 0 'Ripristina il gestore degli errori

'Salvo la lettera compilata con il nome scelto dall'utente
sNomeLettera = InputBox("Specificare il nome della lettera")
 
If Not sNomeLettera = "" Then
    wDoc.SaveAs App.Path & "\" & sNomeLettera
End If
 
'Chiudo il documento Word e annullo le variabili
wDoc.Close (False)
wApp.Quit
Set wDoc = Nothing
Set wApp = Nothing
 
'Chiudo i Recordset e annullo le variabili
rsCliente.Close
rsPolizza.Close
Set rsCliente = Nothing
Set rsPolizza = Nothing
 
End Sub
 

Come si può notare, innanzitutto vengono definiti gli oggetti indispensabili all'operazione di compilazione, ovvero l'applicazione Word, il Documento e i Recordset relativi al Cliente e alla Polizza, quindi vengono aperti i Recordset con opportune frasi SQL, sulla base della selezione effettuata sulla ListBox.

Il documento Word viene aperto con 2 semplici righe:

 
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open(App.Path & "\LetteraEsempio.doc")
 

Considerato che per definire i Campi Modulo di Word ho utilizzato gli stessi nomi dei campi presenti nelle tabelle del DB, aggiungendo una "t" come prefisso, riesce particolarmente semplice popolare il documento con un ciclo For...Next.

Per evitare errori sui campi che sul documento Word non verrebbero trovati (IDCliente, rifIDCliente, IDPolizza) ho attivato un gestore di errori (On Error Resume Next) che permette di ignorare l'errore, qualora si presenti. In questo caso l'uso l'uso di On Error Resume Next è sicuro e controllato, perchè l'unico errore che può presentarsi nella circostanza in cui viene usato è la mancanza di un nome di campo, ed è proprio quello che vogliamo ignorare.

Alla fine dei cicli, infatti, l'esposizione degli errori viene ripristinata con On Error Goto 0

Terminata la valorizzazione dei campi del documento, viene richiesto un nome di file, che servirà per salvare il modello con un altro nome, conservando così la copia originale.

Ovviamente, in una situazione reale si potrà prevedere una gestione più articolata del documento risultante, implementando, ad esempio, la stampa del modello ottenuto, piuttosto che il salvataggio in un'altra cartella attraverso una CommonDialog o l'invio tramite posta elettronica.

Non esitate nel fornire i vostri commenti, in caso vogliate farmi presente delle inesattezze o per richiedere ulteriori spiegazioni, in merito all'argomento trattato.

Scarica il Progetto di Esempio relativo a questo Articolo