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

Stampa più copie dello stesso report

  1. #11
    L'avatar di seamission
    seamission non è in linea Scribacchino
    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à..!
    Salve a Tutti
    inanzi tutto grazie delle vostre risposte , sto rientrando adesso dal lavoro , ho letto attentamente i vostri consigli che mettero in prova domani.
    Volendo semplificare posso inserire questo codice in una sub del form.
    DoCmd.OpenReport "Credito_Ass", acViewNormal, "", "[ID_FATTURE_Assistenza]=[Forms]![Fatture_Assistenza]![ID_FATTURE_Assistenza]", acHidden
     DoCmd.PrintOut , , , , 5
        DoEvents
        DoCmd.Close acReport, Credito_Ass
    
    Non sgridateme grazie
    Domani faccio un po di prove.
    ℹ️ Leggi di più su seamission ...

  2. #12
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quote Originariamente inviato da seamission Visualizza il messaggio
    Salve a Tutti
    inanzi tutto grazie delle vostre risposte , sto rientrando adesso dal lavoro , ho letto attentamente i vostri consigli che mettero in prova domani.
    Volendo semplificare posso inserire questo codice in una sub del form.
    DoCmd.OpenReport "Credito_Ass", acViewNormal, "", "[ID_FATTURE_Assistenza]=[Forms]![Fatture_Assistenza]![ID_FATTURE_Assistenza]", acHidden
     DoCmd.PrintOut , , , , 5
        DoEvents
        DoCmd.Close acReport, Credito_Ass
    
    Non sgridateme grazie
    Domani faccio un po di prove.
    Così non stai semplificando... ma creando CODICE RIDONDATO.

    La Sub che ti ho fornito la metti in un MODULO, e la richiami da qualsiasi punto con qualsiasi REPORT come se fosse la chiamata OPENREPORT... in quel modo potrai sempre definire cosa fare in modo indiscriminato.

    Questa è l'ottica di scrivere del codice RIUSABILE che evita la dispersione.

    Poi ovviamente fai quello che credi meglio.
    ℹ️ Leggi di più su @Alex ...

  3. #13
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Così non stai semplificando... ma creando CODICE RIDONDATO.

    La Sub che ti ho fornito la metti in un MODULO, e la richiami da qualsiasi punto con qualsiasi REPORT come se fosse la chiamata OPENREPORT... in quel modo potrai sempre definire cosa fare in modo indiscriminato.

    Questa è l'ottica di scrivere del codice RIUSABILE che evita la dispersione.

    Poi ovviamente fai quello che credi meglio.
    Ciao Alex ho provato il tuo codice funziona ma è lento,
    Mi si apre una videata con il report bianco e sopra il msg della stampante che sta caricando i report da stampare ,rimane un 20 s bloccato e poi parte la stampa.
    Chiedevo se il funzionamento è regolare?
    Nel caso volessi implementare il metodo di Dodo
    DoCmd.OpenReport "Fattura", acViewNormal, "", "[ID_FATTURE]=[Forms]![Fattura]![ID_FATTURE]", acHidden
    Copie=me.NumCopie
    DoCmd.SelectObject acReport, "ReportName", False
    DoCmd.PrintOut acPrintAll, , , , Copie
    
    Il codice dovrebbe essere questo ?

    me.NumCopie deve essere un controllo non associato con valore 5
    messo nel form o nel report?
    Grazie
    ℹ️ Leggi di più su seamission ...

  4. #14
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    Quote Originariamente inviato da seamission Visualizza il messaggio
    Ciao Alex ho provato il tuo codice funziona ma è lento,
    Mi si apre una videata con il report bianco e sopra il msg della stampante che sta caricando i report da stampare ,rimane un 20 s bloccato e poi parte la stampa.
    Chiedevo se il funzionamento è regolare?
    Ciao Seamission ho provato anche io il codice di Alex e non è per niente lento, anzi... non mi da neanche il tempo di bere il

    ____
    Blues

  5. #15
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da BLUES Visualizza il messaggio
    Ciao Seamission ho provato anche io il codice di Alex e non è per niente lento, anzi... non mi da neanche il tempo di bere il

    ____
    Blues
    Ciao blues
    Io l'ho provato su un potatile collegato in rete con la stampante
    Ritesterò il tutto sul fisso
    Ti allego la function per confrotarla con la tua vedi se percaso
    ho omesso qualcosa.
    Public Function StampaRep(Fattura As String, _
                              Optional ViewMode As AcView = acViewPreview, _
                              Optional WhereCond As String = vbNullString, _
                              Optional WinMode As AcWindowMode = acDialog, _
                              Optional Ncopie As Integer = 1)
        If Fattura = "" Then Exit Function
        If Ncopie < 1 Then Exit Function
        DoCmd.OpenReport Fattura, ViewMode, , WhereCond, WinMode
        DoCmd.SelectObject acReport, Fattura, False
        'Stampa il Numero di Copie del report passato
        DoCmd.PrintOut , , , , Ncopie
        DoEvents
        DoCmd.Close acReport, Fattura
    End Function
    
    Con questo la richiamo
    Call StampaRep("FATTURA", acViewPreview, "ID_FATTURE=" & Me!ID_FATTURE, acHidden, 5)
    
    ℹ️ Leggi di più su seamission ...

  6. #16
    L'avatar di BLUES
    BLUES non è in linea Scribacchino
    Quote Originariamente inviato da seamission Visualizza il messaggio
    Ciao blues
    Io l'ho provato su un potatile collegato in rete con la stampante
    Ritesterò il tutto sul fisso
    Ti allego la function per confrotarla con la tua vedi se percaso
    ho omesso qualcosa.
    Public Function StampaRep(Fattura As String, _
                              Optional ViewMode As AcView = acViewPreview, _
                              Optional WhereCond As String = vbNullString, _
                              Optional WinMode As AcWindowMode = acDialog, _
                              Optional Ncopie As Integer = 1)
        If Fattura = "" Then Exit Function
        If Ncopie < 1 Then Exit Function
        DoCmd.OpenReport Fattura, ViewMode, , WhereCond, WinMode
        DoCmd.SelectObject acReport, Fattura, False
        'Stampa il Numero di Copie del report passato
        DoCmd.PrintOut , , , , Ncopie
        DoEvents
        DoCmd.Close acReport, Fattura
    End Function
    
    Con questo la richiamo
    Call StampaRep("FATTURA", acViewPreview, "ID_FATTURE=" & Me!ID_FATTURE, acHidden, 5)
    
    Si Seamission hai omesso troppo riguardo al codice del modulo che NON dev'essere modificato mentre per il Call è tutto ok
    ____
    Blues

  7. #17
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da BLUES Visualizza il messaggio
    Si Seamission hai omesso troppo riguardo al codice del modulo che NON dev'essere modificato mentre per il Call è tutto ok
    ____
    Blues
    grazie blues messo tutto al suo posto.
    ℹ️ Leggi di più su seamission ...

  8. #18
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quote Originariamente inviato da seamission Visualizza il messaggio
    grazie blues messo tutto al suo posto.
    Speriamo che questo insegni qualche cosa....
    ℹ️ Leggi di più su @Alex ...

  9. #19
    L'avatar di seamission
    seamission non è in linea Scribacchino
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Speriamo che questo insegni qualche cosa....
    Ciao Alex
    Direi molto
    per il la maschera bianco ho sostituito cosi:
    Call StampaRep("FATTURA", acViewNormal, "ID_FATTURE=" & Me!ID_FATTURE, acHidden, 5)
    
    Cosi facendo si visualizza per pochi secondi la mschera di pop-up con il messaggio della stampante su cui si sta lanciando la stampa dei report.
    Grazie infinite.
    ℹ️ Leggi di più su seamission ...

+ Rispondi al messaggio
Pagina 2 di 2 primaprima 12

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