Una macro para imprimir en pdf desde una hoja especifica

Prueba esto:

Sub hojaPdf()
  Sheets("hoja1").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & "HojaPdf.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Gracias Dante, pero sigo teniendo problemas no realmente no se si toque algo o la hoja tiene alguna incompatibilidad, realizo todos los pasos para configurar la macro y me salen estos errores, no se si me podrías ayudar mil gracias,

¿Por qué hay un "44" en la macro?

Borra ese número.

En esta parte de la macro tienes que poner el nombre de tu hoja:

Sheets("hoja1")

Veo que tienes 2 hojas, entonces si quieres guardar la hoja "Oferta" la macro sería así:

Sub hojaPdf()
  Sheets("Oferta").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\" & "HojaPdf.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=False, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

En el  directorio donde tienes el archivo con la macro te va a generar el archivo "HojaPdf.pdf"

Prueba y me comentas.

Hola buenas Dante,

nuevamente mil gracias, esta ultima recomendación si me funciona a pesar que me da un error pero creo q es ahora de impresora, no se si me puedes ayudar, en vez de que el documento se imprima lo pueda enviar a una carpeta en formato pdf, mil gracias nuevamente saludo