Cómo imprimir en Visual Basic 6

La impresión en Visual Basic puede ser un poco complicado de configurar, pero una vez hecho esto, las complejidades son invisibles para el usuario. Un control de Visual Basic llamado el control del diálogo común incorpora un método para imprimir en Visual Basic. El uso de código conectado a este control se abrirá un cuadro de diálogo en el que el usuario puede elegir los atributos específicos para la impresión tal como las páginas para imprimir, el número de copias y las propiedades específicas de la impresora en cuestión.

Instrucciones

1 Crear el cuadro de diálogo de la impresora mediante la apertura de Visual Basic y seleccionar "EXE estándar" de la lista de plantillas disponibles para un nuevo proyecto. Guarde el nuevo proyecto creado con un nombre tan simple como "impresora" haciendo clic en "Archivo" y "Guardar proyecto como." Enter "Impresora" en el cuadro de diálogo que se abre. De forma predeterminada, Visual Basic sujeta una extensión de "VBP." Save the default "Form1" creado de la misma manera, al hacer clic en "Guardar formulario como" y dando la forma del nombre "Impresora" también.

2 Agregue el control del diálogo común con el proyecto. Haga clic en "Proyecto" en el menú en la parte superior de la pantalla. De la lista desplegable, seleccione "Agregar componentes." Desplazar hacia abajo una lista muy larga que aparece hasta que vea "Control de Microsoft diálogo común 6.0 (SP6). Seleccione esto con el ratón y haga clic en "Aceptar".

3 Haga doble clic en el control de diálogo común, que ahora debieran estar mostrando en la parte inferior del control que se muestra en el panel izquierdo de la pantalla. Un icono que parece dos ceros con una barra por encima de ellos y dos puntos uno debajo del otro representa este control. Cuando se ejecuta el ratón sobre esto, las palabras "CommonDialog" aparecerá.

4 Haga doble clic en el icono "CommandButton" en el panel de la izquierda, representada por un rectángulo pequeño. Esto coloca un comando en el formulario. Haga clic en el botón ahora la etiqueta "Command1". En la lista de "Propiedades" para este control a la derecha, cambie el nombre a "cmdPrint". Desplazarse hacia abajo hasta que vea "Leyenda." Cambiar el nombre de esta en "Imprimir".

5 tipo:
Dim Nombre de archivo, TextLine, BeginPage, EndPage, NumCopies, Orientación, i
CommonDialog1.ShowPrinter
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
Orientación = CommonDialog1.Orientation
Filename = InputBox ( "¿Qué archivo debo imprimir?")
Abrir nombre de For Input As # 1
Aunque no hacer EOF (1)
Línea de entrada # 1, TextLine
Printer.Print TextLine
Lazo
Close # 1
Fin

6 Probar el código pulsando la tecla "F5" y haga clic en "Imprimir" en el formulario. Introduzca la ubicación del archivo de un archivo de texto en el ordenador. El documento debe imprimir. Si no es así, revise cada línea de código anterior para asegurarse de que es correcta.