Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

448 - Imprimir MsChart Control

Ejemplo que usa el método EditCopy del control Mschart para enviar el gráfico al clipboard y luego mediante el método paintpicture del objeto printer, dibuja el gráfico y lo imprime

Colocar en un formulario un commandbutton ( command1 ) y un control MsChart ( Mschart1)

Código fuente en el form

Option Explicit Private Sub Imprimir_MsChart(titulo As String, _ MsChart As MsChart, _ escala As Single) With MsChart ' elimina los datos del clipboard Clipboard.Clear ' copia la imagen del mschart al portapapeles .EditCopy ' sila imagen es válida If Clipboard.GetFormat(vbCFBitmap) Then 'scale mode Printer.ScaleMode = vbTwips .Parent.ScaleMode = vbTwips ' titulo Printer.Font.Size = 10 Printer.FontName = "Verdana" Printer.Print vbNullString Printer.Print titulo Printer.Print vbNullString ' dibuja la imagen Printer.PaintPicture Clipboard.GetData(), 100, 500, _ .Width * escala, .Height * escala, 0, 0 Printer.EndDoc ' envía el trabajo a la impresora End If End With End Sub Private Sub Command1_Click() Call Imprimir_MsChart("Gráfico de ejemplo", MSChart1, 1.5) End Sub Private Sub Form_Load() Command1.Caption = "Imprimir MsChart" End Sub

Ejemplo para realizar una vista preliminar

Proyecto que visualiza una vista preliminar de un control Microsoft chart para poder imprimir la imagen, con opción de indicar el valor del zoom, el ancho y alto , y las propiedades para la impresión : Calidad, número de copias, tamaño de la hoja y la orientación de la impresión

Formulario modal para la vista previa

Descargar proyecto

Recursos visual basic.net - Enlaces relacionados

Dll open source para crear gráficos estadísticos en vb.net y c#

Buscar en Recursos vb