Generar boleta en pdf excel vba
Para Dante Amor
Buenos dias amigo Dante.
Necesito que cuando se realice el pago, se genere también la boleta como te muestro en la imagen en la " hoja Boleta" y lo guarde en PDF con el nombre y dni.
La Hoja "Boleta" me servirá para generar el comprobante de pago por cada Padre selecciondo.
Le envié el archivo.
Muy agradecido por su gentileza por colaborar Saludos!
1 respuesta
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro para guarda la boleta como pdf
'Generar boleta
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h4 = Sheets("Boleta")
h4.Copy
Set l2 = ActiveWorkbook
Set h5 = l2.Sheets(1)
u = 10
h5.[C5] = Date
h5.[C6] = Time
For i = 0 To Lsmulta.ListCount - 1
h5.Cells(u, "B") = CDate(Txtfecha)
h5.Cells(u, "C") = Lsmulta.List(i, 1)
h5.Cells(u, "F") = Val(Lsmulta.List(i, 2))
u = u + 1
Next
ruta = ThisWorkbook.Path & "\"
arch = CboLista & " " & TextBox1.Text
h5.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
l2.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Gracias amigo pero falta algo pequeño
Del formularrio el combobox (nombre del padre), debe pasa a la boleta nombre asociado gracias.
Anexo el código actualizado:
'Generar boleta
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set h4 = Sheets("Boleta")
h4.Copy
Set l2 = ActiveWorkbook
Set h5 = l2.Sheets(1)
u = 10
h5.[C5] = Date
h5.[C6] = Time
h5.[E7] = CboLista
For i = 0 To Lsmulta.ListCount - 1
h5.Cells(u, "B") = CDate(Txtfecha)
h5.Cells(u, "C") = Lsmulta.List(i, 1)
h5.Cells(u, "F") = Val(Lsmulta.List(i, 2))
u = u + 1
Next
ruta = ThisWorkbook.Path & "\"
arch = CboLista & " " & TextBox1.Text
h5.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
l2.Close False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
'
