Desde Hoja de filtrado ("Temp") crear xlsx y pdf
Como dice el titulo
Sea desde el List o de la hoja Temp crear estos dos archivos para luego imprimir los mismos datos.
Una de las macrospuede llamar la otra vía Call para no hacerse un coketail de macros, o como veas que quede BIEN. Esta es una opinión tal vez sin sentido pero al fin opinión.
La macro para la creación del xlsx y pdf esta en un modulo del archivo que te envíe. También una otra para imprimir pero fataria su acomodo y integración entre estas
1 respuesta
Respuesta de Dante Amor
1
Tres en uno.
Macro para guardar como xls, como pdf e impresión:
Private Sub cmbGuardPrint_Click()
'Por.Dante Amor
Set h1 = Sheets("temp")
If ListBox1.ListCount = 0 Or h1.Range("E" & Rows.Count).End(xlUp).Row < 2 Then
MsgBox "No hay datos seleccionados"
Exit Sub
End If
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ruta = ThisWorkbook.Path & "\"
nombre = "filtro ventas"
h1.Visible = -1
H1. Cells. EntireColumn. AutoFit
'Guardar xls
H1. Copy
ActiveWorkbook.SaveAs ruta & nombre & ".xlsx"
ActiveWorkbook. Close
'Guardar pdf
h1.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ruta & nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
'Imprimir
h1.PrintOut
h1.Visible = 0
'
MsgBox "Datos guardados como xls, pdf e impresión", vbInformation
Application.ScreenUpdating = True
End SubSolamente te faltó decirme cómo quieres que se llamen los archivos.
Les puse por nombre "filtro ventas"
sal u dos
