stampa n copie di un report

[vale]

E' possibile parametrizzare la stampa un certo numero di copie di un report?
mi spiego, su una maschera che contiene i campi da stampare nel report (che
sarà costituito sempre da una pagina singola) vorrei inserire un campo che
contiene il numero di copie da stampare, e passare questo numero al comando
di stampa in modo da stampare appunto il numero di copie impostate.
grazie

[@Alex]

Apri il Report in moalità non VISIBILE con il metodo OpeReport, quindi
usa il Metodo PRINTOUT che consente di definire
il numero di Copie...
Alla fine chiudi il Report.

@Alex

[vale]

"@Alex" ha scritto nel messaggio
news:ba378253-0a7c-406d...@o9g2000vbc.googlegroups.com...

non sono esperto di VBA...
quindi:
docmd.OpenReport "nomereport" e poi?

grazie

[M7a1x]

On 16 Nov, 11:58, "vale" <v...@vale.it> wrote:

< Io utilizzo questo sistema:
< praticamente una finestra di messaggio che ti chiede quante copie
del report desiderato vuoi stampare

Sub PrintReport(ByVal NomeReport As String)
On Error GoTo PrintReportErrore

Dim StringaTitolo As String
StringaTitolo = "Stampa Report: " & NomeReport

Dim Copie As Integer
Copie = InputBox("Inserire il numero di copie da stampare",
StringaTitolo, 1)

If Copie <> 0 Then
Call DoCmd.OpenReport(NomeReport, acViewPreview, , , acIcon)
DoCmd.PrintOut , , , , Copie
DoCmd.Close
Else
Exit Sub
End If

PrintReportExit:
Exit Sub
PrintReportErrore:
MsgBox Err.Description
Resume PrintReportExit
End Sub


< Aggiungi al controllo che utilizzi per la stampa il seguente codice
e il gioco è fatto:

Call PrintReport("TuoNomeReport")


< powered by m7a1x (autodidatta)

[@Alex]

...

> non sono esperto di VBA...
> quindi:
> docmd.OpenReport "nomereport"    e poi?
>
> grazie

Poi apri l'Help leggi bene tutto e fai le tue prove... non vorrai
tutto servito...?

@Alex

[vale]

< Io utilizzo questo sistema:

< praticamente una finestra di messaggio che ti chiede quante copie

del report desiderato vuoi stampare

 

Sub PrintReport(ByVal NomeReport As String)

On Error GoTo PrintReportErrore

 

Dim StringaTitolo As String

StringaTitolo = "Stampa Report: " & NomeReport

 

Dim Copie As Integer

Copie = InputBox("Inserire il numero di copie da stampare",

StringaTitolo, 1)

 

If Copie <> 0 Then

    Call DoCmd.OpenReport(NomeReport, acViewPreview, , , acIcon)

    DoCmd.PrintOut , , , , Copie

    DoCmd.Close

Else

    Exit Sub

End If

 

PrintReportExit:

    Exit Sub

PrintReportErrore:

    MsgBox Err.Description

    Resume PrintReportExit

End Sub

 

scusa ma come ho detto non sono un’esperto di vba,

in pratica:

creo un modulo

inserisco il codice di cui sopra

sostituisco a NomeReport  (tutti quelli in rosso??) il nome del mio report

creo il bottone sulla maschera e gli dò il codice:

Call PrintReport("NomeReport")

 

così ho provato e non va!

(errore di sintassi sulla riga

Copie = InputBox("Inserire il numero di copie da stampare",

StringaTitolo, 1)  )

 

uso Access2010

grazie

 

 

 

 

[M7a1x]

Ciao @Alex...
Hai ragione certe volte a spronare gli utenti ad arrangiarsi, per
quello che sono in grado di fare ma credimi quando ti dico che
parecchi di "noi" molte volte si trovano in difficoltà anche nelle
cose che a "Voi" esperti sembrano tanto banali.
La mia non vuole essere una polemica, perchè come te odio i paraculi
ma solo una ennesima preghiera a continuare a insegnare qualcosa ai
meno esperti.
Distinti saluti
M7a1x

[vale]

trovato!! c’era un “a capo” in più.
Funziona perfettamente!!!!!!!
grazie 1000
sei stato molto gentile M7a1x

[vale]

Ciao @Alex...
Hai ragione certe volte a spronare gli utenti ad arrangiarsi, per
quello che sono in grado di fare ma credimi quando ti dico che
parecchi di "noi" molte volte si trovano in difficoltà anche nelle
cose che a "Voi" esperti sembrano tanto banali.
La mia non vuole essere una polemica, perchè come te odio i paraculi
ma solo una ennesima preghiera a continuare a insegnare qualcosa ai
meno esperti.
Distinti saluti
M7a1x

Ma abbiate pazienza, vi sembra che la mia era una domanda da "paraculo"?
ho premesso che non sono un'esperto e devo fare questa cosa in fretta.
A cosa serve un Newsgroup se non puoi chiedere una soluzione a chi lo sa
fare?
non ho chiesto di fare un corso VBA "a gratis".
se uno vuole aiutare aiuta sennò taccia!
è inutile rispondere "usa l'help" perchè così non si aiuta nessuno.
sarebbe come se uno per strada mi chiede un indirizzo e io gli rispondessi:
vada di qua .... e poi si arrangi

comunque grazie di nuovo M7a1x

[M7a1x]

Negativo:
Crea il modulo, copia ciò che ti ho postato e salva. (non cambiare
nulla)

> creo il bottone sulla maschera e gli dò il codice:
> Call PrintReport("NomeReport")

In questa riga invece inserisci il nome del report che devi stampare.
Ad es.: Call PrintReport("Indirizzi")

Io uso Access 2003 e non conosco per niente A2010 (e non ho modo di
provare) ma dovrebbe funzionare lo stesso.

>
> così ho provato e non va!
> (errore di sintassi sulla riga
> Copie = InputBox("Inserire il numero di copie da stampare",
> StringaTitolo, 1)  )
>
> uso Access2010
> grazie

Saluti.
M7a1x

[M7a1x]

On 16 Nov, 15:06, "vale" <v...@vale.it> wrote:
> Ciao @Alex...
> Hai ragione certe volte a spronare gli utenti ad arrangiarsi, per
> quello che sono in grado di fare ma credimi quando ti dico che

> parecchi di "noi" molte volte si trovano in difficolt anche nelle

> cose che a "Voi" esperti sembrano tanto banali.

> La mia non vuole essere una polemica, perch come te odio i paraculi

> ma solo una ennesima preghiera a continuare a insegnare qualcosa ai
> meno esperti.
> Distinti saluti
> M7a1x
>
> Ma abbiate pazienza, vi sembra che la mia era una domanda da "paraculo"?
> ho premesso che non sono un'esperto e devo fare questa cosa in fretta.
> A cosa serve un Newsgroup se non puoi chiedere una soluzione a chi lo sa
> fare?
> non ho chiesto di fare un corso VBA "a gratis".

> se uno vuole aiutare aiuta senn taccia!
> inutile rispondere "usa l'help" perch cos non si aiuta nessuno.

> sarebbe come se uno per strada mi chiede un indirizzo e io gli rispondessi:
> vada di qua .... e poi si arrangi
>
> comunque grazie di nuovo M7a1x

Vale....
La tua ultima risposta merita il mio "Mi piace" più sincero, stile
facebook. (Anzi proporrei di aggiungere questa funzione ai NG per
tutte le risposte postate)
Se cerchi, nei Newsgroup, è pieno di risposte simili a quella che hai
ricevuto tu; è pur vero che molti come credeva @Alex vogliono la pappa
pronta. E' come la storiella di "Al lupo, Al lupo". Un minimo di
serietà da parte di tutti.
Navighiamo nella medesima barca e prima o poi l'uno ha bisogno
dell'altro. Insieme non si finirà di certo alla deriva.
Rinnovo i Saluti

M7a1x

[@Alex]

...

> Ma abbiate pazienza, vi sembra che la mia era una domanda da "paraculo"?

La domanda iniziale non lo era, almeno io non l'ho interpretata
tale... questa risposta invece
direi che lo è.

> ho premesso che non sono un'esperto e devo fare questa cosa in fretta.
> A cosa serve un Newsgroup se non puoi chiedere una soluzione a chi lo sa
> fare?

Fai attenzione a non confondere un NewsGroup con un HELP-DESK.
Nei NewsGrouop e nei forum viene incentivato il dibattito tecnico, ma
perchè questo sia tale
tutti i componenti del dibattito devono mettere sul tavolo qualche
cosa di TECNICO.
Se tu dici che non sei esperto e, dopo un suggerimento non ci metti
nemmeno un pò del tuo per leggere
la guida e bittare giù 2 righe di codice al fine di dimostrare un
minimo di approccio, per quanto mi riguarda
non meriti ulteriori aiuti.

> non ho chiesto di fare un corso VBA "a gratis".

Questo sarebbe stato oggetto di insulti...!

> se uno vuole aiutare aiuta sennò taccia!

Sbagli alla grandissima... per 2 motivi:
1) Non puoi essere tu a dire a NESSUNO di "Tacere"
2) Sei tu che devi approciarti al sistema come si conviene, e bada che
il regolamento del NewsGroup c'è per essere letto...

Far notare una mancanza è DOVEROSO per chi frequenta il NG con lo
spirito tecnico e non solo di LUCRO.

> è inutile rispondere "usa l'help" perchè così non si aiuta nessuno.

Aiuta chi ha interesse, non chi spera nella pappa pronta.

> sarebbe come se uno per strada mi chiede un indirizzo e io gli rispondessi:
> vada di qua .... e poi si arrangi
> comunque grazie di nuovo M7a1x

Io invece non lo ringrazio per il semplice motivo a causa del concetto
del tutto DOVUTO e di chi non disincentiva questo atteggimanto, il NG
è diventato molto sterile
pieno solo di gente che chiede e non da nulla...

@Alex

[M7a1x]

Caro Alex...
Io in questo caso ho dato (anche se poco), altre volte ho chiesto
(altrettanto poco).
Capisco il tuo stato d'animo ma rinnovo la preghiera del mio
precedente post. Continuate a dare una mano ai meno esperti. Non
sempre si tratta di "lattanti".
Oh quante risposte darei in più se avessi i tuoi titoli ma si fa ciò
che si può. La speranza è che come nel caso in questione il buon Vale
vada a leggersi quelle quattro righe di codice postate e vada a capire
cosa realmente è successo nella sua applicazione, proprio come faccio
io ogni volta che scopro un'altra tessera di questo immenso mosaico.

>
> @Alex

Distinti saluti
M7a1x

[@Alex]

....
>
> Distinti saluti
> M7a1x

M7a1x, sembra il nome di una nebulosa..., non so come chiamarti... è
dal 1996 che scrivo in questo NG con circa 20000 post quindi quello
della
partecipazione non è un mio problema... io come spirito di
partecipazione non devo dimostrare nulla....!!!!

Il problema nasche quando data un'indicazione che non è la CLASSICA
PAPPA PRONTA, o meglio il codice finito, dall'altra parte senza un
minimo di approccio tecnico si passa
all'esigenza dello stesso...!

Non solo non mi sta bene, ma mi spinge sempre più a non partecipare e
non fornire codice... cosa che può tranquillamente non fregare nulla a
nessuno, ma personalmente non
mi può vietare di esprimere SEMPRE la mia contrarietà a questo modo di
fare.

Il prossimo passo sarà chiudere il mio sito, risparmio anche 30€
l'anno.

Saluti.

@Alex

[M7a1x]

On 16 Nov, 17:15, "@Alex" <ik2...@libero.it> wrote:
> ....
>
>
>
> > Distinti saluti
> > M7a1x
>
> M7a1x, sembra il nome di una nebulosa..., non so come chiamarti...

Nel mio nick non c'è nulla di extra terrestre, con un piccolo
anagramma ottieni facilmente Max 71 ed qui dedurre Massimo del 1971
sembra quasi una cavolata. Mistero risolto

> è dal 1996 che scrivo in questo NG con circa 20000 post quindi quello
> della
> partecipazione non è un mio problema... io come spirito di
> partecipazione non devo dimostrare nulla....!!!!

Esserti prodigato per gli altri ti fa onore e per quanto mi riguarda e
ti posso assicurare che godi della mia più profonda stima.
Capisci bene che la mia era quasi una preghiera per non interrompere
quel rapporto che ormai posso reputare quasi come da "professore" ad
"alunno".

>
> Il problema nasche quando data un'indicazione che non è la CLASSICA
> PAPPA PRONTA, o meglio il codice finito, dall'altra parte senza un
> minimo di approccio tecnico si passa
> all'esigenza dello stesso...!

Comprendo altrettanto bene con quanti pigroni avrai avuto a che dire.
Ma perdonami se mi ripeto... tutto questo non fa che farti
immensamente onore.

>
> Non solo non mi sta bene, ma mi spinge sempre più a non partecipare e
> non fornire codice... cosa che può tranquillamente non fregare nulla a
> nessuno, ma personalmente non
> mi può vietare di esprimere SEMPRE la mia contrarietà a questo modo di
> fare.
>

> Il prossimo passo sarà chiudere il mio sito, risparmio anche 30€
> l'anno.

Sarebbe un vero peccato. Esistono pochi punti di riferimento dove
poter trovare esempi di ciò che si vorrebbe creare.
Piuttosto c'è la possibilità di postare un mio lavoro per poter essere
inserito nel tuo sito, naturalmente dopo accurata verifica. Fammi
sapere grazie.
>
> Saluti.
>
> @Alex

E' stato veramente un piacere anche solo aver avuto questo scambio di
vedute.
Naturalmente è gradita l'occasione per inviarTi i più distinti saluti
Massimo 71 (da marte è tutto - chiudo)

[sv]

@Alex ha scritto:
[cut]

> Il prossimo passo sarą chiudere il mio sito, risparmio anche 30€
> l'anno.

Stai scherzando non č vero?
:-)

--
Salvino



--

questo articolo e` stato inviato via web dal servizio gratuito
http://www.newsland.it/news segnala gli abusi ad ab...@newsland.it

[tommaso]

I siti che più mi interessano (se può esserVi utile)

I miei preferiti (Molto chiari e in lingua italiana):
http://www.donkarl.com/it/
http://www.sitocomune.com/

e (Senza nulla togliere agli altri, e che ringrazio per il lavoro
pubblicato)
http://www.accessgroup.it/
http://access.mvps.org/access/
http://www.cplusplus.it/VisualBasic/Pagine/Variabili/Variabili.htm
http://www.allenbrowne.com/index.html
http://hub.webring.org/hub/microsoftaccess
http://www.datastrat.com/index.html
http://www.access-paradies.de/home/index.php
http://www.groupacg.com/ATip.htm
http://www.ammara.com/index.html
http://www.everythingaccess.com/
http://www.alessandrobaraldi.it/index.asp

e.... per excel (Grandioso)
http://www.ennius.altervista.org/

e poi ce ne sono a quintalate nel web.........

Ciao
Tommaso

[@Alex]

On 16 Nov, 19:33, salv...@accessgroup.it (sv) wrote:
> @Alex ha scritto:
> [cut]
>

> > Il prossimo passo sarà chiudere il mio sito, risparmio anche 30€
> > l'anno.
>
> Stai scherzando non è vero?
> :-)
>
> --
> Salvino

No, a Febbraio non rinnovo più... non serve e non ha più senso...

;-)

Ciao
@Alex

[@Alex]

...
> > > Distinti saluti
> > > M7a1x
>
> > M7a1x, sembra il nome di una nebulosa..., non so come chiamarti...
>
> Nel mio nick non c'è nulla di extra terrestre, con un piccolo
> anagramma ottieni facilmente Max 71 ed qui dedurre Massimo del 1971
> sembra quasi una cavolata. Mistero risolto

Ottima annata la migliore...

> > è dal 1996 che scrivo in questo NG con circa 20000 post quindi quello
> > della
> > partecipazione non è un mio problema... io come spirito di
> > partecipazione non devo dimostrare nulla....!!!!
>
> Esserti prodigato per gli altri ti fa onore e per quanto mi riguarda e
> ti posso assicurare che godi della mia più profonda stima.
> Capisci bene che la mia era quasi una preghiera per non interrompere
> quel rapporto che ormai posso reputare quasi come da "professore" ad
> "alunno".

Macchè onore... il problema è proprio questo che spesso si confonde.
Non è questione di onore... o altruismo o che altro... era un piacere
condividere
e discutere tecnicamente... ora non lo è perchè non c'è più
discussione tecnica ma
solo PRETESA STERILE.

> > Il problema nasche quando data un'indicazione che non è la CLASSICA
> > PAPPA PRONTA, o meglio il codice finito, dall'altra parte senza un
> > minimo di approccio tecnico si passa
> > all'esigenza dello stesso...!
>
> Comprendo altrettanto bene con quanti pigroni avrai avuto a che dire.
> Ma perdonami se mi ripeto... tutto questo non fa che farti
> immensamente onore.

NO.

....

>
> Sarebbe un vero peccato. Esistono pochi punti di riferimento dove
> poter trovare esempi di ciò che si vorrebbe creare.

Non che la chisura del mio sito sia da considerare un problema... è
solo
un segno... e siccome tutto è Downlodabile... credo tu abbia capito
senza io lo dicessi
che non era questo il senso del mio appunto...!

Per tutti i riferimenti presenti, benvengano... ci mancherebbe fosse
un problema... io ho imparato
sicuramente STUDIANDO da tutti quei siti che pubblicano esempi di
codice e demo...

> Piuttosto c'è la possibilità di postare un mio lavoro per poter essere
> inserito nel tuo sito, naturalmente dopo accurata verifica. Fammi
> sapere grazie.

No, ho pubblicato solo pochissimi demo di terzi, ma non avrebbe alcun
senso il 28Feb non sarà più accessibile.

>
> > Saluti.
>
> > @Alex
>
> E' stato veramente un piacere anche solo aver avuto questo scambio di
> vedute.
> Naturalmente è gradita l'occasione per inviarTi i più distinti saluti
> Massimo 71 (da marte è tutto - chiudo)

Mah in realtà nulla di preoccupante... solo i piccoli meschini cadono
nel tranello, e come ho visto sono sempre
quelli i microcefali, ma tu, fosse pure per l'annata migliore, sei
stato intelligente.

Ciao
@Alex

[SammyJR]

sarebbe come se uno per strada mi chiede un indirizzo e io gli dessi
uno stradario

questo è il paragone giusto nello scenario da te ipotizzato

ciao

[MA]

"@Alex" ha scritto nel messaggio

news:a8a0ba26-371e-4598...@l24g2000yqm.googlegroups.com...

_____________Risposta:
Ciao
mi dispiace molto questa tua decisione, il tuo sito è un'importante fonte
per me, e spero che tu ci ripensi.
In ogni caso se non vuoi far perdere tutto quel patrimonio sai bene che puoi
migrare su AccessGroup.it o possiamo trovare una formula diversa
Ciao
MA

[@Alex]

....

> Ciao
> mi dispiace molto questa tua decisione, il tuo sito è un'importante fonte
> per me, e spero che tu ci ripensi.

Ma no non credo ne valga la pena, per molti motivi.
In tutti i casi nulla va perso... fare Download dei siti è un
giochino... ;-)

> In ogni caso se non vuoi far perdere tutto quel patrimonio sai bene che puoi
> migrare su AccessGroup.it o possiamo trovare una formula diversa

Avevo offerto tutto il pacchetto a Cinzia per "RIOLAB", senza
Copyright, ma poi non ho più sentito nulla... tuttavia credo non ci
siano problemi
... anzi io sono ben felice possano usufruirne più siti possibile.

Nel caso direi chepossiamo parlarne anche privatamente.

> Ciao
> MA

Ciao
@Alex

[MA]

"@Alex" ha scritto nel messaggio

news:1a639ff9-e9aa-489c...@w7g2000yqc.googlegroups.com...

____________Risposta:
C'è posta per te
;-)
MA