Mensaje antes de imprimir

hola, Roberto !

Necesitaba saber si el BeforePrint podía 'no capturar' la vista previa sino solo el lanzamiento de la impresion y me ha quedado claro.
Por otra parte ciertamente tendre que tratar de anular la forma 'convencional' de impresion
y tratar de que esta sea lanzada unicamente a traves de un boton de comando o similar que acepto una 'orientacion' ...

1) la opcion mas 'economica' para cancelar las formas 'convencionales' de impresion [para el usuario Y por codigo]...
-> es establecer el argumento 'Cancel' en False [en el evento '_beforeprint' del libro -ThisWorkbook-]
[aunque]... tampoco podrias imprimir 'por codigo' :-((
a menos que declare y manejes una variable de tipo boolean que se encargue de 'administrar' cuando si o cuando no :)) [p.e.]

a) pon algo +/- como lo siguiente en un modulo de codigo 'normal' ==Public TienePermiso As Boolean
Sub Imprimir_por_codigo()
TienePermiso = True
MsgBox "Operacion aoprobada !!!"
ActiveWindow.SelectedSheets.PrintOut
TienePermiso = False
End Sub

b) pon algo +/- como lo siguiente en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = Not TienePermiso
End Sub

[ahora] 'ese' libro SOLO podra imprimirse usando la macro para ello PERO... NO tendra 'disponible' una vista preliminar de impresion :-((

2) si crees que sera necesario 'proveer' otro mecanismo 'controlado' para permitir la vista preliminar de impresion...
sera necesario desarrollar otra secuencia de codigo que administre si se puede 'pasar' de la vista preliminar... a la impresion 'directa'
recuerda que desde el dialogo de la vista preliminar, el usuario 'pudiera' omitir la 'prohibicion' de imprimir [si fuera el caso] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias por tu -siempre tan- valiosa información, Héctor.
Solucionado y agradecido.

="Héctor Miguel" escribió:

hola, Roberto !

> Necesitaba saber si el BeforePrint podía 'no capturar' la vista previa sino solo el lanzamiento de la impresion y me ha quedado claro.
> Por otra parte ciertamente tendre que tratar de anular la forma 'convencional' de impresion
> y tratar de que esta sea lanzada unicamente a traves de un boton de comando o similar que acepto una 'orientacion' ...

1) la opcion mas 'economica' para cancelar las formas 'convencionales' de impresion [para el usuario Y por codigo]...
-> es establecer el argumento 'Cancel' en False [en el evento '_beforeprint' del libro -ThisWorkbook-]
[aunque]... tampoco podrias imprimir 'por codigo' :-((
a menos que declare y manejes una variable de tipo boolean que se encargue de 'administrar' cuando si o cuando no :)) [p.e.]

a) pon algo +/- como lo siguiente en un modulo de codigo 'normal' ==> Public TienePermiso As Boolean
Sub Imprimir_por_codigo()
TienePermiso = True
MsgBox "Operacion aoprobada !!!"
ActiveWindow.SelectedSheets.PrintOut
TienePermiso = False
End Sub

b) pon algo +/- como lo siguiente en el modulo de codigo del libro [ThisWorkbook] ==> Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = Not TienePermiso
End Sub

[ahora] 'ese' libro SOLO podra imprimirse usando la macro para ello PERO... NO tendra 'disponible' una vista preliminar de impresion :-((

2) si crees que sera necesario 'proveer' otro mecanismo 'controlado' para permitir la vista preliminar de impresion...
sera necesario desarrollar otra secuencia de codigo que administre si se puede 'pasar' de la vista preliminar... a la impresion 'directa'
recuerda que desde el dialogo de la vista preliminar, el usuario 'pudiera' omitir la 'prohibicion' de imprimir [si fuera el caso] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.