Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro para Impresion

christian2025

New member
Registrado
30 Ago 2023
Mensajes
4
Tengo un archivo con una hoja llamada SURTIDOS, dentro de la misma tengo una lista desplegable en la celda D14, lo que quiero ver si se puede es poder imprimir cada uno de los datos de mi lista...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Veo que tienes una macro intentándolo...
Te puede servir:
Código:
Sub Imprimir()
Dim Rng As Range, Celda As Range, uF As Integer
uF = ActiveSheet.Cells(Rows.Count, "AE").End(xlUp).Row
Set Rng = Range("AE5:AE" & uF)
For Each Celda In Rng
Range("D14") = Celda
uF = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:N" & uF).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Next Celda
End Sub
Un saludo, Fernando
Veo que tienes una macro intentándolo...
Te puede servir:
Código:
Sub Imprimir()
Dim Rng As Range, Celda As Range, uF As Integer
uF = ActiveSheet.Cells(Rows.Count, "AE").End(xlUp).Row
Set Rng =...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Volver
Arriba