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

Preguntas similare

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.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida