Excel - Crear PDF

   
Vista:

Crear PDF

Publicado por Jose (21 intervenciones) el 08/05/2009 12:54:04
Buenos días,

Estoy tratando de crear un procedimiento para crear una hoja excel en formato PDF. Mi problema surge cuando uso "GetSaveAsFilename", ya que se me abre un cuadro dialogo. ¿Hay alguna manera de que no aparezca este cuadro diálogo y que se grabe el archivo automáticamente en la ruta que yo le marque con anterioridad?

Os adjunto mi código:

Dim Formato As String
Dim Archivo As Variant

Formato = "Archivos (*.pdf), *.pdf"
Archivo = Application.GetSaveAsFilename("Prueba", filefilter:=Formato, Title:="Create PDF")

Gracias

Jose
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Crear PDF

Publicado por Luis Fernando (805 intervenciones) el 10/05/2009 06:15:17
Yo uso algo como:

Sub Genera_PDF()
'ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:UsersluifergiPDF" _
& Range("R8") & " " & Range("G2") & "_" & Range("B1") & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar