Scusa ma dove sai quante immagini hai da stanmpare...?
Nella Maschetra...? Vedi quanti Records hai, che dovrebbe corrispondere al Numero di Immagini...?
Passi il RecordCount al parametro Args nel report lo recuperi leggendo la proprietà OpenArgs, e fai il calcolo...!
Nella Form:
Docmd.OpenReport "NomeRport",,,,,Me.RecordsetClone.Recordcount
Nel Report
Const cm2twips=566.9291 ' Costante per la conversione [cm] TO [Twips]
Private Sub Report_Load()
Dim nImages As Byte ' Numero di Immagini
Dim lHImage As Long ' Altezza del Controllo Immagine preposto
Dim rptH As long ' Altezza del Report in base al Foglio
Dim lHDetails As Long ' Altezza della sezione CORPO
nImages=Me.OpenArgs
' Sapendo che hai un Report in A4 verticale 29.7*cm, ma va convertito in TWIPS
rptH=29.7*cm2twips
' se hai il PiediPaginaPagina devi sottrarre anche quelli... se non li hai rimuovili altrimenti da errore.
lHDetails=rpth-Me.Section(acHeader)-Me.Section(acFooter)-Me.Section(acPageHeader)-Me.Section(acPageFooter)
lHImage=(lHDetails/nImages)-2*Me.NomeControlloImmagine.Top
Me.NomeControlloImmagine.Height=lHImage
End Sub
Ovviamente la Larghezza dovrebbe essere calcolata in modo proporzionale oppure uguale...
Buttata giù a braccio senza provarla, dovrai controllare e correggere qualche cosa.