Excel: Como Contar hasta 3, luego Imprimir y reiniciar
Tengo una plantilla en la *hoja3* de 3 recibos ya cuadrada por pagina para imprimir, con muchos datos que llenar uso la función BUSCARV aquí no hay problema todo bien
Mi caso es como ejemplo en la *hoja2* llega hasta la columna BO y 500 filas en aumento
en la *hoja3* C2 se debe poner el código a buscar en *hoja2* con BUSCARV es fácil
necesito buscar las 500 filas e ir imprimiendo todos los meses
ini = Val(h3.Range("B3").Value)
fin = Val(h3.Range("C4").Value)
If ini = "" Or ini = 0 Or Not IsNumeric(ini) Then
MsgBox "Pon el número inicial"
Exit Sub
End If
If fin = "" Then
fin = ini
For i = 3 To h1.Range("A" & Rows.Count).End(xlUp).Row
If Val(h1.Cells(i, "A").Value) > fin Then Exit For
If Val(h1.Cells(i, "A").Value) >= ini And Val(h1.Cells(i, "A").Value) <= fin Then
h2.Range("C2") = h1.Cells(i, "A")
h2.PrintOut
End Ifme funciona muy bien pero solo me entrega una plantilla por pagina
el cintillo es muy pequeño y me gustaría hacer 3 por pagina
1*2*3 print 4*45*6 print 7*8*9 print ....
asi
plantilla 1 *hoja3*
(B2""Codigo"") (C2""001"")
plantilla 2 *hoja3*
(B12""Codigo"") (C12""003"")
plantilla 3 *hoja3*
(B22""Codigo"") (C22""003"")
Imprimir ... Fin ... Reinicia el conteo ahora el Numero 4
plantilla 1 *hoja3*
(B2""Codigo"") (C2""004"")
plantilla 2 *hoja3*
(B12""Codigo"") (C12""005"")
plantilla 3 *hoja3*
(B22""Codigo"") (C22""006"")
Muchas gracias por tomarse el tiempo de leer
Espero su pronta respuesta
Saludos
