Visual Basic - imprimir 500 caracteres

Life is soft - evento anual de software empresarial
 
Vista:

imprimir 500 caracteres

Publicado por jlcastro (186 intervenciones) el 20/01/2006 11:38:42
que control puedo usar para escribir en Vb 500 caracteres y enviarlos a Word

Si ingreso los datos en un textBox, solamente imprime un maximo de 254 Caracteres.

Si el texto tiene mas de 254 caracteres, tengo Error "cadena demasiado larga"

Muchas gracias.
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

RE:imprimir 500 caracteres

Publicado por EGV (385 intervenciones) el 20/01/2006 14:47:02
probaste colocando la propiedad del textbox "Multiline" en true ?????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir 500 caracteres

Publicado por jlcastro (186 intervenciones) el 20/01/2006 18:48:35
Si he probado, pero me salta el error.

Muchas Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir 500 caracteres

Publicado por Ramón (90 intervenciones) el 20/01/2006 18:56:41
Utiliza el control Microsoft Rich Textbox.(RICHTX32.OCX)
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir 500 caracteres

Publicado por jlcastro (186 intervenciones) el 20/01/2006 19:07:36
El control RichTextbox me envia el mismo error

imprimo con el siguiente codigo

Set xRange = xword.ActiveDocument.Range
xRange.Find.Execute "%%datos%%", , , , , , , , , RichTextbox1.Text, True

Muchisimas gracias de todas las maneras.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:imprimir 500 caracteres

Publicado por Ramón (90 intervenciones) el 20/01/2006 20:24:06
Te adjunto el código para exportar a word un RichTextBox. El RichTextBox1 tiene 4294 palabras (según el contador de Word) y funciona sin problemas.
Private Sub Command1_Click()
' Referencia: Microsoft Word 11.0 Object Library
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim wdPar As Paragraph
Set wdDoc = wdApp.Documents.Add
Set wdPar = wdDoc.Paragraphs.Add
' wdApp.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
wdDoc.Range.InsertAfter RichTextBox1.Text
wdApp.ActiveDocument.Activate
wdApp.Visible = True
End Sub
Espero que te sirva. Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias Ramon, ahora tengo que adaptarlo

Publicado por jlcastro (186 intervenciones) el 21/01/2006 12:19:47
Muchas gracias Ramon
Funciona perfectamente
Ahora tengo que adaptarlo a mi programa, el caso es que el documento Word ya lo tengo abierto y tiene que imprimir en una determinada posicion o marcador.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar