La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  62858 - INFORME A SNAPSHOT
Autor:  Francisco Jimena
Estoy mandando informes a Gestores en papel y quiero empezar a hacerlo por mail con snapshot. En papel utilizo el código que adjunto:
Private Sub Comando8_Click()
Dim x As Database
Dim y As Recordset
Dim g As String
Dim nre As String
Dim sn As String * 1
Set x = CurrentDb
Set y = x.OpenRecordset("Gest_t", dbOpenDynaset)
y.MoveFirst
Do Until y.EOF
g = y("Gestor")
sn = InputBox("Ahora abrirá el informe del Gestor: " & g)
If sn = "N" Or sn = "n" Then
Exit Do
End If
DoCmd.OpenReport "Info1_2_3 a Gestores", acViewPreview, , "Gestor ='" & g & "'"
MsgBox "Ahora cerrará el informe de " & g
DoCmd.Close acReport, "Info1_2_3 a Gestores"
y.MoveNext
Loop
y.Close
End Sub

El problema es cuando quiero crear informes snapshot, no se poner las condiciones, he probado con: DoCmd.OutputTo acReport, "Info1_2_3 a Gestores", "FormatoSnapshot(*.snp)", "c:pruebassnpprueba.snp", False, "", 0

Os agradecería que me ayudéis
  Respuesta:  Lenin Valderrama Alvis
Me consigna una botellita de vino en mi correo(Dibujada). Bueno he trabajadao este asunto pero comencé a hacerlo con PDF y los PDF no me salen tan bonitos como los SNAPSHOP, cuando llegue a ese nivel me regala el código:

1. Convierte el Formulario a SNP 
Dim via As String, nomarchi As String

via = CurrentProject.Path & "digitaluno"

On Error GoTo Error_Leva

Dim ante As Single, sigue As Single

   'DoCmd.GoToRecord , , acFirst

   ante = codgradoygrupo

   Do While (codgradoygrupo > 0)

     nomarchi = via & Trim(Str(codest)) & ".snp"

     DoCmd.OutputTo acOutputReport, "muestraboletinxgrado1digitconpto", "*.snp", nomarchi, no, , , acExportQualityPrint

     DoCmd.GoToRecord , , acNext

     sigue = codgradoygrupo

     ante = sigue

   Loop

Error_Leva:

    'Algun error (en este caso es que se asigna ante = sigue cuando es vacio

    ' MsgBox "Ha pasado los promedios"

    MsgBox "Ha culminado la realización de archivos digitales. Observelos en:" + via

    DoCmd.Close

    Exit Sub


2. Envie al correo, hay una pregunta antes que ya solucioné en este sitio, buequela.