Pregunta: | 3948 - IMPRIMIR |
Autor: | jorge enrique atara ramirez |
como imprimir un archivo, fichero desde visual basic ??? |
Respuesta: | SnoopDree |
Imprimir todo (tipo de letra, bold, negrita, etc.) En Vb5 a veces hay problemas con el cambio de Fuentes asi que define esta rutina y seguramente no tendras problemas. Deberias declarar el procedimiento en un Modulo. Sub CambiarFuente(Letra, Tamaño, Negrita, Subrayado, Italica As Variant) As Variant Dim X As New StdFont With X .Name = Letra .Size = Tamaño .Bold = Negrita .Underline = Subrayado .Italic = Italica End With Set Printer.Font = X End Sub Cuando la necesites la llamas asi enviando el nombre de la fuente, el tamaño , Negrita (True o False), Subrayado (True o False), Italica (True o False) Call CambiarFuente("Arial", 12, True, True, True) |
Respuesta: | Miguel Argüello |
Para poder imprimir un archivo con visual en la impresora, tienes que utilizar el objeto printer, por ejemplo, para imprimir un pequeño texto seria: Private Sub Imprimir_Pequeño_Text(Cadena as String) Printer.Print Cadena Printer.EndDoc End Sub Con la funcion Printer.Print, lo que haces es pasar una cadena a un archivo "temporal de impresion", y la funcion Printer.EndDoc sirve para cerrar ese documento y empezar a imprimir. Ahora que sabes como imprimir, para imprimir un archivo, lo unico que tienes que hacer es abrirlo, y una a una las lineas del archivo que quieres imprimir e ir enviandola a este archivo temporal, una vez llegado al final del archivo dar la intruccion Printer.EndDoc y la impresora empezara a imprimir el archivo. Puedes controlar la posicion del texto con CurrentX y CurrentY, el tamaño con FontSize, el tipo de letra con Font. Espero que te sirva de ayuda. Un Saludo Miguel |