Imprimir solamente las celdas que tengan datos

Hola.

La manera más sencilla para efectuar lo que pides es mediante el evento
"Private Sub Workbook_BeforePrint(Cancel As Boolean)".

El código sería el siguiente:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Hoja1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
On Error Resume Next

.Range("B10:B150").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
.PrintOut

.Range("B10:B150").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
On Error GoTo 0
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub

Este codigo realiza lo siguiente:

En la hoja1, antes de imprimir oculta de las filas 10 a 150 las que en la
columna B están en blanco. Acto seguido imprime y vuelve a mostrar las filas
previamente ocultas.

Para colocar el evento deberás seguir los siguientes pasos:

1º) acceder al editor de visual basic (desde excel mediante las teclas
{ALT} + {F11})

2º) De la ventana de proyectos seleccionar el correspondiente a la hoja de
cálculo en la que quieras incluirlo (vbaproject(tuhoja.xls).

3º) Seleccionar la carpeta Microsoft Excel Objetos \ ThisWorkbook, con un
doble click

4º) Pegar el código que te he adjuntado y personalizar el rango.

Saludos,

Benito Merino

"Fili" wrote:

Saludos,

Tengo un formato que está fijo a 150 renglones y al final un total, pero
puede ser variable, mi duda es como imprimo solamente los renglones que
tienen datos e inmediatamente después el total.

Existe alguna función para esto o se requiere de alguna macro?.

Gracias.