Solicito su ayuda para una macro que imprima solo las celdas que contienen datos. Tengo un botón que me ayuda a realizar un filtro avanzado y me trae los datos que quiero buscar, pero al realizar en el otro botón la impresión para paso a PDF me las convierte todas y solo quiero que se muestre en el PDF las que se consultaron.
Tengo el siguiente código en el botón de impresión.
pplication.ScreenUpdating = False
If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then
Dim HResumen As Worksheet
Dim Ruta As String
Dim Titulo As String
Buenas tardes gracias por este espacio.
Solicito su ayuda para una macro que imprima solo las celdas que contienen datos. Tengo un botón que me ayuda a realizar un filtro avanzado y me trae los datos que quiero buscar, pero al realizar en el otro botón la impresión para paso a PDF me las convierte todas y solo quiero que se muestre en el PDF las que se consultaron.
Tengo el siguiente código en el botón de impresión.
pplication.ScreenUpdating = False
If MsgBox("¿Desea Convertir a PDF?", vbQuestion + vbYesNo) = vbYes Then
Dim HResumen As Worksheet
Dim Ruta As String
Dim Titulo As String
Set HResumen = Worksheets("Resumen")
Ruta = ThisWorkbook.Path
Ruta = Ruta & "\"
Titulo = HResumen.Range("A2").Text
'Cells.Select
HResumen.Range("A1:I20").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & Titulo, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
HResumen.Range("A1").Select
'----------------------------------------------
Muchas Gracias