Agregar area de imprsión a macro VBA Excel

Hpola DAM.

He visto por acá la macro para Establecer area de impresion pero no doy con ella.

Pues quisiera adicionarla a esta tu macro para que me imprima en PDF toda el area en una sola hoja y que el PDF no me muestre el contenido en mas de una

Sub EnviarPdf
'Por.Dante Amor
    ruta = "D:\Pagos a otros\"ThisWorkbook.Path & "\"
    punto = InStrRev(ThisWorkbook.Name, ".")
    libro = Left(ThisWorkbook.Name, punto - 1)
    nombre = "Pagos carozo" & ".pdf" 'libro & ".pdf"
    Sheets("Hoja1").Range("A2:I54").ExportAsFixedFormat _
        Type:=xlTypePDF, Filename:=ruta & nombre, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

1 Respuesta

Respuesta
1

Para que salga en una sola hoja

Sub EnviarPdf()
'Por.Dante Amor
    ruta = ThisWorkbook.Path & "\"
    punto = InStrRev(ThisWorkbook.Name, ".")
    libro = Left(ThisWorkbook.Name, punto - 1)
    nombre = "Pagos carozo" & ".pdf" 'libro & ".pdf"
    rango = "A2:I54"
    '
    With ActiveSheet.PageSetup
        .PrintArea = rango
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveSheet.Range(rango).ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & nombre & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

Funciona con un inconveniente, me cria varias hojas. Explico

El rango que tengo en mi solicitud es A2:I54

Con este rango me cria 4 hojas, la 1ª hasta la columna H,  la 2ª y 4ª vacias, la 3ª con los datos solo de la columna I

Cambio el rango para A2:I44 que es precisamente hasta donde contiene datos, me cria 2 hojas. La 1ª hasta la columna H y la 2ª hoja sola con la columna I

E dificil para emplear

Sheets("Filtro").Range("H" & Rows.Count).End(xlUp).Row

Porque puede existir celdas en una o ota columna sin datos.

Entonces en una columna podria captar la ultima en A44 mientras que en otra seria A43, me quedaria la linea 44 por imprimir en PDF.

No se si me hice entender

Entendí desde la primera vez: necesitas que todo quede en una sola hoja. La macro me funciona, debes tener problemas con tu excel.

Prueba con la siguiente:

Sub EnviarPdf()
'Por.Dante Amor
    ruta = ThisWorkbook.Path & "\"
    nombre = "Pagos carozo" & ".pdf"
    rango = "A2:I54"
    '
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$2:$I$54"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .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
    '
    ActiveSheet.Range(rango).ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ruta & nombre & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

La macro anterior, ¿te funciona co nel rango A2:I54? ¿O I44?

De una o otra, te hice el comentario de como me sale a mi,

Te envío libro de eemplo

Probaste la última macro va hasta la I54

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Excel, como hacer que en vez de imprimir un rango de celdas, me lo convierta en PDF o WORD ?

Tengo una plantilla en hoja!, desde allí introduzco unos datos que van a la hoja2 luego de haber llenado los datos en hoja1 le doy a un boton que contiene una macro, la cual me imprime el rango, hasta allí todo bien, pero resulta que la empresa ahora...
1 respuesta

Código de vb para guardar un libro de excel como pdf en la ruta donde este esta guardado.

Independientemente de donde este guardado el libro, necesito que Excel me guarde una hoja en pdf en la misma ruta donde este ya está guardado. En otras palabras necesito que vb analice donde está guardado el libro y me guarde aquí la hoja en pdf.
2 respuestas

Macro para mandar hacer una hoja de trabajo PDF y enviarla por outlook

Para Dante Amor, te envío los demás datos que me solicitaste: El envío si es por outlook y los correos serián: [email protected], este correo seria como el principal, [email protected], [email protected] y estos dos como copia....
1 respuesta

Macro para imprimir en PDF

Como está, mi pregunta es como hacer un código que imprima un rango determinado en archivo pdf, utilizo Excel 2007, y trato de usar ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Prueba.pdf", Quality:=xlQualityStandard, _...
1 respuesta

Guardar varias hojas de Excel en un mismo PDF con cada nombre de cliente

Tengo hecha una macro que me convierte el excel en PDF (solo de una hoja) y me exporta cada PDF de cada cliente a la ruta que le tengo asignado. Necesito que me convierta la primera y segunda hoja del excel a PDF (el mismo PDF) y que se guarde cada...
1 respuesta

Guardar como pdf excel

Estoy realizando una macro que pueda unificar el contenido de varias hojas en un solo PDF, quiero que automáticamente seleccione un rango diferente en cada hoja para que solo imprima ese rango seleccionado en el PDF final. Ej: tengo 4 hojas...
1 respuesta

Botón para imprimir en pdf .

Me interesaría me apoyaran a elaborar una macro en la cual, desde un botón de mi hoja llamada factura, ya teniendo determinada mi área de impresión a1-e44, me genere el archivo pdf en una carpeta en el disco local c, llamada facturas en pdf, y que le...
1 respuesta

Código para crear botón que guarde e imprima dos recibos de pago diferentes en una hoja.

Quisiera saber algún experto me pudiera ayudar con este problema y le envío el archivo en excel y explico con más detalle.
1 respuesta

Imprimir en PDF macro excel

Tengo un Botón Imprimir en Un formulario macro excel Con el siguiente código: Private Sub Imprimir_Click() Sheets("INFORME").Select Range("A1:I162").Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A92").Value, Quality:= _...
1 respuesta

Guardar hoja de Excel a PDF y enviar por outlook

Para Dam, tengo una macro que guarda una hoja de Excel a PDF, me gustaría si se puede hacer que cuando se guarde en PDF, se abra un cuadro de dialogo o algo parecido y que tengas la opción de enviar el PDF o no enviarlo, y si lo envías abra Outlook...
1 respuesta