Stampa dati da Form a Word

[sara81it]

Ciao a tutti
volevo sapere se è possibile stampare dei dai dati che visualizzo sulla form su un documento word già impostato.

Ossia vorrei creare il documento in word e poi alloccorrenza richiamarlo da vb nella form. i dati che io visualizzo nella form però vorrei farli finire in una posizione ben precisa del Doc. Si può? e come??
Qualcuno mi fa qualche esempio??
tutto questo con DAO

Grazie a tutti
Sara

[ZioAlfredo]

Certo che si può ... ma non è una cosa che si spiga in 2 minuti...

1) devi dare un documento di word con dei campi SEGNALIBRO
2) da Vb fai un apertura del doc word e spari i valori nei campi che hai preimpostato ....

[sara81it]

Cavoli ma perchè è sempre tutto così difficile??

Hai un esempio da mostrarmi?

Grazie Sara

[ZioAlfredo]

Apri Word, e scrivi Io mi chiamo ..... (metti i puntini non il nome)
Poi seleziona i puntini e vai nel Munù Inserisci / Segnalibro
Scrivi il nome del segnalibro txtNome e fai click su aggiungi.
Salva il doc con nome es : prova.doc

Ora VB :

Apri VB
Vai a menu Progetto / Riferimenti
e cerca Microsoft Word 9.0 Object Library spuntalo e fai ok
ora all'evento click di un pulsante scrivi :

Dim VarWord As New Word.Application

VarWord.Documents.Open "C:\prova.doc"

VarWord.Selection.GoTo What:=wdGoToBookmark, Name:="txtNome"
Selection.TypeText Text:="Sara"
VarWord.Visible = True

si aprirà il tuo file word ... con il campo segnalibro pieno.
Se capisci questo codice sei poi in grado di modificarlo a tuo
piacimento personalizzando le variabili da far visulizzare ..



:sgrat:

[sara81it]

Il discorso è che io devo importare in fase di stampa i dati che vengono inseriti in una textbox. Ma se scrivo il codice in word mi text1.text


e poi c'è un modo per vedere l'anteprima e per mandare direttamente da Vb in stampa il documento Word?


Grazie Sara

[Markho]

questa è una funzione che inserisce in un doc word con template il testo:



Public Sub Printen(Name, Address, City, Telephone)
Dim Range As Word.Range
Dim Myw As Object

'if Word isnt open VB will raise an error, we dont need that
On Error Resume Next

'check if Word is open
Set Myw = GetObject(, "Word.application")

'if Word is not open
If Myw Is Nothing Then
Set Myw = GetObject("", "Word.Application")
Myw.Visible = True
End If

'pass data to the bookmarks in the template I created in Word and print it
If Not Myw Is Nothing Then
'this is the location of the template I created, fill in your location
Myw.WindowState = 2
Myw.Documents.Add "c:/Word.dot"
'I work with bookmarks to be able to get the data in the right spot
Set Range = Myw.ActiveDocument.Bookmarks("bkName").Range
Range.InsertAfter Name
Set Range = Myw.ActiveDocument.Bookmarks("bkAddr").Range
Range.InsertAfter Address
Set Range = Myw.ActiveDocument.Bookmarks("bkCity").Range
Range.InsertAfter City
Set Range = Myw.ActiveDocument.Bookmarks("bkTele").Range
Range.InsertAfter Telephone
Myw.ActiveDocument.PrintOut
'I dont save the document you can if you want to, just remove DoNot
Myw.ActiveDocument.Close wdDoNotSaveChanges
'remove word from memory
Set Myw = Nothing
End If

End Sub



Nb, devi aggiungere la libreria di word, mi raccomando

ciao, e fammi sapere