Problema con rutina de impresión
Gracias por atenderme, deseo crear una macro que tome de una base de datos en una hoja y luego pase a imprimir un formulario ya definido en otra hoja del mismo libro, pase a la siguiente fila del la primera hoja e imprima este formulario con los nuevos datos y asía hasta terminar con la información de la base. Me urge. Gracias.
Respuesta de César Mera
1
Prueba con esta macro, debes modificar los números de las columnas y las filas a donde se deben copiar los datos antes de realizar la impresión y lo mismo para la base desde donde se deben tomar los datos.
Lo hice con un ejemplo ficticio y sólo para 3 datos pero ya con la estructura tu puedes hacer el resto.
Option Explicit
Sub Impresiones()
Dim fila As Integer
fila = 2
Do While Hoja1.Cells(fila, 1) <> ""
Cells(3, 3).Value = Hoja1.Cells(fila, 1).Value
Cells(6, 4).Value = Hoja1.Cells(fila, 2).Value
Cells(8, 5).Value = Hoja1.Cells(fila, 3).Value
ActiveSheet.PrintOut
fila = fila + 1
Loop
End Sub
Otra cosa muy importante... la macro la debes correr teniendo cuadradas las opciones de impresión en la hoja en donde tienes el formulario y debes estar ubicado en esa hoja al correr la macro (comienza corriéndola paso a paso antes de enviar todo para que verifiques que todo esta OK)
Lo hice con un ejemplo ficticio y sólo para 3 datos pero ya con la estructura tu puedes hacer el resto.
Option Explicit
Sub Impresiones()
Dim fila As Integer
fila = 2
Do While Hoja1.Cells(fila, 1) <> ""
Cells(3, 3).Value = Hoja1.Cells(fila, 1).Value
Cells(6, 4).Value = Hoja1.Cells(fila, 2).Value
Cells(8, 5).Value = Hoja1.Cells(fila, 3).Value
ActiveSheet.PrintOut
fila = fila + 1
Loop
End Sub
Otra cosa muy importante... la macro la debes correr teniendo cuadradas las opciones de impresión en la hoja en donde tienes el formulario y debes estar ubicado en esa hoja al correr la macro (comienza corriéndola paso a paso antes de enviar todo para que verifiques que todo esta OK)
