Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

InputBox para Imprimir numero de copias

17/02/2004 - 20:29 por osalazarg | Informe spam
Ayuda Hacer una pregunta
Tengo el siguiente problema, tengo que enviar a imprimir diario al abrir
un archivo de excel determinado numero de copias, que en ocasiones es
variable, en ocasiones son 9 en ocasiones son 15, y en ocasiones ninguna,
solo me falta un InputBox para Imprimir numero de copias, alguien me
podria ayudar por favor a solucionar este problema.

Por anticipado muchas gracias.






Mensaje enviado desde http://grupos.buscadoc.org

email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
18/02/2004 - 06:05 | Informe spam
hola, sago !

... tengo que ... imprimir ... determinado numero de copias ... variable
... en ocasiones son 9 en ocasiones son 15, y en ocasiones ninguna solo me falta un InputBox [...]



podrias utilizar algo +/- como el siguiente codigo ANTES de las instrucciones de impresion...

[... otras lineas de tu codigo ...]
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
[... otras lineas de tu codigo ...]

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :