Como imprimir varias hojas desde un que tiene busvarv
Tengo una hoja en excel que a través de buscarv captura los datos de calificaciones de dos de los estudiantes que están en el registro y los puedo imprimir hoja por hoja; quisiera que la impresión se pueda realizar de los que yo desee, por ejemplo del 1 al 20, o del 10 al 24, o de todo el curso ; que el numero de impresiones lo pueda indicar.
Estaré a la espera de su respuesta y que Dios los bendiga
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Envíame tu archivo para revisar cómo tienes la información y preparar una macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “phisis” y el título de esta pregunta.
Muy buenas noches experto, gracias por atender mi consulta le envíe el archivo.
Que Dios lo acompañe.
H o l a:
Te anexo la macro
Sub Imprimir() 'Por.Dante Amor ini = [E3] fin = [G3] If fin < ini Then MsgBox "El múmero final debe ser mayor o igual al inicial", vbExclamation, "IMPRIMR" Exit Sub End If If ini = "" Then MsgBox "Captura el número inicial", vbExclamation, "IMPRIMR" Exit Sub End If If fin = "" Then MsgBox "Captura el número final", vbExclamation, "IMPRIMR" Exit Sub End If ' For i = ini To fin Step 2 [D8] = i [D32] = i + 1 ActiveSheet.PrintOut Next MsgBox "Impresiones terminadas", vbInformation, "IMPRIMIR" End Sub
