Mi aiutate a capire perche non stampa niente

martedì 27 luglio 2010 - 11.08

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags Visual Studio 2008

manuelericci Profilo | Newbie

35 messaggi | Data Invio: mar 27 lug 2010 - 11:08

Devo stamapare il Un testo in un modello Word, no riesco a acapire prchè non mi fa vedere niente, ovvero apre word ma non compila il campo [Miotesto]

' Variabile per l\'applicazione Word
Dim wordApp As Word.Application
' Variabile per il documento Word
Dim wordDoc As Word.Document
' Variabile contatore
Dim i As Integer

' Creo una nuova applicazione Word
wordApp = New Word.Application
' Apro il documento Word
'wordDoc = wordApp.Documents.Open(Application.StartupPath & "\\MioModello.dot\")
wordDoc = wordApp.Documents.Open("G:\MioModello.dot")
' Cerco tra i campi quello \"[Miotesto]\" e ci scrivo il mio testo
If wordDoc.Fields.Count > 0 Then
For i = 1 To wordDoc.Fields.Count
If wordDoc.Fields.Item(i).Result.Text = "[Miotesto]" Then
wordDoc.Fields.Item(i).Result.Text = "Prova testo"
End If
Next
End If
wordDoc = Nothing
wordApp = Nothing

tigre Profilo | Junior Member

198 messaggi | Data Invio: mar 27 lug 2010 - 14:02

io uso questo:

'aggiungo un documento (in questo caso un modello)
xword.Documents.Add APP.Path & "\richiesta.dot"
'imposto i vari dati
'presi da un DB. I campi contrassegnati con %%<nome campo>%% sono corrispondenti
'a quelli inseriti nel documento (o modello) word.

Set xRange = xword.ActiveDocument.Range
xRange.Find.Execute "%%periodo%%", , , , , , , , , Combo1.Text, True

Set xRange = xword.ActiveDocument.Range
xRange.Find.Execute "%%importo_totale%%", , , , , , , , , Format(Adodc1.Recordset.Fields("totale"), "##0.00"), True
ecc...

'Potrei stampare il documento direttamente...
xword.ActiveDocument.PrintOut
'...ma preferiscon visualizzarlo...
xword.Visible = False
'...massimizzandolo...
xword.WindowState = wdWindowStateMaximize
'...e renderlo attivo!
'x xword.Application.Activate

'MsgBox "La lettera è stata stampata!!", vbOKOnly, "Stampa lettera di trasmissione!"
'STAMPO IL DOCUMENTO DIRETTAMENTE
xword.ActiveDocument.PrintOut

MsgBox "Stampa eseguita!", vbInformation, "Stampa Richiesta!"

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !