Excel - MACRO PARA IMPRIMIR "SOLO LO UTILIZADO"

Sub IMPRIMIR_HOJA()

Sheets("IMPRIMIR").Select

Range("A1:F900").Select

Dim ultimafila As Integer

ultimafila = 900

'la variable guarda la última fila

Range("A1:F" & ultimafila).Select

'se establece el área de impresión

ActiveSheet.PageSetup.PrintArea = Selection.Address

'utilicé Vista preliminar. Reemplazá PrintOut por PrintPreview para imprimir directamente

ActiveSheet.PrintPreview

End Sub

Sub IMPRIMIR_HOJA()

With Sheets("IMPRIMIR")

  With .Range("a1:f" & .Cells(.Rows.Count, "D").End(xlUp).Row)

    .Worksheet.PageSetup.PrintArea = .Address

  End With

  .PrintPreview

End With

End Sub