bonjour à tous
J'ai besoin de votre aide pour résoudre le problème suivant.
J'ai une petite application en vb6 qui traite une gestion d'un cabinet médical.
En voulant imprimer l'ordonnance, j'ai établi un modèle sous word, mais en l'appelant c'est très long.
voici le code:
Ce que je veux c'est remplir automatiquement l'ordonnance à partir d'une table 'medicaments'.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim MyWord As Word.Application, doc As Word.Document 'Set MyWord = New Word.Application 'With MyWord ' Set doc = .Documents.Open("D:\Patient\model.ordonnance2.doc") ' Set doc = Nothing End With DoEvents Set MyWord = Nothing End Sub.
Jusqu'à présent, j'y suis arrivé mais remplir l'ordonnace dans une zone texte.
Je voudrais savoir comment la transférer dans mon document Word pour l'imprimer.
Je vous remercie d'avance.
Partager