Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Aprire un anteprima si stampa senza aprire Acccess 2000 e possibile farlo??

    Ragazzi vorrei risolvere un piccolo problema vorrei che se chiudo la mia
anteprima di stampa aperta in access si chiuda l'intero programma o sarebbe
ancora meglio se access 2000 non si aprisse proprio e facesse vedere solo
l'anteprima
Qualcuno puo darmi qualche suggerimento
P.S spero di essere stato chiaro
Ciaoo e grazie mille per eventuali risposte

 Qualcuno puo darmi qualche suggerimento
IMHO se il ricorso ad Access e` solo per le stampe allora stai
facendo una vera schifezza. Senza offesa, beninteso ;-)
-- 
ciao, hal

IMHO se il ricorso ad Access e` solo per le stampe allora stai
facendo una vera schifezza. Senza offesa, beninteso ;-)
Allora non utlizzo access anche per il database non solo per le stampe dei
report ho provato a utlizzare il Crystal Report 9 ma non lo so come mai non
avevo Crystl32.ocx giusto, ma avevo solo la versione 4.6 se non mi sbaglio
quindi non riconosceva i miei report quindi sono stato costretto a ritornare
sui report in access
Non ti preoccupare non mi sono offesso :-) e grazie per il suggerimento
Mentre per la prima domanda
 vorrei che si chiuda solo il programma access 2000
Ciaoo e grazie ancora per l'aiuto che mi state dando tutti


Non puoi chiudere Access finché visualizzi il report, perché è Access stesso
che lo visualizza, ma puoi nascondere la finesra del database di Access per
tutto il tempo che è aperto.
Tempo fa ho scritto qs. codice, guarda un po' se ti può servire.
Dim AccRep As Access.Application
Dim db As DAO.Database ' (necessario per aprire un .mdb protetto da
password,
    ' in quanto ADO non ha una stringa di connessione da impostare)
' apre un'istanza di Access, apre uno specifico file .mdb, anche protetto
' da password, e in questo file apre uno specifico report
' richiede un riferimento alla libreria Microsoft Access (9.0) Object
Library
' e un riferimento a MS DAO 3.6
' inoltre richiede che Access sia installato sul computer dell'utente
' Argomenti: nome del report, percorso del file .mdb, eventuale password,
eventuale stampa
Public Sub OpenAccessReport(reportname As String, mdbname As String, _
    Optional dbpassword As String = "", Optional PrintThisReport As Boolean =
False)
    Set AccRep = New Access.Application
    AccRep.Visible = True ' se non lo metto, non fa l'anteprima
    AccRep.DoCmd.RunCommand acCmdAppMaximize ' espande Access
    ' memorizza un database mdb in una variabile DAO (necessario per aprire un
.mdb con password)
    Set db = AccRep.DBEngine.OpenDatabase(mdbname, False, False, ";PWD=" &
dbpassword)
    ' forza VB a caricare il database correntemente aperto nella variabile
Access
    AccRep.OpenCurrentDatabase mdbname, False
    db.Close ' chiude il db contenuto nella variabile DAO
    Set db = Nothing ' vuota la variabile DAO (che non è più necessaria)
    AccRep.DoCmd.Minimize ' riduce a icona la finestra del database
    AccRep.DoCmd.OpenReport reportname, acViewPreview ' apre il report
    ' le prossime due righe nascondono la finestra del database
    ' va fatto dopo aver aperto il report, perché altrimenti il report non si
può aprire
    AccRep.DoCmd.SelectObject acReport, , True
    AccRep.DoCmd.RunCommand acCmdWindowHide ' nasconde la finestra del database
    If PrintThisReport Then AccRep.DoCmd.PrintOut ' stampa il report
End Sub
' Uso della funzione
Private Sub btnReport_Click()
    OpenAccessReport "rReportGenerale", App.Path & "\" & "db1.mdb",
"ApritiSesamo"
End Sub
Per chiudere Access alla chiusura del report, metti queste istruzioni VBA
nel modulo del report, direttamente in Access:
Option Compare Database
Option Explicit
Private Sub Report_Close()
  DoCmd.Restore
  DoCmd.Quit
End Sub
Private Sub Report_Open(Cancel As Integer)
  DoCmd.Maximize
End Sub
Spero ti sia utile. Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Grazie mille yronium nel tuo codice ho trovato molte cose utili ti ringrazio
tantissimo
pero adesso mi da uno strano errore
Quando stampo la prima volta il mio report tutto bene, ma quando provo a
stampare un altra volta mi da un errore
Errore 2451
Mi dice che il report che voglio aprire non è aperto o inesistente
Inoltre ho fatto caso che rimane attivo il processo di access 2000
"MSACCESS.EXE"
Qualcuno ha qualche suggerimento da darmi su questo tipo di problema
Un grazie mille a tutti per l'aiuto