Reload Geek v2.5

La mayoría de las aplicaciones que desarrollo en el trabajo están realizadas en visual basic 6, aunque hace unas semanas ya tengo .NET 2005 para probar algún desarrollo, sin embargo me he ganado la fama de hacer programas en este lenguaje, creo que uno se gana la fama de programador de un lenguaje más por las capacidades de la empresa donde se labora que por gusto, pues mi lenguaje preferido ha sido PHP, aunque hace muchos meses que no lo he usado, he probado con Ruby on Rails, y me pareció un lenguaje de desarrollo muy rápido y con el cual poco código hace demasiado, por otra parte mi segundo lenguaje favorito es C++ con el IDE Turbo C++ de Borland , aunque algunos prefieran simplemente C, me ha ganado el corazón C++, pues fue el primer lenguaje con el programe seriamente, anterior a este utilice Clipper, que me había gustado en un principio por las modificaciones que realizó un profesor para poder utilizar pseudocódigo bajo Clipper, sin embargo al llegar a la parte de de utilización de base de datos no me convenció mucho, aunque cabe destacar que estas BD utilizan muy poco espacio, posteriormente a C++, comencé a utilizar Delphi, el cual se me dificulto un poco por el paradigma de C++ que ya tenia mentalizado, sin embargo al llegar Vb6 fue mas cómodo el programar, en estos momentos estoy pensando en volver a retomar el camino de los lenguajes web, justo el día de mañana me descargaré las aplicaciones para mi servidor WAMP.

Espero poder recordar las configuraciones de Apache, jejejeje

un saludo a todos los programadores (^_^)V

Algunas veces cuando desarrollamos aplicaciones es necesario crear reportes, y comúnmente se nos viene a la mente diversas formas de crearlos, muchos programadores que conozco utilizan la aplicación Crystal Reports, aun en mi trabajo el área administrativa utiliza este software, sin embargo algunos no contamos con dicha licencia para crear aplicaciones comerciales, por lo que nos quedan como opciones utilizar MSExcel, o en su caso MSWord, para este post expkicare a grandes rasgos como enviar algunos datos desde VB6 a MSWord.

'declaramos los objetos
Public MSWord As New Word.Application
Public Documento As Object

Private Sub cmd_exportar_click()

                'Establecemos la ruta de nuestro archivo
                ruta = App.Path & "\orden.doc"

                'Seteamos el archivo al objeto documento
                Set Documento = MSWord.Documents.Open(ruta)

                'opcionalmente podemos guardar el archivo
                'en mi caso lo guardo con una extensión diferente (cab|tmp|pot|etc)
                MSWord.Selection.Document.SaveAs (App.Path & "\printme.cab&quot  

                'Establecemos la fuentre que utilizaremos
                MSWord.Selection.Font.Name = "Arial"

                'Configuramos la alineacion de nuestro parrafo
                MSWord.Selection.Paragraphs.Alignment = wdAlignParagraphCenter

                'Activamos la fuente en Negrita
                MSWord.Selection.Font.Bold = True

                'Y el tamaño a 16 puntos
                MSWord.Selection.Font.Size = 16

                'con esta opcion podemos comenzar a escribir dentro de nuestro docuemnto
                MSWord.Selection.TypeText "Aqui podemos escribir el texto en el documento" & vbCrLf

                'Declaramos una tabla de 1 fila por 3 columnas
                MSWord.Selection.Tables.Add MSWord.Selection.Range, 1, 3

                'Seleccionamos la celda 1,2
                MSWord.Selection.Tables(1).Cell(1, 2).Select

                'establecemos el ancho de la celda
               MSWord.Selection.Tables(1).Cell(1, 2).Width = 70

                'configuramos los bordes
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderTop).Visible = True
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderLeft).Visible = True
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderBottom).Visible = True
                MSWord.Selection.Tables(1).Cell(1, 2).Borders(wdBorderRight).Visible = True

                'Y la alineación del texto dentro de la celda
                MSWord.Selection.Paragraphs.Alignment = wdAlignParagraphLeft

                'Seguido escribimos texto en dicha celda
                MSWord.Selection.TypeText "Nombre"

                'seleccionamos la celda 1,3
                MSWord.Selection.Tables(1).Cell(1, 3).Select

                'Establcemos el color de fondo de la celda (Trama)
                MSWord.Selection.Cells.Shading.BackgroundPatternColor = wdColorGray20

                'Escribimos en dicha celda
                MSWord.Selection.TypeText "nombre2"

                'esta opcion nos permite salir de la edición de la tabla, o bajar una fila
                MSWord.Selection.MoveDown

                'por ultimo mostramos el documento de word
                MSWord.Visible = True

                'vaciamos los objetos de la  memoria
                Set documento = nothing
                Set Msword=nothing

end sub

con esto podemos establecer los datos del reporte que encesitemos, auqnue es algo mas laborioso que utilizar Crystal Reports, es una opción que hay que tomar en cuenta. espero le sea de ayuda a alguno de los lectores.

saludos (^o^)_v