Formulario para imprimir con macros
Tengo una hoja en excel el cual imprimo con la siguiente macro:
Sub Imprimir_BN1()
Dim Desde, Hasta, Cuanto
Dim Activa As Range
' Sheets("BN1").Select
Set Activa = Range("B5")
Desde = Val(InputBox("Boleta de Pago Inicial", "Imprimir Desde"))
If Desde > Range("P35") Or Desde <= 0 Then ' Range("MAX")= 24 & vinculo con celda P35
MsgBox "Fuera de Rango permitido, seleccione de 1 a " & Range("P35") & " Trabajadores", vbCritical
Exit Sub
End If
Hasta = Val(InputBox("Boleta de Pago Final", "Imprimir Hasta"))
If Hasta > Range("P35") Or Hasta <= 0 Then '
MsgBox ("Solo Existen: " & Range("P35") & " Trabajadores en esta Planilla"), vbCritical
Exit Sub
End If
Cuanto = Val(InputBox("¿Cuantas copias desea?", "COPIAS"))
On Error GoTo Errores
For i = Desde To Hasta
Activa.Value = i
ActiveSheet.PrintOut copies:=Cuanto
Next i
Exit Sub
Errores:
MsgBox Err.Description
End SubRealiza el trabajo bien, pero lo que desearía es un formulario en el cual indique la pagina inicial, pagina final y numero de copias.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Envíame tu archivo de excel con tu formulario propuesto, si no tienes formulario, te creo uno y adapto la macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Vicente Quispe Gonzalez” y el título de esta pregunta.
¡Gracias! Dante estuve desconectado de la web, pero afortunadamente ya conseguí crear un formulario que cumple con mis expectativas, de todas maneras te agradezco bastante el apoyo que das a muchas personas. Gracias.
No tienes que agradecerlo, con todo gusto. Avísame si necesitas algo. S aludos.
