Guardar una hoja de excel en PDF en cualquier computadora?
Estoy trabajando en un archivo de excel ya tengo el botón que guarda en el escritorio la hoja de excel que quiero en pdf, el problema que el botón solo guarda en mi computadora ya que la dirección de destino es mi escritorio, y el archivo lo cree para otra persona en otra computadora en la cual el botón no funciona por obvias razones, para el botón grabe un macro donde hacia todo el proceso de guardar.
1 respuesta
MUCHAS GRACIAS ESTE ES EL MACRO
Private Sub CommandButton1_Click()
'copia el ancho de papel carta, Hoja unica desde un rango fijo
'SOLO para hoja activa. EL nombre del archivo es lo que tenga escrito en la celda D3 de la hoja activa
nombre = Range("d3") 'Nombre
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\leona\Desktop\ENVIOS NACIONALES.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=2, _
OpenAfterPublish:=True
End Sub
Te anexo la macro actualizada, revisa y me comentas
Private Sub CommandButton1_Click()
'copia el ancho de papel carta, Hoja unica desde un rango fijo
'SOLO para hoja activa. EL nombre del archivo es lo que tenga
'escrito en la celda D3 de la hoja activa
nombre = Range("d3") 'Nombre
ruta = ThisWorkbook.Path & "\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=2, OpenAfterPublish:=True
End Subsal u dos
