Access - IMPRIMIR INFORME SIN ABRIRLO

Private Sub Comando28_Click()

On Error GoTo Err_Comando28_Click

    Dim stDocName As String

    stDocName = "MATERIALREPORTE"  (NOMBRE DEL REPORTE)

    DoCmd.OpenReport stDocName, acViewNormal   (LA PROPIEDAD DEL REPORTE)

Exit_Comando28_Click:

    Exit Sub

Err_Comando28_Click:

    MsgBox Err.Description

    Resume Exit_Comando28_Click

End Sub

Private Sub Comando28_Click()

On Error GoTo Err_Comando28_Click

    Dim stDocName As String

Dim cantidad As Double

cantidad = InputBox(" CANTIDAD DE IMPRECIONES", "USUARIO")

For i = 1 To cantidad

    stDocName = "MATERIALREPORTE"

    DoCmd.OpenReport stDocName, acViewNormal

Next i

Exit_Comando28_Click:

    Exit Sub

Err_Comando28_Click:

    MsgBox Err.Description

    Resume Exit_Comando28_Click

End Sub

Private Sub Imprimir_Click()

On Error GoTo Err_Imprimir_Click

Dim stDocName As String

Dim cantidad As Double

cantidad = InputBox("CANTIDAD", "USUARIO")

For i = 1 To cantidad

stDocName = "Impresion de Etiquetas Inv Loc Data Query1"

DoCmd.OpenReport stDocName, acViewNormal

Next i

Exit_Imprimir_Click:

Exit Sub

Err_Imprimir_Click:

MsgBox Err.Description

Resume Exit_Imprimir_Click

End Sub

Private Sub Imprimir_Click()

On Error GoTo Err_Imprimir_Click

Dim stDocName As String

Dim Copias As Integer

Copias = InputBox("COPIAS", "USUARIO")

For i = 1 To Copias

stDocName = "Impresion de Etiquetas Inv Loc Data Query1"

DoCmd.OpenReport stDocName, acViewNormal

Next i

Exit_Imprimir_Click:

Exit Sub

Err_Imprimir_Click:

MsgBox Err.Description

Resume Exit_Imprimir_Click

End Sub