Stampa più copie dello stesso report

Buon giorno
Sto usando questo metodo per stampare le copie di un report.

DoCmd.OpenReport "Credito_Ass", acViewNormal, "", "[ID_FATTURE_Assistenza]=[Forms]![Fatture_Assistenza]![ID_FATTURE_Assistenza]", acNormal

Dovendo stampare due copie duplicavo il codice, ma dovendone stampare 5/6 copie mi sembra che non sia il caso di ripetere per
tante volte lo stesso codice.
Ho provato varie soluzioni senza esiti positivi, mi chiedevo se non era possibile inserire in questo codice il n° di copie volute.
Grazie

Usa il metodo PrintOut...!
Chiaramente per farlo il Report deve essere APERTO.

Apri il report in modalità Preview(se non lo vuoi vedere Hidden) con OpenReport, poi usi PrintOut se vedi c'è il parametro con il numero di Copie, dopo il PrintOut DoEvents, quindi chiudi il Report(se era Hidden).

Non mettere altre operazioni nel mezzo, altrimenti devi accertarti che il Report in questione sia attivo, in quanto PRINTOUT stampa l'oggetto attivo...!

Io uso questa mia funzioncina... che è più completa e flessibile al posto di fare tante cose strane.

Public Function StampaRep(NomeReport As String, _
                          Optional ViewMode As AcView = acViewPreview, _
                          Optional WhereCond As String = vbNullString, _
                          Optional WinMode As AcWindowMode = acDialog, _
                          Optional Ncopie As Integer = 1)
    If NomeReport = "" Then Exit Function
    If Ncopie < 1 Then Exit Function
    DoCmd.OpenReport NomeReport, ViewMode , , WhereCond, WinMode
    DoCmd.SelectObject acReport, NomeReport, False
    'Stampa il Numero di Copie del report passato
    DoCmd.PrintOut , , , , Ncopie
    DoEvents
    DoCmd.Close acReport, NomeReport
End Function

Da usare così ad esempio per non vederlo:

Call StampaRep("NOME_REPORT", acViewPreview, "NomeCampo=" & Me!ID, acHidden, 5)

Originariamente inviato da seamission

Buon giorno
Sto usando questo metodo per stampare le copie di un report.

DoCmd.OpenReport "Credito_Ass", acViewNormal, "", "[ID_FATTURE_Assistenza]=[Forms]![Fatture_Assistenza]![ID_FATTURE_Assistenza]", acNormal

Dovendo stampare due copie duplicavo il codice, ma dovendone stampare 5/6 copie mi sembra che non sia il caso di ripetere per
tante volte lo stesso codice.
Ho provato varie soluzioni senza esiti positivi, mi chiedevo se non era possibile inserire in questo codice il n° di copie volute.
Grazie

Ciao Seamission scusami ma perchè non lo fai direttamente dalla stampante?
Quando devi fare più copie c'è un opzione che si può scegliere quante copie vuoi...perchè complicarti la vita con questo codice? proprio non capisco...
____
Blues

Ciao Giovanni
se il report non è aperto in preview, potresti utilizzare qualcosa del genere:

Copie=me.NumCopie
DoCmd.SelectObject acReport, "ReportName", True
DoCmd.PrintOut acPrintAll, , , , Copie

che fa riferimento ad una casella di testo chiamata NumoCopie della UForm.

Se invece il report viene aperto in preview, basta che sostituisci True co False.

....salvo errori

saluti

EDIT chiedo scusa a nonno Alex e Blues... stavo scrivendo

Originariamente inviato da dodo47

...

EDIT chiedo scusa a nonno Alex e Blues... stavo scrivendo

Stavamo scrivendo in 2... ho messo una mia routine per semplificare
anche se il tuo suggerimento è corretto.

Ma visto che mi chiami nonno... e potrebbe pure essere, quanti anni hai...??? Curiosità..!

Originariamente inviato da @Alex

Stavamo scrivendo in 2... ho messo una mia routine per semplificare
anche se il tuo suggerimento è corretto.

Ma visto che mi chiami nonno... e potrebbe pure essere, quanti anni hai...??? Curiosità..!

Eh eh eh... era l'unico modo per salutarti mio caro...stuzzicarti un po'.
Io come ben puoi evincere dal mio nick che è l'anno e ... non gli anni... ne ho di più !!
Mi fa sempre piacere sentirti anche se non necessariamente per "lavoro".
Un carisssimo saluto

Edit: mi scuso anche io e infatti quando ho cominciato a rispondere a Giovanni, voi non c'eravate ancora...

molto interessante i vostri codici e come vorrei essere come voi ho molta strada da fare e molto da imparare...un caro saluto

____
Blues

Originariamente inviato da dodo47

Eh eh eh... era l'unico modo per salutarti mio caro...stuzzicarti un po'.
Io come ben puoi evincere dal mio nick che è l'anno e ... non gli anni... ne ho di più !!
Mi fa sempre piacere sentirti anche se non necessariamente per "lavoro".
Un carisssimo saluto

Ehehehe potrei essere tuo figlio...!!!
beh mio padre era del 43 tutto sommato....

Ciao buon WE.

Originariamente inviato da BLUES

Edit: mi scuso anche io e infatti quando ho cominciato a rispondere a Giovanni, voi non c'eravate ancora...

molto interessante i vostri codici e come vorrei essere come voi

Sei sicuro di quello che dici...?

Originariamente inviato da BLUES

ho molta strada da fare e molto da imparare...un caro saluto
____
Blues

Sempre questione di esperienza... un pò di passione e tanta tanta logica.

Poi non preoccuparti sai che io sono un po' pignolo, quindi mi adopero per evidenziare queste cose...

Originariamente inviato da @Alex

Sei sicuro di quello che dici...?


Sempre questione di esperienza... un pò di passione e tanta tanta logica.

Poi non preoccuparti sai che io sono un po' pignolo, quindi mi adopero per evidenziare queste cose...

Ti ringrazio Alex e devo dirti che tutto quello che ho imparato lo devo solo grazie a te e ad alcuni di questo forum.

Riguardo al tuo codice per il numero di copie devo ammettere che è comodissimo e infatti ho pensato di inserire con una txtCopie modificando questo codice

Call StampaRep("NOME_REPORT", acViewPreview, "NomeCampo=" & Me!ID, acHidden, Nz(Me.txtCopie, 1))

così posso inserire il numero di copie quando voglio

Grazie mille
____
Blues