Newsgroup: it.comp.appl.access
Titolo: Problema di Stampa con Report

Salve... ho un problema con la stampa di
un report.. in sostanza ho lanciato il report
di Stampa basata su una query...totale fogli
da stampare 120... nel bel mezzo della stampa
finisce la cartuccia e la stampante si ferma...
ora per non rifare tutta la stampa dei fogli
dovrei stampare da pagina 1 a 68... dato che come
impostazione la stampa al contrario...
ma andando in Stampa del menu di Access
in Intervallo stampa ho solo attiva la casella
DA : ma A: è deselezionata...
come fare a stampare il rimanente delle pagine ???
Grazie...

"QU@RK¼" <usl...@SPAMlibero.it> wrote in message
news:UQPQa.175593$
Ny5.4...@twister2.libero.it

Vedi l'istruzione PrintOut membro di Docmd, ti da la
possibilità di stampare l'intervallo pagine che ti servono
ed il numero di copie che vuoi.
@Alex.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ed il numero di copie che vuoi.
.........
scusa Alex... mi potresti dire in dettaglio dove dovrei armeggiare
per fare ciò... direttamente in struttura report ???
grazie...

"QU@RK¼" <ik0qddT...@TOGLISPAMlibero.it> ha scritto nel messaggio
news:TqRQa.175922$Ny5.5...@twister2.libero.it...

Da quello che ho capito per te è una cosa da eseguire solo 1 volta
per non dover ristampare tutto il malloppo....????!!!!
Creati una Maschera con un PULSANTE e su evento click gli associ
la funzione di cui parlavamo.
Oppure se hai già la Maschera che lancia la stampa modificala
temporaneamente.
@Alex.

 temporaneamente.
----------
Ciao Alex... ho fatto una mask di appoggio con pulsante  basato
sia Query che su Report ma non riesco ad uscirne...
nel senso che Stampa direttamente oppure tutti i fogli ma non ho possibilità
di scelta di stampare fogli da 1 a 68...
ecco il codice...
Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click
DoCmd.PrintOut
    Dim stDocName As String
    stDocName = "Query Ordinamento Alfabetico"
    DoCmd.OpenReport stDocName, acPreview
Exit_Comando5_Click:
    Exit Sub
Err_Comando5_Click:
    MsgBox Err.Description
    Resume Exit_Comando5_Click
End Sub

 End Sub
Prova con
docmd.runcommand accmdprint
Occhio però che devi prima selezionare il report
MAssimiliano

 Occhio però che devi prima selezionare il report
----------
grazie Ma.. provato.. mi apre il menu di stampa
ma l'intervallo pagine Da: è attivo mentre A: è disattivo..
forse il problema è un'altro ???
Ciao...
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
DoCmd.RunCommand acCmdPrint
    Dim stDocName As String
    stDocName = "Query Ordinamento Alfabetico"
    DoCmd.OpenReport stDocName, acNormal
Exit_Comando0_Click:
    Exit Sub
Err_Comando0_Click:
    MsgBox Err.Description
    Resume Exit_Comando0_Click
End Sub


Devi usare PRINTOUT dopo OpenReport come ti ho suggerito
nei post precedenti.
Se metti 2 TxtBox oltre al Pulsante stampa e le chiami
txtPG_INIT
txtPG_END
poi fai:
 Private Sub Comando0_Click()
 On Error GoTo Err_Comando0_Click
 DoCmd.RunCommand acCmdPrint
     Dim stDocName As String
     stDocName = "Query Ordinamento Alfabetico"
     DoCmd.OpenReport stDocName, acNormal
    DoEvents
    DoCmd.PrintOut acPages, Me.txtPG_INIT, Me.txtPG_END
 Exit_Comando0_Click:
     Exit Sub
 Err_Comando0_Click:
     MsgBox Err.Description
     Resume Exit_Comando0_Click
  End Sub
Prova ora.........!
@Alex.


Devi prima selezionare il report. Lui lo conta e ti rende disponibile ciň
che vuoi
DoCmd.SelectObject acReport, "Report1", True
DoCmd.RunCommand acCmdPrint
ciao MAssimiliano


Ma come dici tu non fa quello che chiede lui.
Deve stampare solo un'intervallo che vuole definire.
Se usi il metodo PrintOut dopo averlo aperto dalla Mascherina
e digitato l'intervallo di stampa lo apre, poi lo stampa.
PROVA e sarai piů fortunato........!!!
Ciao MA.
@Alex.

 @Alex.
Sono d'accordo con te sulla qualitŕ del tuo metodo, ma come dico io gli
presento la maschera di gestione delle stampe e li fa ciň che vuole o no?
L'ho appena testato e va alla grande
MAssimiliano


Si concordo..... hai raggggione, apre il Dialogo di stampa e fai quel che
vuoi...!
OK.
1-0
@Alex.

   End Sub
-----------
Ok... fatto !!! Al bottone di comando ho inserito il tuo codice...
la stampa la esegue... ma di tutti i fogli...
per caso nelle caselle dovrei mettere i numero dei fogli
di stampa ???
se così, ho messo 1 (Init) 1 (End) e mi stampa sempre tutti
i fogli... la cosa curiosa e che il primo foglio mi stampa anche la
parte grafica della MaskStampa... come mai...???
scusa ma sono una frana in access...
Ciao...

 DoCmd.RunCommand acCmdPrint
-----------
scusa MA... Ma vorrei capire anche io... o meglio mi voglio spiegare
meglio...
ho fatto la maskStampa con bottone di comando e ci ho messo il codice
da te inviato...
Private Sub Comando6_Click()
 On Error GoTo Err_Comando6_Click
 DoCmd.RunCommand acCmdPrint
 DoCmd.SelectObject acReport, "Report Ordinamento Alfabetico", True
 DoCmd.RunCommand acCmdPrint
     Dim stDocName As String
     stDocName = "Report Ordinamento Alfabetico"
     DoCmd.OpenReport stDocName, acNormal
    DoEvents
    DoCmd.PrintOut acPages, Me.txtPG_INIT, Me.txtPG_END
Exit_Comando6_Click:
     Exit Sub
Err_Comando6_Click:
     MsgBox Err.Description
     Resume Exit_Comando6_Click
  End Sub
...........le 2 caselle di testo TxtPG_INIT ed END
apro la mask e digito sul bottone .. la prima cosa che fa
mi stampa la struttura della maskstampa...
non dimentichiamoci che il report ha come origine una query...
dove sbaglio ???
mi puoi mandare l'esempio da te costruito ???
grazie...

 > ciň che vuoi

ciao e guarda la posta, lo commentiamo domani
MAssimiliano
--------------------------------
Inviato via 
http://usenet.libero.it

 > ciň che vuoi

Beh se Biso fa l'amatriciana come tu fai le insalate....
Hai addizionato in maniera confusa le due soluzioni.
Seleziona il report prima attraverso selectobject e dopo stampi. Non devi
aprire il report, non devi inserire prima TxtPG_INIT ed END e usare
PrintOut.
La stampa della maschera č dovuta al fatto che a rimanere selezionato per il
primissimo
DoCmd.RunCommand acCmdPrint
la selezione attiva č sulla maschera.
Quindi sfonda tutto il codice e lascia solo
DoCmd.SelectObject acReport, "Report Ordinamento Alfabetico", True
DoCmd.RunCommand acCmdPrint
MAssimiliano