Macro para guardar rango de celdas en PDF

[96andres96]

Buenas.

Quisiera hacer una macro para guardar un rango de celdas en un PDF cuando se cliquee en un botón. 

La macro en sí, se hacerla. El problema viene en que el rango de celdas seleccionado es grande (no mucho), pero lo suficiente como para que cuando se genere el PDF se guarde en varias hojas. Por tanto, lo que me gustaría que me ayudasen a conseguir es a que la información del rango de celdas se redimensione para que quepa en una única hoja del PDF. ¿Es posible?

Gracias.

[JSDJSD]

Sube tu archivo y probamos

[Janlui]

El rango que tienes seleccionado, definelo como area de impresión y al imprimir en PDF indicale que quieres se imprima en una sola hoja.

[96andres96]

Hace 7 horas, JSDJSD dijo:

Sube tu archivo y probamos

Aquí adjunto un excel de prueba. 

Lo que me gustaría es guardar las tablas (en la prueba están vacías) en una única hoja horizontal en PDF. 

La opción de imprimir que comenta Exceler C no me sirve, ya que tengo que tener una impresora activa todo el rato y no puedo cambiarla por la de Microsoft Print To PDF.

Gracias.

Prueba.xlsm

[Janlui]

Prueba esto:

 

Sub guarda_pdf()

    ruta = ActiveWorkbook.Path & "\salida3.pdf"
    ActiveSheet.PageSetup.PrintArea = "$A$2:$P$42"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ruta, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub
 

[JSDJSD]

Prueba y comenta

Prueba (1).xlsm

[96andres96]

Muchas gracias a los dos. Ambas respuestas me han servido, pero por sencillez he optado por la de JSDJSD.

No obstante, como comenté anteriormente, tengo que tener siempre activa una impresora (de tickets) entonces si le doy a la macro, al crearse el PDF lo hace en el formato de esa impresora. Por tanto, pensé en el inicio de ejecutar la macro poner: 

Application.ActivePrinter = "Microsoft Print to PDF"

Y una vez finalizada la macro, cambiar a la impresora de Tickets, pero me da error.

¿Hay alguna forma de conseguir esto que comento?

Gracias.