Newsgroup: it.comp.appl.access
Titolo: Visualizzare Finestra dialogo Stampante

Ciao a tutti
Scusate se ritorno sull'argomento e ringrazio Roberto per la risposta e per 
avermi indirizzato alla sua 4.32 "Ropert".
Mi piacerebbe non stravolgere quello già da me fatto e qui sotto 
illustrato.Potreste suggerirmi una istruzione da inserire tra le righe da me 
già scritte??
Grazie
Ho una maschera con un gruppo di opzioni  e sottostante la seguente routine:
SubStampaReport(PrintMode As Integer)
Select Case Me!ReportDaStampare
Case 1
DoCmd.OpenReport"COSTO MEDIO TITOLI", PrintMode
(Ecc.Ecc fino a Case 10)
End Select
End sub
----------------------------
Private Sub Stampa_Report_Click()
StampaReport acNormal
End Sub
Fino qui tutto bene nel senso che parte la stampa del report.
Quello che vorrei è che mi appaia prima la finestra della stampante in modo
da impostare le pagine e qunat'altro.
Inoltre se invece di ok premo il tasto annulla si chiudesse la finestra
della stampa e ritornare alla maschera di partenza.
E' possibile avere aiuto.Grazie e ciao

 Grazie e ciao
Prego
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio 
news:vylef.39114$65.11...@twister1.libero.it...


 inserire le tue righe di comando .
Prova così:
Sub StampaReport(PrintMode As Integer)
Select Case Me!ReportDaStampare
Case 1
If PrintMode = acNormal Then
    On Error GoTo No_Stampa
    DoCmd.SelectObject acReport, ""COSTO MEDIO TITOLI", True
    DoCmd.RunCommand acCmdPrint
    DoCmd.SelectObject acForm, Me.Name, False
    Go to Esci1
    No_Stampa:
        If Err.Number = 2501 Then
            MsgBox "Stampa annullata dall'utente", vbInformation, "Stampa
MioReport"
            DoCmd.SelectObject acForm, Me.Name, False
        Else
            MsgBox Err.Number & " " & Err.Description
        End If
        Resume Esci1
Else
    DoCmd.OpenReport "COSTO MEDIO TITOLI",  PrintMode
End If
Esci1:
(Ecc.Ecc fino a Case 10)
End Select
End sub
----------------------------
Private Sub Stampa_Report_Click()
StampaReport acNormal
End Sub
[CUT]
Comunque a mio avviso non puoi pretendere di programmare Access senza
studiare almeno i fondamentali di Access, di VBA e di SQL, almeno quel
minimo che ti permetta di capire i suggerimenti che ti vengono dati o per
interpretare e riadattare gli esempi che trovi nell'help e nel Sito Comune.
Non so gli altri partecipanti che danno una mano nel NG con che spirito lo
fanno, certo io lo faccio con lo scopo di dare una mano ad imparare Access a
chi è alle prime armi, ma non mi va assolutamente di sostituirmi a loro nel
loro lavoro: il database debbono farlo loro anche in base a degli aiuti che
è legittimo che cerchino anche nel NG, ma non schiodare sino a quando non
viene fornito loro un codice VBA da riportare nel loro applicativo con un
brutale copia/incolla non mi sembra costruttivo né per loro e né per coloro
che cercano di aiutarli.
Quello che ho scritto non riguarda solo te, ma anche molti altri
frequentatori del NG alle prime armi: a volte mi date la sensazione di
essere come coloro che telefonano agli indovini per avere dei numeri da
giocare al lotto, nella speranza di azzeccare un terno secco.
Mi auguro che questo mio piccolo sfogo non ti crei contrarietà, come altre
volte è successo con altre persone: queste cose le penso e mi sembra
opportuno scriverle nello scopo di spronare a studiare almeno i fondamentali
di Access.
L'informatica è una disciplina neppure tanto facile, ma pensare di
praticarla senza studiare almeno le cose basilari mi sembra proprio una
assurda arrampicata sugli specchi.


[CUT]
Ciao Roberto,
condivido perfettamente quanto da te asserito e piů che uno sfogo, dato il 
tono abbastanza pacato, suona di riflessione ad alta voce che xaltro 
potrebbe o meglio "dovrebbe" non essere esternata in quanto l'interlocutore 
a monte dovrebbe capire da sč il significato di questo spazio oltre che del 
sito comune e di tutti gli altri strumenti messi a disposizione...
Come al solito -> buona serata :-) 

[CUT]
...chissà se sarebbe il caso di includere quanto da te asserito nelle 
istruzioni x l'uso od in qualche angolino del sito comune...giusto x 
"aiutare" le persone a trovare la strada"giusta" x affrontare le difficoltà 
di access...diciamo così... ;-)
alla prossima :-) 

 alla prossima :-)


 ....chissà se sarebbe il caso di includere quanto da te asserito nelle 
 ............se fosse..... ;-)))
--
rgrds
SC
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

[CUT]
Ciao Ill.mo Dottore,
grazie x la sua "sottolineatura" -> capirà dalle mie parti c'è buio da 
stamane ed il cervello tende ad andare in stand by x cui ogni tanto lo devo 
"stimolare"...xchè non tutti abitiamo in posti di "villeggiatura"....NON 
TUTTI SIAMO FORTUNATI COME "Salvino" ;-)
ciao :-) 

 ciao :-)
Grazie per i titoli :-))
Ma non ho potuto farne a meno... è stato più forte di me.
Oggi da noi un po' di burrasca da SE ma c'è ancora caldo..
Una buona serata


 ha scritto nel messaggio 
news:84pef.39514$65.11...@twister1.libero.it...



da SE ...ME ...TE....ma che stai a dě? non ti seguo a Salvě... 

 [CUT]


Da Sud Est...
Ti parlavo delle condizioni meterologiche :-))
