Visual Basic - Enviar datos de varios formularios a Word

Life is soft - evento anual de software empresarial
   
Vista:

Enviar datos de varios formularios a Word

Publicado por Benjamin cocamartinez2007@hotmail.com (6 intervenciones) el 24/07/2016 02:05:10
Hola, buenas tardes, estoy trabajando en un pequeño sistema en visual basic 6.0 el cual tiene varios formularios, y en cada formulario hay un boton que lo llamo "Informe" para enviar los datos de ese formulario a word, el problema es que a como tengo programado ese boton, me crea un documento de word nuevo por cada formulario y yo quiero que cada vez que presione ese boton en cada formulario se almacene de donde sea y que al final exista otro formulario con otro boton para que abra word y me muestre todos los datos de todos los formularios a los cuales presione el boton "informe".

Ayuda por favor, en este foro es mi ultima esperanza, Gracias de antemano. Por favor que la solucion no sea crear un Crystal Report.

Hasta el momento el codigo para el boton informe lo tengo asi:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
Dim Word As New Word.Application
'AGREGA DOCUMENTO
Word.Documents.Add
 
Dim x As Integer
 
'AGREGA TEXTO
Word.Selection.Font.Color = wdColorBlack
Word.Selection.WholeStory
Word.Selection.Font.Size = 18
 
Word.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Word.Selection.TypeText "Información de Ventas:" & vbCrLf
Word.Selection.Font.Bold = False
Word.Selection.TypeText "Bebida:" & " " & Text9.Text & vbCrLf
Word.Selection.TypeText "Cliente:" & " " & Text10.Text & vbCrLf
Word.Selection.TypeText "Telefono:" & " " & Text11.Text & vbCrLf
' VISIBLE
Word.Visible = True
 
Set Word = Nothing
End Sub


Pero asi me crea un documento nuevo por cada formulario y yo quiero que me cree un solo documento para todos los formularios que he presionado el boton "Informe"
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder