Cómo imprimir en Visual Basic 6

impresión en Visual Basic puede ser un poco complicado de configurar, pero una vez hecho esto, las complejidades son invisibles al usuario. Un control de Visual Basic denominado Common Dialog Control 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 donde el usuario puede elegir los atributos específicos para imprimir , como las páginas que desea 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 , abra Visual Basic y seleccionar "EXE estándar " en la lista de plantillas que se ofrecen para un proyecto nuevo. Guarde el nuevo proyecto creado con un nombre tan simple como " impresora" , haga clic en " Archivo" y " Guardar proyecto como . " Enter "Impresora " en el cuadro de diálogo que se abre. De forma predeterminada , Visual Basic asigna la extensión " vbp . " Save the default " Form1 " creado de la misma manera , al hacer clic en " Guardar formulario como" y dando forma el nombre "Impresora " también.
2

agregar el control Common Dialog para el proyecto. Haga clic en "Proyecto " en el menú en la parte superior de la pantalla. Desde la lista desplegable , seleccione " Agregar componentes ". Desplácese hacia abajo una lista muy larga que aparece hasta que aparezca "6.0 Microsoft Common Dialog Control ( SP6 ) . Seleccione con el mouse y haga clic en "OK . "
3

doble clic en el control Common Dialog , que ahora debe mostrar 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 bajo el otro representa a este control. Cuando se ejecuta el mouse sobre esto, las palabras " CommonDialog " aparecerá .
4

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

Type " Leyenda ". : . Dim NombreArchivo , TextLine , BeginPage , EndPage , NumCopies , Orientación, iCommonDialog1.ShowPrinterBeginPage = CommonDialog1 . FromPageEndPage = CommonDialog1.ToPageNumCopies = CommonDialog1.CopiesOrientation = CommonDialog1.OrientationFileName = InputBox ("¿Qué archivo debo imprimir ? " ) Archivo abierto para entrada como # 1No While Not EOF ( 1 ) Entrada de la línea # 1 , TextLinePrinter.Print TextLineLoopClose # 1End
6

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