¿Limpiar formato después de imprimir?
Para ELSA MATILDE:
Buen dia, Sra. Elsa.. Por favor, cual sería la macro que limpia el formato después de imprimir. Y ¿Si por casualidad se daña la impresión y al repetirla ya se han borrado los datos ingresados?
1 respuesta
Podés limpiar el formato justo antes de iniciar uno nuevo ... ya sabrás que el otro se imprimió correctamente.
Ahora, tal como tenés la macro de impresión (en el evento BeforePrint) cuando vuelvas a imprimir te volverá a incrementar el correlativo y a pasar el registro a la Hoja1.
Entonces una solución sería agregar una pregunta de si debe o no guardar el registro, quedándote así:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
'x Elsamatilde
'si no se trata de hoja FActura no se ejecuta el resto
If ActiveSheet.Name <> "Factura" Then Exit Sub
'consulta si se repite la impresión
sino = MsgBox("¿Está repitiendo la impresión?", vbYesNo, "CONFIRMAR")
'si repite no se ejecuta el resto
If sino = vbYes Then Exit Sub
'actualiza numeración
ActiveSheet.Range("W3").Value = ActiveSheet.Range("W3").Value + 1
'ejecuta el proceso del pase
Call pase_Hoja1
End SubY ahora pasemos al tema de la consulta. Limpiar el formato para permitir un nuevo ingreso. Tal lo explicado no irá en la macro de pase sino con otro botón que lo ejecutarás cuando decidas. La macro se coloca en un módulo.
Sub limpieza()
'x Elsamatilde
'limpia todas las celdas necesarias para el ingreso de datos
'me aseguro que sea en hoja Factura
Sheets("Factura").Select
Range("D6:D9, O6:O7, P8, U6:U8") = ""
'repetir con el resto de las celdas.
'NO incluir no Nro ni fecha ni cualquiera que contenga una fórmula
End Sub
