Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Ciao a tutti, ho un altra domanda da sottoporre.
con evento su click devo poter vedere l'anteprima di più report e poi decidere quale stampare o no e su scelta na vorrei che si chiudesse l'anteprima visualizzata.
per fare questo uso questo codice
DoCmd.OpenReport "Report1", acViewPreview
ok = MsgBox("Vuoi Stampare?", vbYesNo)
If ok = vbYes Then
DoCmd.OpenReport "bilancio1", acNormal
If no = vbNo Then
DoCmd.Close "Report1", acViewPreview
End If
End If
funziona tutto tranne la chiusura dell'anteprima nel caso scelga no.
Ringrazio per l'attenzione
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.
Risposta accettata dall'autore della domanda
Ciao Luca,
DoCmd.OpenReport "Report1", acViewPreview
ok = MsgBox("Vuoi Stampare?", vbYesNo)
If ok = vbYes Then
DoCmd.OpenReport "bilancio1", acNormal
else
DoCmd.Close acReport, "Report1"
End If
End If
Cinzia
Grazie Cinzia