BLOQUEAR IMPRESION CON DATOS INCOMPLETOS

Hola Alfredo Sanchez Deveaux!
..Una pregunta especificamente cuales son las celdas que
deben estar llenas??

Saludos
Lisandro

Un saludo cordial, pregunta: existiera alguna macro para

bloquear la

impresión desde un formato que no cumpla con todos los

campos

debidamente llenados?

Gracias de antemano.

.

Gracias por tu interés Lisandro, en concreto la idea es bloquear la
impresión en un formato cualquiera pero que al detectar que alguna de
estas celdas no estuviera llena, me impida generar la impresión.
Saludos, excelente foro!

Lisandro escribió:

Hola Alfredo Sanchez Deveaux!
..Una pregunta especificamente cuales son las celdas que
deben estar llenas??

Saludos
Lisandro

Un saludo cordial, pregunta: existiera alguna macro para

bloquear la

impresión desde un formato que no cumpla con todos los

campos

debidamente llenados?

Gracias de antemano.

.

Hola Alfredo Sanchez Deveaux!
Siendo este el caso prueba esto.
Alt+F11 ve al Thisworbook copia y pegale lo siguiente

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Es importante que las celdas de Mi
preferencia esten ¡ 'actualizada' !!!" & vbCr & _
"CUALQUIER OTRO COMENTARIO" & vbCr & _
"CUALQUIER OTRO COMENTARIO" & vbCr & _
"¿Deseas cancelar este proceso
para 'regresar' a verificarlo?", _
vbInformation + vbYesNo) = vbNo Then
Exit Sub
Cancel = True: With Worksheets
("Hoja1"): .Activate: .Range("c14").Select: End With
End Sub

'Importante esto aplica tambien para la vista preliminar,
Espero sea de tu utilidad.

Nota: Este fue expuesto en una oportunidad por Hector
Miguel!
Nota: Cambia tus comentarios "CUALQUIER OTRO COMENTARIO"

Saludos
Lisandro.

Gracias por tu interés Lisandro, en concreto la idea es

bloquear la

impresión en un formato cualquiera pero que al detectar

que alguna de

estas celdas no estuviera llena, me impida generar la

impresión.

Saludos, excelente foro!

Lisandro escribió:

Hola Alfredo Sanchez Deveaux!
..Una pregunta especificamente cuales son las celdas

que

deben estar llenas??

Saludos
Lisandro

Un saludo cordial, pregunta: existiera alguna macro

para

bloquear la

impresión desde un formato que no cumpla con todos los

campos

debidamente llenados?

Gracias de antemano.

.

.

Estimado Lisandro, al momento de solicitar la impresión me
envia el mensaje de error de compilación y error de sintaxis.
Manejo el excel 97.
Espero tus comentarios
Saludos
Lisandro escribió:

Hola Alfredo Sanchez Deveaux!
Siendo este el caso prueba esto.
Alt+F11 ve al Thisworbook copia y pegale lo siguiente

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Es importante que las celdas de Mi
preferencia esten ¡ 'actualizada' !!!" & vbCr & _
"CUALQUIER OTRO COMENTARIO" & vbCr & _
"CUALQUIER OTRO COMENTARIO" & vbCr & _
"¿Deseas cancelar este proceso
para 'regresar' a verificarlo?", _
vbInformation + vbYesNo) = vbNo Then
Exit Sub
Cancel = True: With Worksheets
("Hoja1"): .Activate: .Range("c14").Select: End With
End Sub

'Importante esto aplica tambien para la vista preliminar,
Espero sea de tu utilidad.

Nota: Este fue expuesto en una oportunidad por Hector
Miguel!
Nota: Cambia tus comentarios "CUALQUIER OTRO COMENTARIO"

Saludos
Lisandro.

Gracias por tu interés Lisandro, en concreto la idea es

bloquear la

impresión en un formato cualquiera pero que al detectar

que alguna de

estas celdas no estuviera llena, me impida generar la

impresión.

Saludos, excelente foro!

Lisandro escribió:

Hola Alfredo Sanchez Deveaux!
..Una pregunta especificamente cuales son las celdas

que

deben estar llenas??

Saludos
Lisandro

Un saludo cordial, pregunta: existiera alguna macro

para

bloquear la

impresión desde un formato que no cumpla con todos los

campos

debidamente llenados?

Gracias de antemano.

.

.

Hola Alfredo Sanchez Deveaux!

me envia el mensaje de error de compilación y error de

sintaxis...
Prueba que al momento de copiar quede en este orden y con
esos espacios Este es el error...[Elimina los Numeros
1,2,3,4,5,6,7 y los [.-] son solo para que te sirvan de
guion osea al copiar te deben quedar 7 lineas..

Private Sub Workbook_BeforePrint(Cancel As Boolean)
1.- If MsgBox("Es importante que las celdas de Mi
preferencia esten ¡ 'actualizada' !!!" & vbCr & _
2.- "CUALQUIER OTRO COMENTARIO" & vbCr & _
3.- "CUALQUIER OTRO COMENTARIO" & vbCr & _
4.- "¿Deseas cancelar este proceso
para 'regresar' a verificarlo?", _
5.- vbInformation + vbYesNo) = vbNo Then
Exit Sub
6.- Cancel = True: With Worksheets
("Hoja1"): .Activate: .Range("c14").Select: End With
7.- End Sub

Saludos,
Lisandro

Estimado Lisandro, al momento de solicitar la impresión me
envia el mensaje de error de compilación y error de

sintaxis.

Manejo el excel 97.
Espero tus comentarios
Saludos
Lisandro escribió:

Hola Alfredo Sanchez Deveaux!
Siendo este el caso prueba esto.
Alt+F11 ve al Thisworbook copia y pegale lo siguiente

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Es importante que las celdas de Mi
preferencia esten ¡ 'actualizada' !!!" & vbCr & _
"CUALQUIER OTRO COMENTARIO" & vbCr &

_

"CUALQUIER OTRO COMENTARIO" & vbCr &

_

"¿Deseas cancelar este proceso
para 'regresar' a verificarlo?", _
vbInformation + vbYesNo) = vbNo Then
Exit Sub
Cancel = True: With Worksheets
("Hoja1"): .Activate: .Range("c14").Select: End With
End Sub

'Importante esto aplica tambien para la vista

preliminar,

Espero sea de tu utilidad.

Nota: Este fue expuesto en una oportunidad por Hector
Miguel!
Nota: Cambia tus comentarios "CUALQUIER OTRO COMENTARIO"

Saludos
Lisandro.

Gracias por tu interés Lisandro, en concreto la idea es

bloquear la

impresión en un formato cualquiera pero que al detectar

que alguna de

estas celdas no estuviera llena, me impida generar la

impresión.

Saludos, excelente foro!

Lisandro escribió:

Hola Alfredo Sanchez Deveaux!
..Una pregunta especificamente cuales son las celdas

que

deben estar llenas??

Saludos
Lisandro

Un saludo cordial, pregunta: existiera alguna macro

para

bloquear la

impresión desde un formato que no cumpla con todos

los

campos

debidamente llenados?

Gracias de antemano.

.

.

.