Cómo imprimir un archivo mediante Visual Basic 6.0

impresión Visual Basic incluye una función de "Impresora " para imprimir un archivo, pero no da ningún control sobre el formato , sobre todo para envolver largas líneas. Código adicional puede manipular el texto , las pruebas de longitud de la línea y la ubicación de los espacios para encontrar un buen lugar para romper las líneas . Sin embargo, hay una manera más fácil la participación de tan sólo unas pocas líneas de código y un control de cuadro de texto enriquecido . El único inconveniente es que no proporcionará la configuración de márgenes . Esto es posible con un ( Application Programming Interface) llamada a la API , pero el código API es largo , corriendo más de 122 líneas de código y 700 palabras + con la explicación . Esto excede el alcance de este artículo. Instrucciones
1

Crear un nuevo proyecto EXE estándar en Visual Basic , haga clic en " Archivo", luego "Nuevo proyecto " y la elección de la plantilla EXE estándar . Agregue un control Label al formulario que se abre haciendo clic en el icono de la etiqueta en la caja de herramientas que muestra a la izquierda. Esta es la gran letra "A" en mayúsculas . Busque en la lista de propiedades a la derecha de las propiedades Label1 y cambiar el título para que diga " Nombre de archivo que desea imprimir ? ", Pero no incluyen las comillas .
2

Agregue un control TextBox al la forma de la misma manera , usando el icono caja de herramientas de una pequeña plaza con letras minúsculas " ab " en ella. Coloque el cuadro de texto a la derecha de la etiqueta. Busque la propiedad "Texto" en la lista de propiedades de este control y haga doble clic en la propiedad Text para resaltar el nombre predeterminado. Pulse la tecla " Delete" en el teclado para eliminarlo.
3

Agregue dos botones de comando desde el cuadro de herramientas , identificado por un pequeño rectángulo . Cambiar el título de los primeros en "Imprimir" y el título de la segunda a " Cancelar". Agregar un control al cuadro de herramientas , haga clic en "Proyecto" en el menú superior y luego en " Components . Busque el " Microsoft Rich TextBox Control 6.0 ( SP6 ) " en la lista y haga clic en la casilla de verificación para seleccionarlo. Haga clic en " Aplicar " y "OK ". Añadir el nuevo control , que debe estar en la parte inferior de la lista de control . Al mover el cursor sobre el icono, se mostrará el nombre.

4 Haga clic en el Microsoft Rich TextBox Control 6.0 ( SP6 ) en el formulario. En la lista de propiedades de este control , elimine el nombre "Text" , cambie la propiedad " Multiline " de " falso " a " verdadero , que el " "propiedad " Visible False "y establecer la propiedad" Fuente "para cualquier tipo de letra y tamaño lo desea.
5

doble clic en el control de impresión para abrir la ventana de código . Introduzca el código tal y como aparece a

Private Sub Command1_Click () Dim strFileToPrint , strFullFile , strReadLine Como StringstrFileToPrint = Text1.TextOpen strFileToPrint Para la entrada como # 1No Hasta EOF ( 1 ) Entrada de la línea # 1 , strReadLinestrFullFile = strFullFile y strReadLineLoopRichTextBox1 = strFullFileRichTextBox1.Visible = TrueRichTextBox1.SelLength = 0RichTextBox1.SelPrint Printer.hDCEnd Sub

Por debajo de este tipo el siguiente código: Private Sub

Command2_Click () EndEnd Sub

6

Press "F5 " para ejecutar el programa e imprimir un archivo. Si el documento no se imprime, compruebe las líneas de código de seguridad para asegurarse de que usted los ha introducido correctamente. Si aparece una advertencia en el sentido de que el archivo no fue encontrado , y luego vuelva a comprobar la ubicación y el nombre del archivo.