............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

numerador factura automatico DESPUES de imprimir

Ver el tema anterior Ver el tema siguiente Ir abajo

numerador factura automatico DESPUES de imprimir

Mensaje por lmcorvette el Miér Mayo 29, 2013 4:21 pm

buenas tardes, me comunico para que me ayuden con una macro.
resulta que tengo un modelo de recibo el cual al seleccionar "imprimir" me aparece un cuadro con el total de los conceptos del recibo y me da la opcion de aceptar o cancelar.
Hasta ahora solo he logrado hacer que me cambie el numero de factura ANTES de imprimir, pero yo necesito que lo haga DESPUES! para quede listo para el proximo recibo.
la macro que tengo hasta ahora es la siguiente:


Private Sub Workbook_beforePrint(Cancel As Boolean)
Dim Mensaje, Resp
Dim dlgPrint As Boolean

Mensaje = "El total es " & [j20] 'Total
Mensaje = Mensaje & " Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)

On Error GoTo errNoPrint

If Resp = vbYes Then
Application.EnableEvents = False
[j3] = [j3] + 1 'aca es donde me suma el numero de la factura si se imprime PERO ME LO MODIFICA ANTES DE IMPRIMIR Y YO NECESITO QUE LO HAGA DESPUES Y SOLO SI SE IMPRIME ALGO, SI SE CANCELA, NO

Else
Cancel = True
Application.EnableEvents = True
End If

Application.EnableEvents = True


Exit Sub

errNoPrint:
[j3] = [j3] - 1 'aca me resta el numero si en algun momento se cancela la impresion
Cancel = True
Application.EnableEvents = True
End Sub

Desde ya les agradezco a quien pueda ayudarme

lmcorvette

Masculino Cantidad de envíos : 2
Edad : 37
Ciudad - Pais : cipolletti argentina
Version de Excel : 2010
Fecha de inscripción : 29/05/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.