Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Seleccionar impresora y seleccionar carpeta

31/10/2005 - 00:48 por javi | Informe spam
Ayuda Hacer una pregunta
Hola de nuevo

¿hay alguna forma "fácil" de hacer que durante la ejecución de una macro
aparezca una ventana para seleccionar la impresora con la que se desea
imprimir?

de la misma manera, me gustaría que durante la ejecución se una macro se
pregunte al usuario sobre la carpeta donde debe guardar el fichero
actual, no hay problema en pedirlo que lo escriba en un campo de texto,
pero creo que hace tiempo en el foro alguien pidió ayuda para que
aparezca una ventana que permita seleccionar la carpeta con el ratón
(similar a la ventana que abre el menú ABRIR o el GUARDAR COMO...) y no
encuentro ese mensaje.

Como siempre, gracias por vuestra ayuda.

Javi
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
31/10/2005 - 02:24 | Informe spam
hola, javi !

... durante la ejecucion de una macro... ventana para seleccionar la impresora con la que se desea imprimir?



prueba: Application.Dialogs(xlDialogPrinterSetup).Show

... durante la ejecucion se una macro se pregunte al usuario sobre la carpeta donde debe guardar el fichero [...]



la forma mas sencilla que me puedo imaginar es la siguiente:
en un modulo de codigo 'normal' ==Sub ObtenerDirectorio()
Dim Directorio As String
On Error Resume Next ' por si el usuario pulsa {Esc} y no selecciona nada :)) '
With CreateObject("Shell.Application")
Directorio = .BrowseForFolder( _
0, "Selecciona por favor un directorio", 0, "c:\\").items.Item.Path
End With
On Error GoTo 0
If Directorio = "" Then
MsgBox "No se ha seleccionado ningun directorio !!!"
Else
MsgBox Directorio
End If
End Sub

saludos,
hector.

Preguntas similares

 

Busqueda sugerida :