Estoy de acuerdo con Brozz. Puedes almacenar las fotos en una carpeta y referenciar el nombre del fichero en una base de datos (para que no te consuma espacio (400*4*30 = 48 MB diarios en foos), para hacer el reporte en un DINA 4 haz lo siguiente:
const WidthPhoto=40
const HeighPhoto=40
Dim pic As Picture
dim i as integer
dim actX
dim ActY
On Local Error Resume Next
'Ajustar escalas
printer.scale(0,0)-(290,210) 'DINA 4 apaisado
printer.orientation=vblandscape
actX=10
ActY=10
'Poner las imágenes en el panel impresora
for i = 1 to totalimagenesdia
Set pic = LoadPicture(PathImagen(i))
printer.PaintPicture pic, actx, acty,widthphoto, heighphoto
actX=actX+5+widthphoto
if actX > printer.scalewidth then
actX=10:actY=actY+5+heightphoto
end if
if activeY>printer.scaleheight then
actY=10
printer.NewPage
end if
next i
Debes comprender que este código es completo pero orientativo. Deberás hacer priuebas y ajustar escalas y tamaños de las forots.
Un saludo
-Acalanto-
