Excel - MACRO PARA IMPRIMIR "SOLO LO UTILIZADO"

   
Vista:

MACRO PARA IMPRIMIR "SOLO LO UTILIZADO"

Publicado por ANTONIO ANPEBO1@HOTMAIL.COM (5 intervenciones) el 01/09/2016 16:20:24
Hola compañeros,

Estoy utilizando la siguente macro:

1
2
3
4
5
6
7
8
9
10
11
12
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

Necesito indicarle a la hoja que ouede tener 900 filas de impresión pero solo quiero que me imprima las utilizadas.
Por ejemplo, si utilizo solo 10 filas, en vez de imprimirme una hoja donde cogen las 10 filas, dispara 12 hojas en blanco y 1 con la impresión.

¿ Sabeis que falla en la macro para que la límite a las hojas utilizadas ?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

MACRO PARA IMPRIMIR "SOLO LO UTILIZADO"

Publicado por Cacho R (48 intervenciones) el 01/09/2016 20:34:43
Hola! Antonio
Voy a suponer que si solo ocupas "10 filas" entonces las 10 primeras celdas de la columna D SIEMPRE tienen algún tipo de información.
Con ese detalle a la vista lo siguiente puede servirte:

1
2
3
4
5
6
7
8
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

MACRO PARA IMPRIMIR "SOLO LO UTILIZADO"

Publicado por ANTONIO (5 intervenciones) el 07/09/2016 14:19:19
Hola, es relativo pueden tener 1 o las 900. No siempre son como mínimo 10 filas.

Digamos que la macro debe de saber las filas que tienen dato, normalmente corresponden a las celdas de la columna "A" , para mandar imprimir solo de la fila 1 a la ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar