Guardar hoja pdf predeterminada

[enrux]

Hola ..

Como estan..Espero que bien..

si Por favor me podrian ayudar con este codigo

Sub guardarhoja()

ActiveWorkbook.Save

  Application.Dialogs (xlDialogSaveAs)Show



End Sub[/CODE]

sucede que cuando Lo ejecuto Sale El Dialogo de Guardar Como..

Me sale Predeterminado en formato Excel..

Habría Alguna Forma Que Saliera ya elejido en Formato Pdf?

asd.rar

[Gerson Pineda]

Hola ..

Como estan..Espero que bien..

si Por favor me podrian ayudar con este codigo

Sub guardarhoja()

ActiveWorkbook.Save

  Application.Dialogs (xlDialogSaveAs)Show



End Sub[/CODE]

sucede que cuando Lo ejecuto Sale El Dialogo de Guardar Como..

Me sale Predeterminado en formato Excel..

Habría Alguna Forma Que Saliera ya elejido en Formato Pdf?

Hola

Prueba cualquiera de estas dos opciones

Este abre el dialogo imprimir, lo que tienes que haces es cambiar la "impresora" por "Adobe pdf" das click en aceptar y luego te aparecera el cuadro de dialogo "Guardar Pdf como" y luego ya sabes que hacer...

[PHP]Application.Dialogs(xlDialogPrint).Show[/PHP]

Esta opcion te funcionara a partir de 2007, te guardara el pdf en la misma carpeta contenedora de tu libro

[PHP]With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=.Path & _
Application.PathSeparator & .Name & ".Pdf", _
Quality:=xlQualityStandard, OpenAfterPublish:=True
End With[/PHP]

Espero te funcione y nos comentas

Saludos

[enrux]

Mira lo que pasa

Saludos

impr.rar