Seleccionar impresora y seleccionar carpeta

31/10/2005 - 00:48 por javi | Informe spam

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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 javi

01/11/2005 - 00:23 | Informe spam

Hola Héctor M.

Como siempre Muchas gracias, ambas opciones funcionan perfectamente y
son bastante fáciles de entender y aplicar para un novato.

Un saludo

Javi

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida