Imprimir
Tengo una macro mediante la cual desde una hoja imprimo otra que es un
espejo de la primera (pero sin los títulos que no los debo imprimir).
El asunto es que yo quiero cambiar esa macro y lo que quiero es llamar
a la ventana que se nos aparece cuando hacemos Archivo-Imprimir así el
usuario puede decidir por ejemplo la cantidad de copias que quiere.
Con mi macro yo estoy imprimiendo una copia por vez, por supuesto que
también puedo imprimir dos o tres o las que sea, pero en forma fija.
Lo que yo quiero es que el usuario decida la cantidad de copias, por
eso quiero que aparezca esa pantalla y no se como invocarla, no se
cual es la sentencia. Desde ya muchas gracias
espejo de la primera (pero sin los títulos que no los debo imprimir).
El asunto es que yo quiero cambiar esa macro y lo que quiero es llamar
a la ventana que se nos aparece cuando hacemos Archivo-Imprimir así el
usuario puede decidir por ejemplo la cantidad de copias que quiere.
Con mi macro yo estoy imprimiendo una copia por vez, por supuesto que
también puedo imprimir dos o tres o las que sea, pero en forma fija.
Lo que yo quiero es que el usuario decida la cantidad de copias, por
eso quiero que aparezca esa pantalla y no se como invocarla, no se
cual es la sentencia. Desde ya muchas gracias
1 respuesta
Respuesta de pergo
1
Esta macro la puedes adaptar al código que ya tengas o dejarla tal cual.
No es lo que pides, lo siento... Pero espero que te pueda servir.
Sub imprimir()
Dim Copias As Integer
Solicitar_Copias:
Copias = Val(InputBox("Indica el número de copias a imprimir...", "", 1))
If Copias = 0 Then
MsgBox "Acción calcelada."
Exit Sub
ElseIf Not Copias > 0 Then
MsgBox "Indica un número mayor que cero."
GoTo Solicitar_Copias
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=Copias
End Sub
Suerte.
No es lo que pides, lo siento... Pero espero que te pueda servir.
Sub imprimir()
Dim Copias As Integer
Solicitar_Copias:
Copias = Val(InputBox("Indica el número de copias a imprimir...", "", 1))
If Copias = 0 Then
MsgBox "Acción calcelada."
Exit Sub
ElseIf Not Copias > 0 Then
MsgBox "Indica un número mayor que cero."
GoTo Solicitar_Copias
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=Copias
End Sub
Suerte.
La verdad es que no era lo que yo quería pero después de testearla debo decir que me gusto más tu solución. Muchas gracias y te aviso que voy a dejar otra consulta que tiene que ver con como puedo hacer para inhabilitar el botón de imprimir que hay en la barra de herramientas y la opción imprimir del menu archivo. Un abrazo
Luis
Luis
