gestione oggetto OLE in stampa

Question

Ciao a tutti,

ho creato una tabella nella quale, in un campo chiamato IMMAGINE, ho previsto l'inserimento del collegamento con una immagine pescata da una cartella del disco del mio PC.

Il campo IMMAGINE l'ho configurato come oggetto OLE.

Con una form inserisco i dati della tabella e nel campo IMMAGINE inserisco il percorso per collegare l'immagine.

Se visualizzo i campi inseriti in tabella e faccio doppio clic sul campo IMMAGINE, la foto si apre.

Ora vorrei stampare i diversi campi della tabella, ma l'immagine non viene stampata.

Qualcuno mi sa aiutare?

Grazie anticipatamente

Answer 1

ciao Paolo,

devi copiare questa funzione :

Option Compare Database

Option Explicit

Public Function cmdFileDialog() As Variant

   Dim fDialog     As Object

    Dim varFile     As Variant

   Set fDialog = Application.FileDialog(3)

    With fDialog

      .Title = "Select One or More Files"

      .AllowMultiSelect = False

       .Filters.Clear

       .Filters.Add "files JPG", "*.JPG"

      .InitialFileName = CurrentProject.Path & ""

       varFile = Null

       If .Show = True Then

          varFile = .SelectedItems(1)

       End If

    End With

   cmdFileDialog = varFile

 End Function

in un modulo pubblico, la funzione cmdDialog è quella di cui sopra e indicata nel post inziale.

Per generare un modulo in cui inserire la funzione esegui questo passo :

Dopo questo copia incolla in un modulo standard e pubblico, salva il modulo chiamandolo ad esempio mod_Dialog.

Dopo questo passaggio, la finestra del database deve mostrare tra i moduli anche quello contenente la funzione cmdDialog così :

in questo modo quando si scatenerà l'evento click del command button cmdLoadFile eseguirai la funzione mostrando la finestra di caricamento/scelta del file.

per l'option explicit vedi qui :https://msdn.microsoft.com/it-it/library/y9341s4f.aspx?f=255&MSPPError=-2147217396

Facci sapere.

Ciao, Sandro.

Answer 2

ciao Paolo,

non devi utilizzare il campo OLE che memorizza il file nella tabella.

Devi semplicemente memorizzare il FullPath del file.

Per memorizzare il fullPath del file basta un fileDialog, settato in una funzione, e restituente il fullPath del file immagine.

Dopo di che imposti nell'origine di controllo di un controllo immagine di una maschera o di un report  il campo in cui risiede il path dell'immagine.

Non serve altro.

Per il fileDialog se cerchi nella community trovi molti esempi a riguardo, ad esempio:

https://answers.microsoft.com/it-it/msoffice/forum/msoffice\_access-mso\_winother/automatizzare-immagini-da-access-a-word/11e76493-a3a4-43ea-9184-0bb9f5f70a25?page=2

Ciao, Sandro.

Answer 3

Ciao Sandro,

grazie mille, funziona.

Ho ancora il problemino di creare il fileDialog, ma se non ci riesco, faccio inserire manualmente il path.

Sei stato prezioso come sempre! :)

Paolo

Answer 4

ciao Sandro,

nella tabella ho inserito questo campo:

con la form inserisco il collegamento all'immagine salvata nel disco fisso e con browse cerco l'immagine nel mio disco e la carico

Dalla tabella, con il doppio clic sul campo, l'immagine si apre correttamente:

     

Ora mi serve la stampa di questa tabella

Ho creato un report per stampare i dati della tabella, ma l'immagine non viene visualizzata. Si vede solo l'icona

spero di essere stato chiaro.

Se seguo le Tue istruzioni, nella tabella creo il campo "immagine" con formato testo. Con la form salvo la path:

C:\Users\Paolo_2\Pictures\vite_TC_truciolare.png

il risultato in stampa è questo:

e non visualizza l'immagine

Cosa sbaglio?

Answer 5

ciao Paolo,

ti basta il path del file memorizzato nella tabella come campo testo.

Memorizza il solo path, inglobando files nelle tabelle di access il database ingrassa a dismisura anche con poche righe/immagini.

Utilizza il controllo immagine a cui, nel controlSource puoi impostare il nome del campo della tabella che contiene il nome del file, così facendo puoi mostare le immagini associate anche nel caso di form a visualizzazione maschere continue ( questa caratteristica sicuramente da A10 in poi, vedi immagini sotto riportate).

per aprire / stampare segui quanto indicato in questo 3d:

https://answers.microsoft.com/it-it/msoffice/forum/msoffice\_access-mso\_win10/stampare-automaticamente-pdf/a2598b9b-7cb9-4142-b37c-92483a03e5c2

Ci sarebbero altre considerazioni da fare sul tipo di immagine e sulla distribuzione del db...mi fermo qua altrimenti andiamo OT.

ciao, Sandro.