Como imprimir una planilla que se actualiza

Necesito imprimir una planilla base que se llena automáticamente según código que se introduzca.

El área de impresión está determinado, lo que requiero es que desde una hoja, "A imprimir", se tome un código, se lleve a la hoja "Base" a la celda D2, con esto se llenará la planilla, e imprimirla. Posteriormente vuelva a la hoja "A imprimir" y si existe otro código lo tome, vuelva a la hoja Base, lo ingrese e imprima y así sucesivamente hasta que no encuentre más códigos en la hoja "A imprimir".

En la hoja "A imprimir" a partir de la celda A2 se ingresarán los códigos que se desean imprimir. (Desde la celda A2 hacia abajo).

La solución debiera ser con una macro.

1 respuesta

Respuesta
1

H o l a:

Te anexo la macro

Sub ImprimirPlantilla()
'Por.Dante Amor
    Set h1 = Sheets("A imprimir")
    Set h2 = Sheets("Base")
    '
    For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
        h2.[D2] = h1.Cells(i, "A")
        h2.PrintOut
    Next
    MsgBox "Impresión Terminada", vbInformation, "IMPRIMIR PLANTILLA"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas