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

448 - Imprimir MsChart Control

Contenido

Imprimir chart
Vista preeliminar + Imprimir
Relacionados

Imprimir chart

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

Descargar proyecto

Formulario modal para la vista previa.

Recursos vb.net

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

Recursos vb 6.0

Buscar en Recursos vb