Vista Previa

18/02/2005 - 00:02 por Fabian | Informe spam
Hola a todos!
Hice unos botones y tube algunos problemas con las rutas, levanté un
"archivito" que mandaron a la lista y decidi armar los botones con codigo,
tomando el codigo del archivo como ejemplo, necesito una mano con el boton
de vista previa, si alguien me puede poner el codigo correcto, gracias.
Tomar en cuenta que los otros 5 botones son macros que arme.
Pense en armar una macro con la orden
ActiveWindow.SelectedSheets.PrintPreview
Supongo que no vale la pena.

With Comandos.Controls(6)
.OnAction = ?????ActiveWindow.SelectedSheets.PrintPreview
.FaceId = 109
.TooltipText = "Vista Preliminar"
End With
 

Leer las respuestas

#1 KL
18/02/2005 - 00:55 | Informe spam
Hola Fabian

Lo que ocurre es q OnAction requiere una cadena de texto q representa el
nombre de un procedimiento. Por lo tanto tendrias q crear un macro como
p.ej. este:

Sub MiMacro()
ActiveWindow.SelectedSheets.PrintPreview
End Sub

y luego dentro de tu procedimiento principal poner lo siguiente:

With Comandos.Controls(6)
.OnAction = "MiMacro"
.FaceId = 109
.TooltipText = "Vista Preliminar"
End With

Saludos,
KL


"Fabian" wrote in message
news:%
Hola a todos!
Hice unos botones y tube algunos problemas con las rutas, levanté un
"archivito" que mandaron a la lista y decidi armar los botones con codigo,
tomando el codigo del archivo como ejemplo, necesito una mano con el boton
de vista previa, si alguien me puede poner el codigo correcto, gracias.
Tomar en cuenta que los otros 5 botones son macros que arme.
Pense en armar una macro con la orden
ActiveWindow.SelectedSheets.PrintPreview
Supongo que no vale la pena.

With Comandos.Controls(6)
.OnAction = ?????ActiveWindow.SelectedSheets.PrintPreview
.FaceId = 109
.TooltipText = "Vista Preliminar"
End With


Preguntas similares