Newsgroup: it.comp.appl.access
Titolo: Baco Access in stampa?

Salve, ecco il problema.
Io creo un pulsante per stampare, che so, il risultato di una query.
Lo crea l'autocomposizione e quindi č scontato che vada bene, ed in effetti
funziona.
Ma non sempre!!!!
La stessa stampa a volte la esegue una volta sola !?!?!?!?
A volte non la esegue affatto!?!?!?!
A volte non stampa tutto quello che dovrebbe!?!?!?
Ma se passo per l'anteprima, (stesso comando ma con acPreview), allora poi
stampa bene.
E' un problema riscontrato di una qualche versione di access (non dico di
windows, perchč da me pare che funzioni tutto, ma quando lo distribuisco in
giro nascono i problemi), o che altro.
E se dovete suggerirmi di fare sempre le anteprime.... risparmiate
l'inchiostro :-))
Thanks
-- 
Ivan MO

funziona.
perche' se lo crea l'autocomposizione e' scontato che vada bene?
hai controllato il codice eseguito dal pulsante?
--------------------------------------------------
ATTENZIONE!
it.comp.database.access diventera' it.comp.appl.access!
cercalo tra i nuovi ng e linkalo!
-----------------------------------
rimuovere NOSPAM. per mandare email
-----------------------------------
il sito comune di it.comp.database.access:
http://members.xoom.it/it_db_access

Una strada potrebbe esere questa:
In un module setta una variabile globale del tipo "Global MioReport as
String".
Sull'evento apertura del report scrivi nel codice : "MioReport = Me.Name"
Poi sull'evento clic del pulsante di stampa esegui la funzione Call MStampaT
che avrai scritto in un modulo pubblico.
Public Function MStampaT()
On Error Resume Next
DoCmd.SelectObject acReport, MioReport
DoCmd.PrintOut acPrintAll, , , acLow, 1, True
End Function
La funzione puň essere ulterirmente ampliata in questo modo:
Public Function MStampaR()
On Error GoTo MStampaR_Err
    Dim da As Integer, A As Integer
    Dim pg As Integer, rp As Report
        On Error Resume Next
    da = InputBox("Il report contiene " & PgReport & " pagine " & Chr(13) &
Chr(13) & "Immetti il numero di pagina iniziale da stampare.", "Stampa da
pagina...", 1)
    If da = 0 Then Exit Function
    A = InputBox("Immetti il numero di pagina finale da stampare.", "A
pagina...", 1)
    If A = 0 Then Exit Function
    DoCmd.SelectObject acReport, MioReport
    DoCmd.PrintOut acPrintAll, da, A, acLow, 1, True
MStampaR_Exit:
    Exit Function
MStampaR_Err:
    MsgBox Error$
    Resume MStampaR_Exit
End Function
Questo secondo modulo impone due passaggi:
Impostare una variabile globale "PgReport " di tipo integer
Usare la funzione chiamandola da una macro che avrai sistemato in una barra
menů del report
e che funziona bene se apri il report in Preview.
In aggiunta devi impostare nel Pič di pagina Pagina del report una casella
di testo impostata a: ="Pagina " & [Page] & " di " & [Pages] e sull'evento
Page del report:
Private Sub Report_Page()
On Error Resume Next
PgReport = Me.Pages
End Sub
Spero di esserti stato d'aiuto.
Ciao, Carlo
--
Posted from 
ro...@www.paola.antares.it
 [195.216.145.2]
via Mailgate.ORG Server - 
http://www.mailgate.org

Mi sembra molto bello!!!
Ora ci provo.
Grazie
-- 
Ivan MO

Beh, insomma, c'è un motivo a voi noto per cui con:
Dim stDocName As String
Dim strFiltro As String
    stDocName = "Report Mancanti"
    DoCmd.OpenReport stDocName, acNormal
Access si inchioda (il prg. ha eseguito una op. non valida e verrà
terminato....)
mentre con:
Dim stDocName As String
Dim strFiltro As String
    stDocName = "Report Mancanti"
    DoCmd.OpenReport stDocName, acPreview
e poi stampando, tutto funziona?
Ma non solo sul mio PC!!!!
Whats happend?
-- 
Ivan MO

Ivan ha scritto:



mentre con:


Whats happend?
--
Ivan MO
Non c'è nessun motivo. Questa procedura è stata da me usate centinaia di
volte senza alcun problema.
Ti consiglio queste operazioni:
- Ripristina e compatta il database.
-Verifica i Riferimenti.
-Costruisci un nuovo database e importa un oggetto alla volta dal database
che ti crea problemi.
-Disinstalla Access , riavvia, reinstalla e riavvia.


 
Ok, grazie.
Ma che due...... :-((
-- 
Ivan MO