stampa con access in visual basic 6.0

[vipe]

ciao a tutti, dal mio programma in visual basic sto cercando di stampare usando un database di appoggio e i report fatti con Access.
Utilizzo le seguenti istruzioni
Dim objapp as object
set objapp=createobject("Access.application")
showwindow objapp.hwndaccessapp, swhide
vmnusys=getsystemmenu(objapp.hwndaccessapp,0)
....

e il mio problema è il seguente:
sull'istruzione
showwindow objapp.hwndaccessapp, swhide
o almeno mi sembra così....
mi viene restituito il seguente errore
Errore di automazione -2147023067

Premetto che il PC è configurato con Access 2000 e il database contenente i report è Access 97 --> non ho mai avuto problemi di questo tipo da altri clienti... Che cosa sta succedendo?
Stavo pensando di modificare l'istruzione
showwindow objapp.hwndaccessapp, swhide
con
showwindow objapp.hwndaccessapp, 0
usando cioè la costante 0 invece che swhide....
ma non so se è questo il problema...
Grazie a tutti
vipe

[amodio]

io nn ho mai utilizzato questa istruzione

io faccio cosi

    DoCmd.OpenReport ReportName, OpenMode, FilterName

e funziona..
beh sempre se access sia attivo

-->tu vuoi dire che attivi il report anche con acces nn in attivita'
cmq se vuoi provare...

[vipe]

Ciao Amodio, grazie per la risposta!
Allora io tutte le volte che devo stampare creo un nuovo oggetto di tipo Access Application, poi con quell'istruzione nascondo access (la famosa che mi da errore) poi richiamo il report aprendolo e gli passo eventuali stringhe where.
Il fatto è che io non voglio che i miei utenti possano agire sui report da me creati quindi smanettando un po' sulle opzioni di Avvio ho nascosto tutte le barre di office e ne ho creata una mia con solo i comandi necessari al mio utente come stampa, imposta pagina etc...
Ti dico che è la prima volta che mi succede questo usando il Late Binding....
Ciao

[amodio]

di un po ma che cosa è -->vmnusys?

e la stringa sql ? qui nn la vedo
poi l'istruzione per visualizzare il report?
nn potresti posare + codice?(tanto per vapire meglio l'errore credimi)

tu dici di nascondere il programma access
ma esiste un modo + semplice:
l'api l'API ShowWindow con l'opzione SW_HIDE
gli specifici il programma con l'handle e lui lo nasconde

vuoi provre vosi?

[vipe]

ma esiste un modo + semplice:
l'api l'API ShowWindow con l'opzione SW_HIDE
gli specifici il programma con l'handle e lui lo nasconde

infatti io uso questa API ed è qui che mi da l'errore....
l'unica cosa che mi è venuto in mente di provare è sostituire SW_HIDE con la costante numerica 0.
Non ho problemi a dirti il codice ma tanto oltre questa istruzione non va perchè mi dà l'errore...

Ciao

[amodio]

uhm un bel vecchio
on error resume next?

di un po ma che cosa è -->vmnusys?

[vipe]

vmnusys?
mi serve per recuperare l'identificativo della finestra dell'applicazione.

scusa ma cosa risolvo con on error resume next?
il codice prosegue dall'istruzione successiva ma quando apro il report ho di nuovo l'errore in precedenza menzionato!
Per aprire il report uso docmd come te....

[amodio]

fa una cosa
se nn vuoi far vedere il codice a tutti
basta che mi mandi un messaggio privato..
cosi' oltre a vederlo io lo faccio analizzare ai miei
colleghi ok?


cosi nn co cosa dirti
nn ho abbastanza informazioni
casomai con il codice ne faccio una applicazioni io qui
e ti dico...in seguito

-->come vuoi tu

[amodio]

Dim RetVal As Long
RetVal = ShellExecute(Me.hWnd, "open", "C:\Documents and Settings\Amodio\Desktop\db11.mdb", "", "", 1)

DoCmd.OpenReport "Amodio_Articoli", acViewPreview ' , OpenMode, FilterName


-->certo nn nasconde la barra degli strumenti di access
ma funziona!!