Newsgroup: it.comp.appl.access
Titolo: Stampa non fascicolata

Salve e tutti,
ho la necessit� di stampare un report composto di pi� pagine in pi� copie.
Non voglio per� che la stampa fascicoli i miei fogli, vorrei cio� stampare n
copie di pagina 1, poi n copie di pagina 2 e cos� via.
Non trovo l'attributo utile a fare ci�.
Uso Acces 2003.
Per chiarezza aggiungo che stampo da una maschera popup in cui l'utente
sceglie quale report stampare (tramite varie check box) e per quante copie.
Ecco il codice, dove me.txtCopie � la casella di testo dove inserire il
numero di copie richiesto:
Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
    Dim N As Byte
    For N = 1 To Me.txtCopie
        If Me.opzPrimoSoccorso = True Then DoCmd.OpenReport
"RepAttestatoPrimoSoccorso"
        If Me.opzAttestatoPartecipazione = True Then DoCmd.OpenReport
"RepAttestatoPartecipazione"
        If Me.opzInvioPartecipazione = True Then DoCmd.OpenReport
"RepInvioPartecipazione"
        If Me.opzInvioSoccorso = True Then DoCmd.OpenReport "RepInvioSoccorso"
        If Me.opzInvioQualificazione = True Then DoCmd.OpenReport
"RepInvioQualificazione"
    Next N
     DoCmd.Close acForm, "MasSceltaAttestati"
Exit_cmdOK_Click:
    Exit Sub
Err_cmdOK_Click:
    MiaMsgBox "Si � verificato il seguente errore:@N� " & Err.Number & " - " &
Err.Description & "@"
    Resume Exit_cmdOK_Click
End Sub
Grazie a tutti
Franco
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Franco
Potresti usare PrinOut di docmd:
per esempio questo spezzone stampa 2 copie della pagina 1 senza 
fascicolazione (False):
DoCmd.PrintOut acPages, 1, 1, acMedium, 2, False
Nel caso di un report ecco un esempio di codice:
DoCmd.OpenReport "NomeReport", acViewPreview
        DoCmd.PrintOut acPages, 1, 1, acMedium, 2, False
DoCmd.Close acReport, "NomeReport"
Ciao, Carlo 

 ha
scritto:

Ciao Carlo, e grazie per l'attenzione, per� purtroppo non fascicola neanche
con il tuo suggerimento. Ho modificato il listato, adattandolo, e lo
ri-posto:
Private Sub cmdOK_Click()
On Error GoTo Err_cmdOK_Click
    If Me.opzPrimoSoccorso = True Then
        DoCmd.OpenReport "RepAttestatoPrimoSoccorso", acViewPreview
        DoCmd.PrintOut , , , , Me.txtCopie, False
        DoCmd.Close acReport, "RepAttestatoPrimoSoccorso"
    End If
    If Me.opzAggiornamentoPrimoSoccorso = True Then
        DoCmd.OpenReport "RepAttestatoAggiornamentoPrimoSoccorso", acViewPreview
        DoCmd.PrintOut , , , , Me.txtCopie, False
        DoCmd.Close acReport, "RepAttestatoAggiornamentoPrimoSoccorso"
    End If
    If Me.opzAttestatoPartecipazione = True Then
        DoCmd.OpenReport "RepAttestatoPartecipazione", acViewPreview
        DoCmd.PrintOut , , , , Me.txtCopie, False
        DoCmd.Close acReport, "RepAttestatoPartecipazione"
    End If
Exit_cmdOK_Click:
    Exit Sub
Err_cmdOK_Click:
    MiaMsgBox "Si � verificato il seguente errore:@N� " & Err.Number & " - " &
Err.Description & "@"
    Resume Exit_cmdOK_Click
End Sub
Aggiungo che nel report viene caricata anche un'immagine (la firma del
docente), anche se credo che non sia affatto influente.
Di fatto devo stampare gli attestati dei discenti partecipanti ad alcuni
corsi, almeno in duplice copia se non di pi�, con un numero di pagine
variante a seconda del numero di partecipanti. La stampa avviene tramite
scelta da check box di una maschera popup, e nella casella di testo
"txtCopie" si inserisce il numero di copie da stampare. Dall'elenco dei
discenti (masPartecipanti), premendo il pulsante "Stampa", si apre la popup.
Saluti



Per fascicolare le copie devi usare True e non False con il metodo PrintOut.
Poi mancano i numeri di pagina da..a. Non avevi detto che volevi stampare un 
determinato intervallo in pi� copie?
Ciao, Carlo

 ha

Si scusa, io in realt� NON devo fascicolare, quindi da help � giusto usare
"false".
Io devo stampare tutto il report, composto di pi� pagine (una per discente
che partecipa al corso) in pi� copie (almeno due), ma vorrei stampare prima
tutte le copie del primo discente, poi quelle del secondo e cos� via.
Invece, anche con le impostazioni postate in precedenza, la stampa viene
sempre fascicolata.
Ho provato il metodo PrintOut su un altro report, con numero fisso di
pagine, e l� funziona correttamente (non fascicola se uso "false"). Il
problema pu� essere nel numero variabile di pagine? Io stampo il certificato
di frequenza ai partecipanti ad un corso, con elenco preso da una maschera
di tipo tabella, naturalmente con numero di record variabile da corso a
corso.
