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

116 - Imprimir imagen con Zoom

El siguiente ejemplo muestra como imprimir un gráfico y especificar el valor o factor de Zoom.

En el código hay una función llamada Imprimir_Imagen, a la cual se le debe enviar como parámetro el control PictureBox que contiene la imagen a imprimir, y en el segundo parámetro el valor del Zoom.

Ejemplo

Colocar Un control PictureBox
un Command1
un Hscrollbar como se ve en la imagen:

Captura del formulario con los controles para el ejemplo.

Vista del ejemplo para imprimir en vb una imagen con zoom

Código en un formulario

Option Explicit Private Sub Form_Load() Command1.Caption = " Imprimir imagen " 'Valores del Scroll para el factor de Zoom HScroll1.Min = 1 HScroll1.Max = 10 End Sub Private Sub Command1_Click() 'Le enviamos el Gráfico cargado en el Picture1 y en el segundo _ parámetro el Factor de ZOOM Call Imprimir_Imagen(Picture1.Picture, HScroll1.Value * 0.5) End Sub Private Sub HScroll1_Change() 'Mostramos el Valor del ZOOM en el caption del form Me.Caption = " Valor del ZOOM: " & HScroll1.Value * 0.5 End Sub Private Sub HScroll1_Scroll() Me.Caption = " Valor del ZOOM: " & HScroll1.Value * 0.5 End Sub Private Sub Imprimir_Imagen(Pic As StdPicture, ZOOM As Double) Printer.Print 'Dibujamos la imagen multiplicando el ancho y alto por el valor del ZOOM Printer.PaintPicture Pic, 0, 0, Pic.Width * ZOOM, _ Pic.Height * ZOOM, 0, 0, Pic.Width, _ Pic.Height 'Mandamos a imprimir la imagen Printer.EndDoc End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Recursos vb.net - Relacionados

Zoom en pictureBox mediante la propiedad sizeMode

Buscar en Recursos vb