Genera reporte de pagos y guardar en PDF Excel VBA
Para Dante
H o l a Dante deseo generar reporte de pagos y guardarlo en pdf en la misma ruta.
Del formulario USERFORM3 en la ficha REPORTES selecciono reporte PAGOSXALUMNO, y busco el alumno y selecciono el alumno buscado por el LISTBOX.
resultado rquerido
Los detalles te adjunto a tu Email Dante muy agradecido de verdad
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Dante lo logré
If Listreport.ListIndex = -1 Then
MsgBox "Seleccione un alumno(a)", vbInformation, "IESPP MEO"
Exit Sub
End If
Set h8 = Sheets("Pagosxciclo")
Set h9 = Sheets("temp")
h9.Range("A11:F30").ClearContents
k = 11
DNI = Listreport.List(Listreport.ListIndex, 0)
Set r = h8.Columns("B")
Set b = r.Find(DNI, lookat:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
h9.[B4] = h8.Cells(b.Row, "B")
h9.[B6] = h8.Cells(b.Row, "C")
h9.[B8] = h8.Cells(b.Row, "D")
h9.[F4] = Now
Do
h9.Cells(k, 1).Value = b.Offset(0, -1)
h9.Cells(k, 2).Value = b.Offset(0, 3)
h9.Cells(k, 3).Value = b.Offset(0, 9)
h9.Cells(k, 4).Value = b.Offset(0, 4)
h9.Cells(k, 5).Value = b.Offset(0, 5)
h9.Cells(k, 6).Value = b.Offset(0, 8)
k = k + 1
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
u = h9.Range("F" & Rows.Count).End(xlUp).Row
h9.Range("F" & u + 1) = WorksheetFunction.Sum(Range("F11:F" & u))
u1 = h9.Range("E" & Rows.Count).End(xlUp).Row
h9.Range("E" & u1 + 1) = "//////Total"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
h9.Copy
Set l2 = ActiveWorkbook
Set h10 = l2.Sheets(1)
ruta = ThisWorkbook.Path & "\"
arch = [B4] & " " & [B6]
h10.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
l2.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
