Newsgroup: it.comp.appl.access
Titolo: stampa pagine dispari

esiste un modo 'semplice' per stampare prima le pagine dispari e poi le pari
di un report al fine di ottenere una stampa fronte retro ?
grazie

 ha scritto nel messaggio
news:94upsd$ik4$1...@fe1.cs.interbusiness.it...

Fai un giretto nel Sito Comune (lik qui sotto), c'è la soluzione al tuo
problema.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

 ha scritto nel messaggio
news:29Gc6.38686$ew1.2...@news.infostrada.it...

grazie mille per il consiglio
però vorrei ancora un aiutino: come faccio a
"copiare la seguente routine nel MODULO DEL REPORT:" ?
sergio


Le tre righe di codice VBA della routine scritta da Federico (la prima e
l'ultma le aggiunge Access automaticamente) le devi scrivere a fronte
dell'evento "Su stampa" della sezione Corpo del tuo report. Quanto ti sto
dicendo è esplicitato nella prima riga della routine: Private Sub
CORPO_PRINT(Cancel As Integer, PrintCount As Integer).


 ...
ok grazie forse ora ho capito
ho ripetuto le istruzioni anche per la sezione Intestazione Report,
Intestazione Pagina
e Piedipagina altrimenti non scrive il corpo ma stampa ugualmente le pagine
non desiderate con solo l'intestazione
a questo punto perņ ho ottenuto non di saltare le pagine indesiderate,
ma di stamparle bianche
la cosa sarebbe anche sopportabile nella prima passata di stampa delle
pagine dispari (eliminando a mano le pagine bianche)
ma non č possibile nella successiva stampata delle pagine pari con la carta
rivoltata
me lo dai ancora un aiuto ?
grazie
sergio

 sergio
Non sono in grado di darti un ulteriore supporto, anche perché non conosco
affatto bene la gestione dei report.
Ti consiglio di chiedere chiarimenti, sempre nel NG, a Federico Luciani che,
avendo scritto la routine, saprà darti sicuramente delucidazioni in merito.


 ma di stamparle bianche
questa cosa e' alquanto strana, ho appena riprovato e in fase di stampa non ho
ottenuto pagine bianche.
ma tu hai provato a stamparle o le visualizzi solo in anteprima?
te lo chiedo, perche' in anteprima le pagine non stampate sono bianche, ma
queste non vengono inviate alla stampante.
-- 
Federico
fluc...@paperino.sitocomune.com
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
mailto:
webm...@sitocomune.com
--------------------------------------


ho riprovato anch'io ma ottengo pagine bianche sia in anteprima che nella
stampa effettiva
perchè se vengono visualizzate bianche in anteprima la stampa non dovrebbe
stamparle come appaiono a video ?
come possiamo a convincere la routine di stampa a saltare le pagine vuote ?
io devo spesso stampare lunghi elenchi di articoli, liste di prezzi e
ricambi che spesso diventano voluminosi e difficili da rilegare
penso che molti altri come me siano interessati a stampare i report in metà
spessore
saluti e grazie per l'interessamento
Sergio

 Sergio
ti ripeto a me funziona benissimo e vorrei capire perche' a te non funziona.
anche perche' essendo una faq sul SC, mi dispiacerebbe che ci fosse qualcosa
che non ho valutato.
se sei daccordo ti invio in email un mdb piccolino con il quale riesco a
stampare fronteretro senza problemi;
in questo ci mettiamo nelle stesse condizioni, e mi fai sapere.
fammi sapere se posso inviartelo.
In ogni caso, ti posto questa funzioncina di Sergio Mazza che serve allo stesso
scopo:
Function StampaParieDispari(FlagPagina As Boolean)
 Rem
 Rem FlagPagina = True stampa pagine dispari
 Rem FlagPagina = Flag stampa pagine pari
 Rem
 Dim totPage As Integer, xPage As Integer
 DoCmd.Echo False
 DoCmd.OpenReport "TuoReport", acViewPreview
 totPage = Reports("TuoReport").Pages
 For xPage = 1 To totPage
    If (xPage Mod 2) > 0 And FlagPagina Then
        DoCmd.SelectObject acReport, "TuoReport"
        DoCmd.PrintOut acPages, xPage, xPage
    Else
        DoCmd.SelectObject acReport, "TuoReport"
        DoCmd.PrintOut acPages, xPage, xPage
    End If
 Next
 DoCmd.Echo True
 StampaParieDispari = Null
End Function


 fammi sapere se posso inviartelo.
certo che puoi iněviarmelo
sono ansioso di provarlo
(nel frattempo provo le righe che mi hai citato)
garazie ciao
Sergio

 fammi sapere se posso inviartelo.
certo che puoi iněviarmelo


 fammi sapere se posso inviartelo.
certo che puoi iněviarmelo


 Sergio
inviato.
resto in attesa di tue notizie.


 fammi sapere se posso inviartelo.
certo che puoi iněviarmelo


 fammi sapere se posso inviartelo.
certo che puoi iněviarmelo



ho ricevuto il tuo mdb e l'ho provato ma le pagine bianche
visualizzate in anteprima vengono ugualmente stampate bianche
ho provato sia a casa che in ufficio (altro computer, altra stampante)
ma il risultato è lo stesso.....purtroppo
a questo punto mi permetto di inviarti un mio mdb ridotto di esempio
sono curioso di sapere se a te funziona come il tuo
ciao ancora grazie
Sergio

 Sergio
non so come dirtelo, ma da me funziona benissimo, cioe' stampo correttamente
senza pag. bianche!!
a questo punto non riesco proprio a capire come sia possibile che da te non
funzioni.
naturalmente mi viene da pensare che sia dovuto ad access o alla stampante, ma
non riesco a spiegarmi come.
X tutti
Ho messo l'mdb esempio (30k) che ho inviato a Sergio, qui:
http://members.xoom.it/it_db_access/download/FronteRetro.zip
provatelo e fatemi sapere come va, cerchiamo di venirne a capo.
Grazie
-- 
Federico
----------------------------------
Rimuovi paperino. per e-mail
----------------------------------
Tutte le richieste che arrivano
in privato, vengono cestinate.
----------------------------------
Sito Comune di it.comp.appl.access
http://www.sitocomune.com
mailto:
webm...@sitocomune.com
----------------------------------


Purtroppo devo dirti che anche a me fa la stessa cosa, stampa le pagine
bianche. Ho chiesto di stampare le pagine dispari e mi ha sfornato in
sequenza: pagina 1 - pagina bianca - pagina 3.
La configurazione che utilizzo č: PIII - 128Mbyte - NTServer -Acc'97 e ho
provato con:
- HP Deskjet 820Cxi (locale);
- Xerox Docuprint 17 (rete).
Ciao.


A me stampa le pagine bianche.
Windows 95, Access 97, stampante HP Laserject 4000 N collegata in rete.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel

Incredibile!
Non so come spiegare, sta cosa.
Io stampo su Epson Stylus Photo 700, ma non posso credere che dipenda dalla
stampante.


vedo che anche ad altri succede come a me che stampa le pagine bianche
vorrei chiederti se l'esempio che ti ho inviato io a te funziona bene o no
ci sarà qualche settaggio strano di win o di access riguardo la stampa che
ci sta sfugendo ?
sta diventando una questione di principio
ciao
Sergio

 sta diventando una questione di principio
infatti :-))



Anche con il computer di casa mi stampa le pagine bianche.
Windows Me, A97, stampante HP 950C in locale
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

End Function
io ho diviso il programma in due sottoprogrammi (uno che stampa solo le
dispari ed uno solo le pari) e li richiamo da una maschera (come suggeritomi
da Luciano)
comunque ora la cosa funziona: il ciclo è più lento perchè apre e stampa
solo la pagina corrente ogni volta, ma le pagine non desiderate stavolta non
vengono proprio  prese in considerazione
ciao
Sergio

End Function
io ho diviso il programma in due sottoprogrammi (uno che stampa solo le


End Function
io ho diviso il programma in due sottoprogrammi (uno che stampa solo le



Ciao, ho scaricato il tuo fronte-retro, anche a me stampa le pagine
bianche.Uso A2000
Ferdinando


Mumble, mumble... E' un bel rompicapo, ci vogliamo mettere in palio qualcosa
a chi lo risolve? Per esempio, gratis il compilatore?
Ciao.

 Ciao.
ho fatto delle prove da altri pc con varie conf., ma sempre sulla stessa Epson,
la stampa e' ok!!!
spero che qualcuno con una Epson Stylus lo provi, almeno abbiamo una conferma!


 Grazie
Prova effettuata da Windows 98 su stampante HP DJ 710C in rete: stampa le
pagine bianche.
Idem da Windows NT 4 su HP DJ 710C in locale.
--
Silvio
il sito comune di it.comp.appl.access:
http://www.sitocomune.com