besttiti
Messages postés10Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention14 janvier 2003
-
8 janv. 2003 à 08:39
besttiti
Messages postés10Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention14 janvier 2003
-
9 janv. 2003 à 15:21
Salut d'un développeur corse
Je voudrais savoir comment faire pour écrire du texte de VB vers Word mais selon un ordre précis, à savoir, suivre la même architecture de VB vers Word.
XWinnieX
Messages postés71Date d'inscriptionlundi 23 décembre 2002StatutMembreDernière intervention20 septembre 2004 8 janv. 2003 à 11:57
Pour faire une impression avec word :
- il faut créer ton document avec word et faire une mise en page se raprochant le plus de celle que tu a faite de VB à l'aide des outils word (Tableaux, cadre zones de texte, Lignes...) et ensuite tu te place à l'endroit où tu veux qu'une de tes données VB soit imprimés et là tu fait INSERTION/SIGNET et tu donne le nom que tu veux à celui-ci. Il seront ensuite appelés un à un par le code vb :
Private Sub cmdprint_Click()
Dim BeginPage, EndPage, NumCopies, Orientation, p
' Affecte la valeur True à la propriété
' CancelError.
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Affiche la boîte de dialogue Impression.
CommonDialog1.ShowPrinter
' Récupère les valeurs sélectionnées par
' l'utilisateur dans la boîte de dialogue.
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientation = CommonDialog1.Orientation
For p = 1 To NumCopies
'Ajouter une réference "Microsoft Word 9.0 Object library
'Objet général pour travailler avec WORD
Dim wrdApp As Word.Application
'Objet document permet d'accéder a toutes les caractéristiques des documents WORD
Dim wrdDoc As Word.Document
'Partie d'un document permet de modifier les propriétés d'une zone
Dim wrdRange As Word.Range
'On Error Resume Next
'Création de l'objet word
Set wrdApp = New Word.Application
'ouverture du document word servant de template
Set wrdDoc = wrdApp.Documents.Open(App.Path & "\PRINT1.doc")
Set wrdRange = wrdDoc.Bookmarks("Nom du premier signet").Range
wrdRange.Text = Label1.Caption
Set wrdRange = wrdDoc.Bookmarks("nom du deuxième").Range
wrdRange.Text = txtPlat(1).Text
Set wrdRange = wrdDoc.Bookmarks("et ainsi de suite").Range
wrdRange.Text = txtPlat(2).Text
'impression du template
wrdDoc.PrintOut
'fermeture du document sans le sauvegarder
MsgBox ("Impression en cours..."), vbOKOnly
wrdDoc.Close SaveChanges:=0
'indispensable autrement une instance de WINWORD reste en memoire
wrdApp.Quit
Next
'Destruction des objets
Set wrdRange = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Exit Sub
ErrHandler:
' L'utilisateur a choisi le bouton Annuler.
wrdDoc.Close SaveChanges:=0
'indispensable autrement une instance de WINWORD reste en memoire
wrdApp.Quit
'Destruction des objets
Set wrdRange = Nothing
Set wrdDoc = Nothing
Set wrdApp = Nothing
Exit Sub