Newsgroup: it.comp.appl.access
Titolo: Problema con la stampa di report

Salve a tutti!
Ho un problema alquanto "strano" che riguarda la stampa di report
dinamici da una maschera. In pratica non riesco a stampare su una
stampante di rete.
Mi spiego, tramite la maschera posso scegliere l'id di un prodotto e
stampare il report relativo solo a quel prodotto... premetto che
visualizzando il record in anteprima tutto funziona ok... i problemi
sorgono quando reindirizzo il report sulla stampante. In particolare:
- se uso il comando:
   DoCmd.OpenReport "Tutti gli articoli", acViewNormal, , reportFilter
   dove reportFilter è una variabile che contiene la clausula WHERE
composta secondo i dati immessi dall'utente nella form
  e "Tutti gli articoli" è il report da stampare
  la stampa mi viene inviata sulla stampante predefinita! :o
Purtroppo questo effetto non è il massimo e mi piacerebbe che la
stampante venga scelta dall'utente. Allora ho fatto qualcosa del
genere:
///////////Popola la combo con le stampanti installate sul sistema
Private Sub Form_Open(Cancel As Integer)
    Set defPrinter = Application.printer
    Dim i As Integer
    Dim prnCount As Integer
    prnCount = Application.Printers.Count
    For i = 0 To prnCount - 1 Step 1
        printerLabel.RowSource = printerLabel.RowSource &
Application.Printers(i).DeviceName & ";"
    Next i
    printerLabel.Value = defPrinter.DeviceName
End Sub
//////////////Cambia stampante predefinita
Private Sub printerLabel_Change()
printer = Application.Printers(printerLabel.ListIndex)
End Sub
//////////////Procedura di stampa classica, al termine riporta la
stampante predefinita alle sue impostazioni originali
Private Sub printBtn_Click()
Dim reportFilter As String
reportFilter = createReportFilter(idCiclo.Value)
If recordsCount(reportFilter) = 0 Then
        msgBoxRes = MsgBox("Attenzione! Id prodotto non valido o
inesistente", vbOKOnly, "Stampa prodotto")
    Else:
        DoCmd.OpenReport "Tutti i cicli di Test", acViewNormal, ,
reportFilter
        'printer = defPrinter
    End If
End Sub
Il problema è che cmq la stampa mi viene reindirizzata sulla stampante
predefinita locale :(
Come posso risolvere questo fastidioso problema?
Grazie 1000
ciao ciao
Sergio

Sergio
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 modo:
[CUT]
Ho provato subito il metodo da te proposto! E' molto efficiente ed
effettivamente mi semplifica parecchio la vita! ;)
C'è solo un piccolo problema: il report che voglio mandare in stampa
è una versione "filtrata" di quello presente nei reports del DB.
(Ottenevo questo tramite la funzione DoCmd.OpenReport "MioReport",
acViewNormal, , reportFilter, dove reportFilter rappresentava le
condizioni da rispettare)...
A quanto ho capito usando:
  DoCmd.SelectObject acReport, "Tutti i cicli di Test", True
non posso imporre altre condizioni al report...
Esiste un modo per soddisfare anche questo ultimo requisito?
Di nuovo grazie 1000
Ciao ciao
Sergio

Ciao ciao


Funziona perfettamente! Ottima idea!
Grazie 100000000 del tuo utilissimo aiuto! :DDDD
Ciao ciao
Sergio

sergio...@gmail.com
 ha scritto:

ciao ho letto il tuo mess.
ho bisogno di visualizzare il report di un campionato di calcio.
Nella maschera chiedo di inserire il nome della squadra di cui si vuol 
visualizzare il calendario, poi dovrei stampare il report del calendario 
di sola quella squadra invece me lo visualizza dell'intero campionato:
ES: inserisci team: lazio
vorrei che mi uscisse nel report:
lazio-inter
juve-inter
invece mi escono tutte le partite del campionato! come posso fare ?!!?!
potresti aiutarmi
grazie toni

 grazie toni
Prego


 
guarad che pero il mio problema è un altro siccome ho una maschera che è 
il risutlatao di una query e quindi mi mostra un solo campo ho necessita 
di filtrare il report con il nome del campo chiave, seguendo 
quell'indicazione mi mostra tutti i campi chiave dti tutti i record del db !

 ha scritto nel messaggio
news:Itd6f.2352$65.7...@twister1.libero.it...

Mi dispiace, ma non riuscendo a comprendere il tuo problema (quello che
capisco è risolvibile con quanto indicato in quella FAQ) esco dal thread.
