Newsgroup: it.comp.appl.access
Titolo: stampare report dopo l'anteprima

ciao a tutti
è possibile stampare un report dopo averlo visto in anteprima
con un bottone di comando ???
grazie 


Si.
Quando apri il Report, se lo apri in modalità Dialog(penso solo dalla
versione 2002)
il codice nella form viene sospeso, e riprende quando lo chiudi,
pertanto apri il Report in Preview in modalità acDialog, quindi lo
apri in Stampa.
@Alex

GM ha scritto:

io ho creato un menu contestuale per i report in cui ho varie voci tra 
cui anche la stampa, che utilizza il comando docmd.runcommand accmdprint
in questo modo ti esce anche la finestra di stampa da cui puoi annullare 
il processo all'ocorrenza

 con un bottone di comando ???
Si.
Quando apri il Report, se lo apri in modalità Dialog(penso solo dalla
versione 2002)
il codice nella form viene sospeso, e riprende quando lo chiudi,
pertanto apri il Report in Preview in modalità acDialog, quindi lo
apri in Stampa.
--------------------------------
Scusa Alex... ma credo di non aver capito...mi pare che già si apre in 
Preview
 mi puoi fare un esempio pratico... come aprirlo in acDialog ??
ecco il codice SQL del bottone di comando
Private Sub Stampa_Lettera_Click()
On Error GoTo Err_Stampa_Lettera_Click
    Dim stDocName As String
    stDocName = "Stampa_Lettera"
    DoCmd.OpenReport stDocName, acPreview
Exit_Stampa_Lettera_Cl:
    Exit Sub
Err_Stampa_Lettera_Click:
    MsgBox Err.Description
    Resume Exit_Stampa_Lettera_Cl
End Sub

> č possibile stampare un report dopo averlo visto in anteprima

---------------------------------->
scusa Silver potresti farmi un esempio pratico, considera che lavoro con 
una maschera
di inserimento dati,  con un bottone apro un'altra maschera popup in cui 
vi sono 7 report di stampa, e per praticitŕ li ho messi tutti in 
anteprima..ecco il codice SQL...
 Private Sub Stampa_Lettera_L104_Click()
On Error GoTo Err_Stampa_Lettera_L104_Click
    Dim stDocName As String
    stDocName = "Stampa_Lettera L104"
    DoCmd.OpenReport stDocName, acPreview
Exit_Stampa_Lettera_L104_Click:
    Exit Sub
Err_Stampa_Lettera_L104_Click:
    MsgBox Err.Description
    Resume Exit_Stampa_Lettera_L104_Click
End Sub
-----------
come potrei utilizzare il comando da te citato affinchč funzioni con 
tutti i report ??
grazie 

 ecco il codice SQL del bottone di comando
Ma leggere l'help provoca lesioni permanenti...?
 Private Sub Stampa_Lettera_Click()
 On Error GoTo Err_Stampa_Lettera_Click
     Dim stDocName As String
     stDocName = "Stampa_Lettera"
     DoCmd.OpenReport stDocName, acPreview,acdialog
     DoCmd.OpenReport stDocName, acNormal,acdialog
 Exit_Stampa_Lettera_Cl:
     Exit Sub
 Err_Stampa_Lettera_Click:
     MsgBox Err.Description
     Resume Exit_Stampa_Lettera_Cl
 End Sub
@Alex

 ecco il codice SQL del bottone di comando
<Ma leggere l'help provoca lesioni permanenti...?
:-)) -
--------------------
 Private Sub Stampa_Lettera_Click()
 On Error GoTo Err_Stampa_Lettera_Click
     Dim stDocName As String
     stDocName = "Stampa_Lettera"
     DoCmd.OpenReport stDocName, acPreview,acdialog
     DoCmd.OpenReport stDocName, acNormal,acdialog
 Exit_Stampa_Lettera_Cl:
     Exit Sub
 Err_Stampa_Lettera_Click:
     MsgBox Err.Description
     Resume Exit_Stampa_Lettera_Cl
 End Sub
-----------------
scusa Alex ho provato il codice sopra ma mi fa vedere l'anteprima e
subito
dopo manda in stampa... è corretto ???
in realtà, avrei potuto fare questo con il bottone di comando e mandare
direttamente
in stampa... ma il mio scopo era quello prima di visionare
l'anteprima... e se tutto ok
mandare in stampa... cmq... se non si può fare, dovrei ripiegare sui
menu di Access,
ciao..
Ps... cmq ho notato una cosa... scommetto non la sapevi neanche tu ???
che clikkando con il tasto dx del mouse sulla barra blu dell'anteprima 
di stampa
esce l'invio della stampa...?? 8-o)))
GM 

 GM
@Alex

Si.
Quando apri il Report, se lo apri in modalità Dialog(penso solo dalla
versione 2002)
il codice nella form viene sospeso, e riprende quando lo chiudi,
pertanto apri il Report in Preview in modalità acDialog, quindi lo
apri in Stampa.
Perchè così complicato?
In fondo è sufficiente associare al RPT una barra degli strumenti col
pulsante di stampa (e magari qualcos'altro già che ci sei)    ;-)
Saluti.

 >     DoCmd.OpenReport stDocName, acPreview
primo metodo
dopo docmd.openreport....
aggiungi docmd.runcommand accmdprint
però così non vedi i dati sotto in anteprima, ma hai la posibilità di 
selezionare più agevolmente un'altra stampante o selezionare più copie.
per creare un menu contestuale devi creare una barra dei menu tramite 
strumenti-->personalizza
crei una funzione in un modulo
es.
function stampa_menu()
docmd.runcommand accmdprint
end function
crei una macro che lanci la funzione sopra scritta
macro1-->nome:stampa-->azione:esegui codice-->valore:stampa_menu()
inserisci una voce nella barra degli strumenti creata che esegua la macro.
voce di menu: stampa-->azione eseguita: macro1.stampa
Imposti la barra come popup e salvi
apri il tuo report e come'barra menu scelta rapida' selezioni quella creata.
Una volta aperto il report in anteprima e dopo averlo esaminato puoi 
lanciare la stampa accedendo con tasto destro al menu.


Oppure un Popup, o meglio entrambi...., ma a domanda ho risposto...!
;-)
@Alex

 Saluti.
Oppure un Popup, o meglio entrambi...., ma a domanda ho risposto...!
;-)
----------
perfetto... ho risolto con la macro...:-))
anche se avrei preferito un bottone di comando sulla stessa maschera
di opzioni stampa e mi avesse stampato io solo record che è in 
anteprima...
cmq cose si dice... chi si contenta...
grazie a Silver, Simone ed un  '73 a te Alex...
Ciao 

 Ciao
@Alex

 ha scritto nel messaggio 
news:1171555961.1...@a34g2000cwb.googlegroups.com...


----------------
idem gli stessi anni :-))
(dopo che ho comprato casa)
venduto quasi tutto il materiale..
cmq a tutto vi è un inizio ed una fine...
a risentirci...di nuovo '73 de ik0qdd