Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

convertir en pdf

Alurota

New member
Registrado
13 Abr 2021
Mensajes
25
Buenos dias, estoy con un codigo para unos documentos y estoy añadiendo un boton para convertir el archivo al instante en PDF, lo hace bien pero mi problema es que no se hacerlo para que me guarde...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
No sé si esto es lo que necesitas. Un saludo, Fernando

Código:
Sub Rectánguloesquinasredondeadas4_Haga_clic_en()
ActiveSheet.Range("a1:q1251").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & ActiveWorkbook.Name & ".pdf", quality:=xlQualityStandard, openafterpublish:=True
End Sub

Y si prefieres que no aparezca en el nombre del PDF la terminación .xlsm, puedes utilizar este código
Código:
Sub Rectánguloesquinasredondeadas4_Haga_clic_en()
Name = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
ActiveSheet.Range("a1:q1251").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Name & ".pdf", quality:=xlQualityStandard, openafterpublish:=True
End Sub
Me alegro que te...
No sé si esto es lo que necesitas. Un saludo, Fernando

Código:
Sub Rectánguloesquinasredondeadas4_Haga_clic_en()
ActiveSheet.Range("a1:q1251").ExportAsFixedFormat Type:=xlTypePDF, _...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Última edición:
Volver
Arriba