Macro imprime páginas que indique una celda
Todos quiero hacer una macro que me imprima las páginas marcadas en la celda "a1", estas páginas serán salteadas y separadas por comas y serán de un numero aproximado de 50 .
1 Respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro
Sub ImprimirPaginas() 'Por.Dante Amor If [A1] = "" Then MsgBox "No hay páginas a imprimir en la celda A1" Exit Sub End If ' pags = Split([A1], ",") For i = LBound(pags) To UBound(pags) ExecuteExcel4Macro "PRINT(2," & pags(i) & "," & pags(i) & ",1,,,,,,,,2,,,TRUE,,FALSE)" Next MsgBox "fin" End Sub
Los valores que hay en celda a1 son por ejemplo= 3,6,7,9,4,1,2
Y corresponden a las páginas que quiero imprimir en orden
¿Probaste la macro?
¿Y qué hizo?
