13/03/2006, 04:30
|
 | | | Fecha de Ingreso: enero-2006
Mensajes: 166
Antigüedad: 18 años, 10 meses Puntos: 0 | |
| msbTexto = "Vas a imprimir einnnn? estás seguro?"
msbTitu = "Hola"
msbOpc = vbOKCancel + vbQuestion + vbDefaultButton1
msbRespuesta = MsgBox(msbTexto, msbOpc, msbTitu)
Select Case msbRespuesta
Case vbOK 'Aceptar
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Case vbCancel 'Cancelar
Sheets("hoja2").Select
Range("A1").Select
End Select |