Imprimir Hojas de un Libro

02/11/2005 - 20:49 por ea | Informe spam
Saludo a todos

Como hago para imprimir nada mas que los nombres de las hojas que conforman
un libro en excel 2002 (Office XP)

Muchas gracias de antemano
 

Leer las respuestas

#1 Héctor Miguel
03/11/2005 - 08:36 | Informe spam
hola, 'anonimo/a' !

Como hago para imprimir nada mas que los nombres de las hojas que conforman un libro en excel 2002 (Office XP)



op1: usa una macro que 'escriba' los nombres de las hojas en alguna hoja y la imprima
[opcionalmente puedes usar un libro 'provisional' y despues cerrarlo sin guardar los cambios]

op2: usa una macro que 'escriba' los nombres de las hojas en un archivo de texto, lo imprima, y lo borre :))
estaba tratando de usar los comandos internos de D.O.S. como 'print archivo' o 'copy archivo > prn'...
pero encontre algunos 'problemillas' cuando la impresora no es reconocida por D.O.S. [como puertos usb] :(
entonces, 'tuve que' usar una aplicacion 'puente' [como el notepad que es casi seguro encontrarla en toda pc] ;)

prueba con una macro +/- como la siguiente [imprime los nombres de las hojas de calculo del libro activo]:
en un modulo de codigo 'nomal' ==Sub Imprimir_Nombres_de_Hojas()
Dim Directorio As String, Archivo As String, _
EnProceso As Integer, Hoja As Worksheet
Directorio = ActiveWorkbook.Path
Archivo = Directorio & "\Hojas.txt"
EnProceso = FreeFile
Open Archivo For Output As #EnProceso
Print #EnProceso, "Hojas en el libro " & ActiveWorkbook.Name & ":"
For Each Hoja In ActiveWorkbook.Worksheets
Print #EnProceso, Hoja.Name
Next
Close #EnProceso
Shell "notepad.exe /p " & Archivo, vbHide
Kill Archivo
End Sub

saludos,
hector.

Preguntas similares