Sección de controles Ocx para Visual basic , Dll , Activex
63 - Módulo para imprimir un RichTextBox
<Volver> - Anterior - Siguiente
Este módulo permite imprimir un control RichTextbox con algunas opciones como especificar los encabezados , pie de página y los márgenes izquierdo , derecho, superior e infererior
Esta es la vista del ejemplo para descargar:
Para poder imprimir el Richtextbox se debe crear primero una instancia de la clase que contiene el código de impresión, por ejemplo:
'Creamos la instancia
Set PrinterRich = New Class1
Luego ya se puede especificar los valores para las propiedades : Header, Footer, y los margenes (izquierdo, derecho etc..)
El método para imprimir se le debe pasar el control RichTextBox como parámetro
2 - Ejemplo para impresión y vista previa de un RichTextBox
Este código fuente muestra como poder hacer un print preview del contenido de un richTextBox.
El ejemplo consta de dos formularios
El Form que carga un archivo rtf es el siguiente
Y el otro que hace la vista previa , con opciones para aplicar zoom in , zoom out mediante CommandButtons , un control tabstrip para desplazarce por la cantidad de páginas que requiera la impresión, y un combo para establecer el zoom en porcentaje hasta 200 %
captura del formulario
El proyecto consta de un módulo con una sola función. Esta función se llama Print Preview y requiere como parámetro lo siguiente
PrintPreview " El control Richtextbox ", "Margen superior",Margen inferior, Margen Derecho, "Margen izquierdo ", "Orientación de la hoja"
por ejemplo
PrintPreview Richtextbox1, 10,10,10,10, 2
Lo anterior , hace una vista previa con valores de 10 pixeles para los márgenes, y el valor en el último parámetro indica que se imprimirá con la hoja en horizontal.
Para imprimir en vertical pasar el valor 1 ( o usar los valores de constantes de visual basic para impresión : vbPRORPortrait y vbPRORLandscape)
Recursos Visual basic - Enlaces relacionados
Buscar en Recursos vb con Google
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar
