Hola Osvaldo:
Te pongo a continuación un pequeño código
que hace, creo, lo que necesitas. En la celda M11 debes figurar el número de empleados
que tienes que imprimir.
Sub Macro1()
Set numfilas =
Worksheets("hoja1").Range("m11")
For t = 1 To numfilas
nombretrabajador = "m" & t
'leemos el nombre del trabajador
Set micelda1 =
Worksheets("Hoja1").Range(nombretrabajador)
Worksheets("Hoja1").Range("f7").Formula
= micelda1
'Imprimimos la hoja
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next t
End Sub
Espero que te funcione, ya nos contarás.
Saludos.
Avelino
De: Osvaldo M.
Colomar Dobarro [mailto:ocolomar@hidraulico.steels-net.cu]
Enviado el: martes, 01 de julio de
2008 20:13
Para: soloaccess
Asunto: [soloaccess] Imprimir una
hoja de excel
Importancia: Alta
saludos colegas hace un buen tiempo que no escribia a este
grandioso forum, bueno disculpenme por hacerle esta pregunta el forun que es de
accesa, miren les envio un documento de excel donde aparece en la hoja1 la hoja
de firma de entrada y de salidas de los trabajadores de la empresa, como ven el
cambiarle solo la fecha en la
celda B13 ya se ejecutan las formulas que estan en el
documento, y al cambiar los sabados laborables en las celda B5 y B6, los
sabados eso no se le muestran tramas porque se debe de firmar en ellos, todos
esto trabaja bien comno quiero ahora viene la pregunta como puedo hacer para
cuando se mande a imprimir esta hoja imprima por ejemplo 25 hojas pero con
nombres diferentes en la celda
F7 estos nombres estan en el rango de celda de M12 a M16,
claro esta no voy a ponerles todo los nombres, no se si me entienden es que
cuando se mande a imprimir la hoja tome los nombres de los empleados que estan
en el rango que le mencione y lo imprima una hoja por cada nombre por favor
diganme si se puede y si me pueden dar una mano con este tema que es lo unico
que me falta, sin más y en espera de sus valiosas ayudas.
Responder a este mensaje
