Access - Problema al imprimir con filtros

 
Vista:
sin imagen de perfil
Val: 13
Ha aumentado su posición en 6 puestos en Access (en relación al último mes)
Gráfica de Access

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.

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 stDocName
 
End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Manuel
Val: 392
Plata
Ha aumentado 1 puesto en Access (en relación al último mes)
Gráfica de Access

Problema al imprimir con filtros

Publicado por Manuel (167 intervenciones) el 25/08/2020 11:16:28
Cambia a:

1
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, archivopdf, True, ""

A mi si me funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar