Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 19

Stampa più copie dello stesso report

  1. #1
    L'avatar di seamission
    seamission non è in linea Scribacchino
    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
    ℹ️ Leggi di più su seamission ...

  2. #2
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    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)
    
    Ultima modifica di @Alex; 21-05-2010 17:13 
    ℹ️ Leggi di più su @Alex ...

  3. #3
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    Quote Originariamente inviato da seamission Visualizza il messaggio
    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

  4. #4
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    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

  5. #5
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quote Originariamente inviato da dodo47 Visualizza il messaggio
    ...

    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à..!
    ℹ️ Leggi di più su @Alex ...

  6. #6
    L'avatar di dodo47
    dodo47 non è in linea Topo di biblioteca
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    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

  7. #7
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    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

  8. #8
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quote Originariamente inviato da dodo47 Visualizza il messaggio
    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.
    ℹ️ Leggi di più su @Alex ...

  9. #9
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quote Originariamente inviato da BLUES Visualizza il messaggio
    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...?
    Quote Originariamente inviato da BLUES Visualizza il messaggio
    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...
    ℹ️ Leggi di più su @Alex ...

  10. #10
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    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

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. [VS 2008]PRO Non stampa più copie
    Da sistemista nel forum Visual Basic .Net
    Risposte: 1
    Ultimo Post: 27-07-2014, 11:01
  2. Risposte: 5
    Ultimo Post: 27-05-2013, 13:45
  3. Somma di 2 o + campi dello stesso record
    Da SNEIK75 nel forum Microsoft Access
    Risposte: 8
    Ultimo Post: 16-10-2012, 13:11
  4. Problema - stampa 2 copie
    Da SirNino nel forum Visual Basic 6
    Risposte: 7
    Ultimo Post: 11-10-2007, 15:57
  5. Ricerca in più campi dello stesso record
    Da Cis nel forum Visual Basic 6
    Risposte: 8
    Ultimo Post: 17-08-2006, 08:23