Imprmir por orden de dato filtrado

Aprieto el boton del filtro despues selecciono un campo, y mando a imprimir,
despues selecciono el siguiente campo y mando a imprimir asi sucesivamente


"Francisco MTY" escribió en el mensaje
news:

Como es que seleccionas cada parte del resultado de filtro y lo mandas a
imprimir, utilizas una hoja por cada linea como funciona, se mas
explicito,
da mas detalles

Atte.
?T Francisco T?
http://search.microsoft.com/?mkt=es-ES

Buenas tardes grupo,

tengo en la celda "A6" un autofiltro, lo q tengo q hacer es ir
selecionando
cada dato del filtro y mandar a imprimir, como son muchos datos se hace un
poco tedioso, quisiera saber si ay alguna macro que pueda usar para
automatizar este proceso.

Saludos,

Como es que seleccionas cada parte del resultado de filtro y lo mandas a
imprimir, utilizas una hoja por cada linea como funciona, se mas explicito,
da mas detalles

Atte.
?T Francisco T?
http://search.microsoft.com/?mkt=es-ES

Buenas tardes grupo,

tengo en la celda "A6" un autofiltro, lo q tengo q hacer es ir selecionando
cada dato del filtro y mandar a imprimir, como son muchos datos se hace un
poco tedioso, quisiera saber si ay alguna macro que pueda usar para
automatizar este proceso.

Saludos,

hola, Angelo !

... en la celda "A6" un autofiltro, lo q tengo q hacer es ir selecionando cada dato del filtro y mandar a imprimir
... son muchos datos se hace... tedioso, quisiera... alguna macro que pueda usar para automatizar este proceso.

con los datos que expones... prueba con la siguiente macro con 'esa' hoja como activa:

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

[p.e. en un modulo 'normal'] ==Sub Imprime_filtrando()
Application.ScreenUpdating = False
Dim Celda As Range, Filtros As New Collection, Sig As Byte
With ActiveSheet
With Range(.[a6], .[a65536].End(xlUp))
For Each Celda In Range(.Address).Offset(1).Resize(.Rows.Count - 1)
On Error Resume Next
Filtros.Add CStr(Celda), CStr(Celda)
Next
If .AutoFilter Then .AutoFilter
For Sig = 1 To Filtros.Count
.AutoFilter Field:=1, Criteria1:=Filtros(Sig)
.Parent.PrintOut
Next
.AutoFilter
End With
End With
End Sub

Excelente Héctor Miguel,

Gracias...!

"Héctor Miguel" escribió en el mensaje
news:

hola, Angelo !

... en la celda "A6" un autofiltro, lo q tengo q hacer es ir selecionando
cada dato del filtro y mandar a imprimir
... son muchos datos se hace... tedioso, quisiera... alguna macro que
pueda usar para automatizar este proceso.

con los datos que expones... prueba con la siguiente macro con 'esa' hoja
como activa:

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

[p.e. en un modulo 'normal'] ==> Sub Imprime_filtrando()
Application.ScreenUpdating = False
Dim Celda As Range, Filtros As New Collection, Sig As Byte
With ActiveSheet
With Range(.[a6], .[a65536].End(xlUp))
For Each Celda In Range(.Address).Offset(1).Resize(.Rows.Count - 1)
On Error Resume Next
Filtros.Add CStr(Celda), CStr(Celda)
Next
If .AutoFilter Then .AutoFilter
For Sig = 1 To Filtros.Count
.AutoFilter Field:=1, Criteria1:=Filtros(Sig)
.Parent.PrintOut
Next
.AutoFilter
End With
End With
End Sub