Newsgroup: it.comp.appl.access
Titolo: stampa n copie di un report

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
 


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

"@Alex"  ha scritto nel messaggio 
news:ba378253-0a7c-406d...@o9g2000vbc.googlegroups.com...

non sono esperto di VBA...
quindi:
docmd.OpenReport "nomereport"    e poi?
 
grazie
 
 

 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)

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



< 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


 




 


 


 




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

trovato!! c’era un “a capo” in più.
Funziona perfettamente!!!!!!!
grazie 1000
sei stato molto gentile 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
 
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
 
 

 grazie
 
Saluti.
M7a1x
 

 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

 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

 @Alex
 
Distinti saluti
M7a1x

 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

 @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)

 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
 
 
 

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
 
 

 Salvino
 
No, a Febbraio non rinnovo più... non serve e non ha più senso...
 
;-)
 
Ciao
@Alex

 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


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
 
 
 

"@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
 
 

 MA
 
Ciao
@Alex

"@Alex"  ha scritto nel messaggio 
news:1a639ff9-e9aa-489c...@w7g2000yqc.googlegroups.com...

____________Risposta:
C'è posta per te
;-)
MA