Problema al imprimir con filtros
Publicado por JESUS ALBERTO (5 intervenciones) el 23/08/2020 07:31:37
Mi intención es abrir un formulario(Tickets) con sub-formulario (Detalle Tickets), por cierto lo abre sin problemas.
A la hora de imprimir el ticket de venta, ejecuto un filtro, lo hace todo bien, pero antes de enviarlo como adjunto por correo me sale un mensaje de error: 13 NO COINCIDEN LOS TIPOS, sin embargo a la hora de imprimir filtra el contenido y tambièn me genera el PDF, pero no me permite avanzar, se queda en este error.
A la hora de imprimir el ticket de venta, ejecuto un filtro, lo hace todo bien, pero antes de enviarlo como adjunto por correo me sale un mensaje de error: 13 NO COINCIDEN LOS TIPOS, sin embargo a la hora de imprimir filtra el contenido y tambièn me genera el PDF, pero no me permite avanzar, se queda en este error.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Function GeneraTicketPdf()
On Error GoTo ErrorGeneraTicket
Dim archivopdf As String
Dim stDocName As String
Dim stWhere As String
stDocName = ""
stWhere = ""
archivopdf = ""
stDocName = "02_ImpresionFoliosyPdf"
stWhere = "Folios.Folio = " & Me![Folio]
archivopdf = Application.CurrentProject.Path & "\PDFTICKETS\" & Me.Folio & ".pdf"
If Not IsNull(stDocName) And stDocName <> "" Then
DoCmd.OpenReport stDocName, acViewPreview, , stWhere 'HASTA AQUI TODO BIEN'
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, archivopdf, False 'SI GENERA EL PDF PERO SE DETIENE EN EL ERROR'
DoCmd.Close stDocName ' YA NO PASA SIQUIERA POR AQUÌ'
End If
ErrorGeneraTicket:DoCmd.Close stDocNameEnd Function
Valora esta pregunta
0
