UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Por favor antes de hacer su consulta lean "Recomendaciones para hacer preguntas." Den Click aquí

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

6luishao6


Buenas como puedo modificar este codigo para que me guarde pero antes de eso me salga la opcion de guardarlo en un lugar especifico o poder cambiar el nombre, asi como si le diera GUARDAR COMO, en Word.
Sub Imprimir()
resultado = MsgBox("¿Estás seguro que deseas imprimir el archivo.?", vbOKCancel, "Hola")
If resultado = vbOK Then
MsgBox "Procediendo con la impresión del archivo. . .", vbExclamation, "Registro Pedagógico v5.2"
ruta = CreateObject("WScript.Shell").Specialfolders("Desktop") & "\"
nombre = WorksheetFunction.Text(Now(), "dd-mmm-yyyy-O-hh-mm-ss")
MsgBox "El archivo impreso, se guardó en el: ((ESCRITORIO))", vbExclamation, "Hola"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre, OpenAfterPublish:=1
Else
MsgBox "Haz cancelado la impresión del archivo.", vbExclamation, "Hola"
End If
End Sub
Gracias. . .

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.