Macro imprimir varias páginas
Tengo un libro excel con 60 hojas. Podría mediante una macro imprimir solo las que contengan datos. O imprimir desde la última con datos hasta la primera. O un cuadro de dialogo que me preguntase que hojas quiero imprimir. Cualquier solución a una de las tres preguntas me vale.
Te quedo muy agradecido.
Saludos desde Granada(España)
Te quedo muy agradecido.
Saludos desde Granada(España)
Respuesta de tavopz
1
Se me ocurre otra alternativa que te propongo:
La idea es que tengas en una hoja llamada "HojasImprimir" en las celdas A1 hasta A60 los nombres de las hojas que deseas que se impriman. De esta forma, con una macro como esta puedes enviar a imprimir una a una estas hojas:
Sub printhojas()
Dim c As Range
For Each c In Sheets("HojasImprimir").Range("A1:A60")
On Error Resume Next
Sheets(c.Value).Activate
ActiveWindow.PrintOut Copies:=1
Next c
End Sub
Ahora, para que no resulte tedioso escribir una a una los nombres de todas las hojas, puedes usar esta otra macro:
Sub nombrehojas()
For i = 1 To Sheets.Count
Sheets("HojasImprimir").Range("A" & LTrim(Str(i))) = Sheets(i).Name
Next i
End Sub
La idea es que tengas en una hoja llamada "HojasImprimir" en las celdas A1 hasta A60 los nombres de las hojas que deseas que se impriman. De esta forma, con una macro como esta puedes enviar a imprimir una a una estas hojas:
Sub printhojas()
Dim c As Range
For Each c In Sheets("HojasImprimir").Range("A1:A60")
On Error Resume Next
Sheets(c.Value).Activate
ActiveWindow.PrintOut Copies:=1
Next c
End Sub
Ahora, para que no resulte tedioso escribir una a una los nombres de todas las hojas, puedes usar esta otra macro:
Sub nombrehojas()
For i = 1 To Sheets.Count
Sheets("HojasImprimir").Range("A" & LTrim(Str(i))) = Sheets(i).Name
Next i
End Sub
