como activo etiqueta condicionante en una macro

hola, Isaac !

... macro ... que informe al usuario de tomar la desicion de dar si o no a la accion.
ejemplo: ... desea realmente imprimir este documento "si" o "no"
y que al dar si se imprima y al dar no se cancele la operacion [...]

la manera mas 'sencilla' es presentando cuadros de mensajes [MsgBox]
y puede ser de muy diversas maneras
para el caso concreto que ejemplificas [imprimir si o no]...
podrias utilizar en el modulo de codigo del objeto libro [ThisWorkbook???] algo +/- como...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("¿Realmente deseas imprimir/visualizar el documento?", _
vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Cancel = True
End Sub

[aunque...] el mensaje seria 'presentado' ->inclusive<- al 'tratar' de usar la 'vista preliminar' y...
si el usuario 'decide' mandar a la impresion 'desde la visualizacion'... YA NO le preguntaria nuevamente :-((
[a menos que se 'truqueen' los eventos y se utilicen variables 'intermedias'] ;)

saludos,
hector.

Gracias Hector:

Tal vez no me explique bien, pero me ayudo bastante tu ayuda, lo que yo
queria era que la etiqueta se mostrara al ejecutar solo algunas macros que
manda a impresion, no todas. Pero sufriendo un poco me salio, mira te la
muestro para que le des un vistazo:

Sub imprimir_grafico_3_solopprueba()
'
' Macro grabada el 19/02/2004 por dermac
'

'
If MsgBox("¿Realmente deseas imprimir/visualizar el documento?", _
vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then GoTo line2
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "GRAFICO_3"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperLetter
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
End
line2:
MsgBox ("Decidete a Imprimir o a trabajar")
End
End Sub



"Héctor Miguel" escribió en el mensaje
news:

hola, Isaac !

> ... macro ... que informe al usuario de tomar la desicion de dar si o no

a la accion.

> ejemplo: ... desea realmente imprimir este documento "si" o "no"
> y que al dar si se imprima y al dar no se cancele la operacion [...]

la manera mas 'sencilla' es presentando cuadros de mensajes [MsgBox]
y puede ser de muy diversas maneras
para el caso concreto que ejemplificas [imprimir si o no]...
podrias utilizar en el modulo de codigo del objeto libro [ThisWorkbook???]

algo +/- como...

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("¿Realmente deseas imprimir/visualizar el documento?", _
vbQuestion + vbYesNo + vbDefaultButton2) = vbNo Then Cancel = True
End Sub

[aunque...] el mensaje seria 'presentado' ->inclusive<- al 'tratar' de

usar la 'vista preliminar' y...

si el usuario 'decide' mandar a la impresion 'desde la visualizacion'...

YA NO le preguntaria nuevamente :-((

[a menos que se 'truqueen' los eventos y se utilicen variables

'intermedias'] ;)

saludos,
hector.