Imprimir Celdas Seleccionadas

Me ha parecido muy util la posibilidad de imprimir cualquier conjunto de celdas con solo presionar un botón desde VBA, asi que he hecho el siguiente código muy sencillo para imprimir las celdas que se tengan seleccionado en el momento de ejecutar el código.

El código funciona de la siguiente manera
1) Obtiene lo que el usuario tiene seleccionado
2) Comprueba que el usuario tenga seleccionado celdas, si no es asi se muestra un mensaje de que solo se imprimen celdas
3) Solicita al usuario la impresora con la que desea imprimir
4) Si el usuario selecciona una impresora se muestra la vista previa de la impresión
5) El usuario imprime o cierra la vista previa, y se borran las lineas de impresión

Sub ImprimirSeleccion()
    Dim tipo As String
    Dim resp As Integer
    tipo = TypeName(Selection)'1
    If tipo = "Range" Then'2
        resp = Application.Dialogs(xlDialogPrinterSetup).Show'3
        If resp <> 0 Then
            On Error Resume Next
            Selection.PrintOut , , 1, True'4
            ActiveSheet.DisplayPageBreaks = False'5
        End If
    Else
        MsgBox "Solo se imprimen celdas, si desea imprimir un gráfico o una imagen, seleccione las celdas que se  encuentran debajo del gráfico o imagen", vbInformation
    End If
End Sub

 

Este codigo puede ser util para no tener que crear los codigos de cada cosa que se muestra en las hojas de excel, y mejor crear un solo código que imprima lo que el usuario tenga seleccionado.

Y al final tenemos
Vista

Vista2

Vista3

Anuncios

4 pensamientos en “Imprimir Celdas Seleccionadas

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s