Condividi tramite

Stampa una sola pagina di un report

Anonimo
2018-11-30T17:44:23+00:00

Essendo un principiante, chiedo di conoscere il codice che mi da la possibilità di stampare una sola

pagina di un report (es. la prima)

grazie

Microsoft 365 e Office | Accesso | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

Risposta accettata dall'autore della domanda

  1. Anonimo
    2018-12-03T23:51:13+00:00

    ciao Mimmo

    La stampa fa parte di una procedura automatica per cui l'operatore con un pulsante determina la stampa senza aprire il report in anteprima e senza scegliere la pagina che è predeterminata.

    Esiste un codice di stampa per il quale si può fissare la pagina?

    Grazie francesco

    Ciao francescofoglia,

    certamente si può fare, leggiti al seguente link il metodo PrintOut:

    https://docs.microsoft.com/en-us/office/vba/api/access.docmd.printout

    Fai così:

    dalla maschera dove lanci il report, creati due caselle di testo senza origine controllo chiamate rispettivamente:

    "Inizio" e "Fine"

    (oppure due caselle combinate con tutti i numeri già inclusi)

    e prima di lanciare la stampa inserisci il numero di pagina da cui partire (Inizio) al numero di pagina con cui vuoi terminare (Fine).

    Per stampare ad esempio la pagina 3 del report chiamato "Report1, nella casella di testo "Inizio" scriverai 3 mentre nella casella di testo "Fine" visto che è una sola pagina da stampare scriverai naturalmente 3.

    Ecco la routine da inserire su click di un pulsante chiamato "Stampa":

    On Error GoTo Err_Stampa_Click

        Dim stDocName As String

        If Len(Me!Inizio.Value & "") > 0 And Len(Me!Fine.Value & "") > 0 Then

            stDocName = "Report1"

            DoCmd.OpenReport stDocName, acViewPreview

            DoCmd.PrintOut acPages, Me!Inizio, Me!Fine , , 1

            DoCmd.Close acReport, "Report1"

            Me!Inizio = Null

            Me!Fine = Null

        Else

            MsgBox "Attenzione, prima della stampa bisogna inserire i parametri nelle rispettive caselle.", vbInformation

            Me.Inizio.SetFocus

        End If

    Exit_Stampa_Click:

        Exit Sub

    Err_Stampa_Click:

        MsgBox Err.Description

        Resume Exit_Stampa_Click

    End Sub

    Vladimiro

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento

3 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2018-12-03T14:21:38+00:00

    Ciao Francesco,

    se apri il report in anteprima di stampa puoi scegliere quali pagine stampare.

    Ciao Mimmo

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento
  2. Anonimo
    2018-12-04T13:21:45+00:00

    Grazie Vladimiro

    per avermi risolto il problema

    non conoscevo il comando DoCmd.PrintOut

    Tutto OK

    Grazie ancora e alla prossima

    Francesco

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2018-12-03T16:57:30+00:00

    ciao Mimmo

    La stampa fa parte di una procedura automatica per cui l'operatore con un pulsante determina la stampa senza aprire il report in anteprima e senza scegliere la pagina che è predeterminata.

    Esiste un codice di stampa per il quale si può fissare la pagina?

    Grazie francesco

    La risposta è stata utile?

    0 commenti Nessun commento