Convertir a PDF la vista preliminar de un reporte
Hola amigos, espero me puedan apoyar, en un reporte de Access 2010 generé el siguiente código en el evento "Al imprimir" de la sección Encabezado de página:
Private Sub SecciónEncabezadoDePágina_Print(Cancel As Integer, PrintCount As Integer)
If Me.txtPage = Me.txtPages Then
Me.Etiqueta130.Visible = False
Me.Etiqueta131.Visible = False
Me.Etiqueta132.Visible = False
Me.Etiqueta133.Visible = False
Me.Etiqueta134.Visible = False
Me.Etiqueta135.Visible = False
Me.Etiqueta136.Visible = False
End If
End Sub
En la vista preliminar oculta solo en la última hoja de impresión las 7 etiquetas (es lo que deseo y lo hace bien), luego envío el reporte a PDF con el siguiente código a la carpeta "Reports":
datFechaHora = Date & " " & Time
strNombre = CStr(Format(datFechaHora, "yyyy-mm-dd hh.mm.ss")) & " PO# " & Me.PO_
DoCmd.OutputTo acOutputReport, "", acFormatPDF, Application.CurrentProject.Path & "\Reports\" & strNombre & ".pdf", True
Pero en ninguna de las hojas del PDF aparecen las etiquetas, deseo obtener exactamente lo que me genera la Vista Preliminar en el PDF pero esto no ocurre ¿alguien tiene una solución?, se los agradeceré enormemente.
Adrián