Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Stampa report pdf

  1. #1
    mars87 non  in linea Novello
    Salve a tutti,
    avrei bisogno di un vostro aiuto per stampare un report access in pagina singola rispetto ad un parametro.
    Il mio report si compone di codice agenzia e nominativi che hanno vinto dei premi. Devo poter stampare singolarmente il report per ogni agenzia, ogni pagina poi che prenda il [codagenzia]&[nomeagenzia].

    Quindi da questo mio semplice codice, aggiungere la parte di ciclo...potete aiutarmi? grazie

    Dim NomeReport, Percorso, NomeFile As String

    NomeReport = "Report1"
    Percorso = "C:........"
    NomeFile = Percorso & Me!CodAgenzia & NomeAgenzia & ".pdf"

    DoCmd.OutputTo acOutputReport, NomeReport, acFormatPDF, NomeFile, False

  2. #2
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Devi fare un ciclo con le Agenzie, ed aprire il Report passando alla WhereCondition il criterio per Filtrare solo l'agenzia di quel passaggio, quindi stampi il PDF, e poi chiudi il report, LOOP agenzia successiva e cos fino alla fine...!
    ℹ️ Leggi di pi su @Alex ...

  3. #3
    OsvaldoLaviosa non  in linea Topo di biblioteca
    mars87, rispetta il regolamento secondo cui il codice deve essere selezionato, poi fai clic sul pulsante # per racchiuderlo tra i tag CODICE, in modo da farlo apparire con i tipici caratteri monotype pi familiari ai programmatori.

    Dim NomeReport, Percorso, NomeFile As String
    
    Con questa sintassi solo NomeFile di tipo String. Se li vuoi tutti di tipo String devi dichiarare
    Dim NomeReport As String, Percorso As String, NomeFile As String
    
    ℹ️ Leggi di pi su OsvaldoLaviosa ...

  4. #4
    mars87 non  in linea Novello
    Ciao Alex,

    ho creato il codice e sono riuscita ad avere ci di cui avevo bisogno. Sai spiegarmi per perch ad ogni report generato mi viene una pagina vuota a seguire? Ogni report in pratica contiene 2 pagine, una con il report e una vuota
    Dim NomeReport, Percorso, NomeFile As String
    
    NomeReport = "Report1"
    Percorso = "C:\"
    
    sSQL = "SELECT campo1, campo2 FROM tab1"
    Set rs = CurrentDb.OpenRecordset(sSQL)
    
    
    Do While Not rs.EOF
    
        Me!CodAgenzia = rs!campo1
        Me!NomeAgenzia = rs!campo2
        NomeFile = Percorso & Me!campo1 & " " & Me!campo2 & ".pdf"
        filtro = "campo1='" & Me!campo1 & "'"
    
    
        DoCmd.OpenReport NomeReport, acViewPreview, , filtro, acHidden
        DoCmd.OutputTo acOutputReport, NomeReport, acFormatPDF, NomeFile
         DoCmd.Close acReport, NomeReport, acSaveNo
        
        rs.MoveNext
    Loop
    
    Ultima modifica di @Alex; 21-06-2021 14:48 

  5. #5
    Quote Originariamente inviato da mars87 Visualizza il messaggio
    mi viene una pagina vuota a seguire?
    Anche in visualizzazione anteprima di stampa (non visualizzazione report) vedi una pagina vuota?

  6. #6
    mars87 non  in linea Novello
    si confermo, anche in anteprima di stampa!

  7. #7
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Devi verificare le dimensioni del contenuto con le dimensioni dei Margini... spesso per 0,5cm si incappa nella nuova pagina...

    P.S. il codice va messo tra i corretti TAGS.
    ℹ️ Leggi di pi su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Stampa report - stampa maschera problema
    Da nanni_prippa nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 09-02-2017, 21:51
  2. Risposte: 14
    Ultimo Post: 13-02-2015, 15:24
  3. Stampa report
    Da fender_u2 nel forum Microsoft Word
    Risposte: 1
    Ultimo Post: 07-07-2014, 11:41
  4. Risposte: 2
    Ultimo Post: 18-09-2009, 10:46
  5. [VB6/Crystal Report] Stampa Report Con Raggruppamento
    Da ritademarco nel forum Visual Basic 6
    Risposte: 1
    Ultimo Post: 24-01-2006, 20:38