Guardas pdf con nombre hoja

A

Adriancisf

New member

Registrado

15 Jul 2016

Mensajes

1

• 15 Jul 2016

• #2

espero te sirva

Sub ExportarPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Gerencie.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True...

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í

 

Voto a favor 0 Voto en contra

M

Manuel Martín

New member

Registrado

6 Jul 2018

Mensajes

3

• 6 Jul 2018

• #3

Adriancisf dijo:

espero te sirva

Sub ExportarPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Gerencie.pdf", Quality:=xlQualityStandard, _...

Hacer clic para expandir...

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í

 

Voto a favor 0 Voto en contra

C

CARLOSMCA01

New member

Registrado

26 Feb 2019

Mensajes

4

• 10 Abr 2019

• #4

Podrías ponerlo de esta manera:

Sub ExportarPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Range("Celda de Referencia")&".pdf"...

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í

 

Voto a favor 0 Voto en contra

T

Tolces8

New member

Registrado

2 Oct 2015

Mensajes

85

• 12 Abr 2019

• #5

y si quisiera que el nombre del archivo fuera el texto que tengo en una casilla en concreto, por ejemplo en A1??

 

Voto a favor 0 Voto en contra

T

Tolces8

New member

Registrado

2 Oct 2015

Mensajes

85

• 12 Abr 2019

• #6

Intento esto pero me da error.

Sub ExportarPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Range("A1")&".pdf", Quality:=xlQualityStandard, _...

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í

 

Voto a favor 0 Voto en contra

V

Vico

Member

Registrado

28 Feb 2018

Mensajes

246

• 12 Abr 2019

• #7

Hola que tal:
Prueba asi

Código:Copiar al portapapeles

<i>
</i>
Sub ExportarPDF()
'Por Vico
Dim nombreArchivo As String
nombreArchivo = Range("A1").Value  'Esta variable pondra el nombre de archivo desde donde lo...

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í

 

Voto a favor 0 Voto en contra

T

Tolces8

New member

Registrado

2 Oct 2015

Mensajes

85

• 16 Abr 2019

• #8

Funciona muy bien!!

Gracias

 

Voto a favor 0 Voto en contra

T

Tolces8

New member

Registrado

2 Oct 2015

Mensajes

85

• 16 Abr 2019

• #9

Funciona muy bien!!

Gracias

 

Voto a favor 0 Voto en contra