Saludos amigos tengo un formato el cual he hido adjuntando varias macro con diferntes instrucciones y necesito adjuntar una nueva que haga lo siguiente, al Imprimir una o varias de las hojas del libro se vaya creando un archivo en PDF con el mismo nombre del libro, en la hoja DATOS hay una celda (C16) que le da el nombre del libro que generalmente es un numero, he revisado varios proyectos pero ninguno se adapta a mi requerimiento, tambien en el editor de vb en la hoja ThisWorkBook hay una macro que se ejecuta antes de imprimir
Saludos amigos tengo un formato el cual he hido adjuntando varias macro con diferntes instrucciones y necesito adjuntar una nueva que haga lo siguiente, al Imprimir una o varias de las hojas del libro se vaya creando un archivo en PDF con el mismo nombre del libro, en la hoja DATOS hay una celda (C16) que le da el nombre del libro que generalmente es un numero, he revisado varios proyectos pero ninguno se adapta a mi requerimiento, tambien en el editor de vb en la hoja ThisWorkBook hay una macro que se ejecuta antes de imprimir
intente usar esta instruccion pero no me funciono
Sub GuardaPDF()
Dim rutaarchivo As String
rutaarchivo = "C:\PDFs\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=rutaarchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
podrian guiarme a realizar la instruccion adecuada
gracias de antemano
1.zip