Nella stampa del report spariscono le immagini

Question

Ciao,

ho ideato in Access 2016,  la struttura di un database per organizzare e catalogare delle immagini basandomi su delle etichette che prendono il path del database fisico al quale poi unisco il path di ogni singola immagine più la sua ID progressiva (che poi sarebbe il nome dell'immagine), ed il suffisso .png.

Funziona tutto egregiamente, ricerche per argomenti e filtri vari inclusi.

Al momento della visualizzazione su schermo del report tutto funziona, ma quando passo alla sua stampa, le immagini spariscono mentre ho invece tutte le altre informazioni presenti.

Il VBA che ho adottato per la visualizzazione report è il seguente:

Private Sub Anteprima_Report_Data_Click()

If Cerca_Data_Gruppo_Opzioni = 2 Then

 DoCmd.OpenReport "Seleziona_Data", acViewPreview, , Me.Filter

  ElseIf Cerca_Data_Gruppo_Opzioni = 3 Then

 DoCmd.OpenReport "Seleziona_Data", acViewPreview, , Me.Filter

   ElseIf Cerca_Data_Gruppo_Opzioni = 1 Then

 DoCmd.OpenReport "Seleziona_Data", acViewPreview, , Me.FilterOn = False

End If

End Sub

Il VBA che ho adottato per la stampa report è il seguente:

Private Sub Stampa_Report_Data_Click()

If Cerca_Data_Gruppo_Opzioni = 2 Then

 DoCmd.OpenReport "Seleziona_Data", , , Me.Filter

  ElseIf Cerca_Data_Gruppo_Opzioni = 3 Then

 DoCmd.OpenReport "Seleziona_Data", , , Me.Filter

   ElseIf Cerca_Data_Gruppo_Opzioni = 1 Then

 DoCmd.OpenReport "Seleziona_Data", , , Me.FilterOn = False

End If

End Sub

Perché non ho le immagini nella stampa?

Spero possiate risolvere questo mistero...

Aiuto!

Answer 1

ciao Alessandro,

apri un 3D apposito per questo nuovo quesito perché non ha alcuna attinenza con quanto discusso finora.

Grazie.

ciao, Sandro.

Answer 2

Ti ringrazio per questi consigli, ma vorrei prima risolvere una questione:

Ho diversi form che ospitano ognuno un metodo di ricerca diverso dall'altro; in più, in ognuno di essi ho un Gruppo di Opzioni (uguale per tutti) che mi permette di inserire un filtro sul risultato delle ricerche effettuate. Ogni Gruppo di Opzioni ha il valore predefinito 1 (indica Tutti i Record della ricerca), che può essere variato, nelle varie ricerche, in 2 o 3.

Esiste un metodo "nativo" mediante il quale, a prescindere dal form nel quale mi trovo, variando la posizione del pallino del Gruppo di Opzioni, vengano variati analogamente tutti i pallini dei Gruppi di Opzioni negli altri form?

Spero di essere stato esauriente e chiaro nella descrizione della problematica e della mia richiesta.

Ringraziamenti anticipati!

Answer 3

ciao Alessandro,

[...]

Access l'ho più che aggiornato, ma ho risolto i miei problemi inserendo il caricamento del path nell'etichetta del

[...]

senza vedere il database, molto difficile intuirlo... :-)

[...]

ora va quasi tutto alla grande! Ma anche dai prossimi problemini forse riuscirò a tirar fuori le gambine...

[...]

te lo auguro.

[...]

Come snelliresti quindi le istruzioni ridondanti?

[...]

premesso che ti consiglierei di personalizzare il nome di controlli, etichetta20 non è significativo.

A me verrebbe in mente una cosa del tipo.

un altro gruppo di opzioni con le scelte anteprima e stampa.

all'opzione anteprima assegni il valore della costante intrinseca acviewpreview cioè 2 a all'opzione stampa il valore della costante intrinseca acviewnormal 1.

quindi su un command button evento click invochi :

Private Sub cmdReport_Click()

Dim strFilter As String

strFilter = Me.Filter

If Me.Cerca_Data_Gruppo_Opzioni = 1 Then  strFilter = vbNullString

DoCmd.OpenReport reportName:="Seleziona_Data", _

                 View:=Me.optReport.Value, _

                 filtername:=Null, _

                 whereCondition:=strFilter

End Sub

Non mi è chiaro nel tuo codice la differenza tra l'opzione 2 e 3 visto che entrambe applicano il filtro e visualizzano l'anteprima del report o la sua stampa.

Per quanto al reset del filtro, delegherei questa attività su scaricamento della form e  non qui in cui applichi solamente delle impostazioni per un report, mi riferisco alla proprietà filterON

[...]

Saluti

[...]

HTH.

Ciao, Sandro.

Answer 4

Access l'ho più che aggiornato, ma ho risolto i miei problemi inserendo il caricamento del path nell'etichetta del report in:

Private Sub Report_Open(Cancel As Integer)

Etichetta20.Caption = CurrentProject.Path

End Sub

ora va quasi tutto alla grande! Ma anche dai prossimi problemini forse riuscirò a tirar fuori le gambine...

Come snelliresti quindi le istruzioni ridondanti?

Saluti.

Answer 5

ciao Alessandro,

se capisco bene, hai semplicemente memorizzato il path dell'immagine come campo testo e non il file nella tabella e questo è un buon inizio, perché è il modo corretto di procedere.

con A16 era sorto un bug nei report nella stampa della immagini risolto con un fix.

Hai office aggiornato? prova a vedere se questo aggiornamento ti aiuta :

https://support.microsoft.com/en-us/kb/3114379

Facci sapere.

Ciao. Sandro.

ps il codice per la stampa e anteprima è un po' ridondante, magari si può rivedere per renderlo un po' più snello...ma prima pensiamo al problema principale.