No me funciona una macros que imprime...

Hola tengo esta macro para ocultar dos columnas y luego imprimir un área especificada pero no me sale nada más que un hoja en blanco, cuando yo tengo datos en el rango seleccionado.

Sub Macro1()
    '
    ' Macro1 Macro
    '
    ' Acceso directo: CTRL+a
    '
    Columns("C:D").Select
    Selection.EntireColumn.Hidden = True
    Range("A6:L45").Select
    ActiveSheet.PageSetup.PrintArea = "$A$6:$L$45"
End Sub

1 respuesta

Respuesta
1

Con esta instrucción, solamente le estás diciendo cual es el área a imprimir.

ActiveSheet.PageSetup.PrintArea = "$A$6:$L$45"

Te falta poner la instrucción para imprimir. Agrega la siguiente línea

ActiveSheet.PrintOut Copies:=1, Collate:=True

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas