Restriccion al imprimir

[aaguioli]

Hola a todos.
Quisiera saber si existe una manera de restringir la impresión de hojas de Excel, ya sea por Visual Basic, Html o Php. Gracias

 

[oscar_igor]

yo utilizo esto para una plantilla en la cual necesito que se llenen todos los datos, si no que no se pueda imprimir hasta que el valor de la celda A1 sea igual a 1


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MiValidacion() = False Then
Cancel = True
MsgBox "¡¡¡¡VERIFICAR LOS DATOS REQUISITADOS, ALGUN DATO ES INCORRECTO!!!!"
End If
End Sub


Function MiValidacion() As Boolean
MiValidacion = (Range("A1").Value = 1)
End Function

Suerte