[VB6] Stampa Lista Immagini

[Fado84]

Buonasera a tutto il forum!
Avevo un problemuccio.. Devo stampare una lista di immagini.. queste immagini devono essere stampate una per pagina (dimensione immagini circa 15x20 Cm) e l'utente deve visualizzare prima di stampare un'anteprima di stampa..
Per far questo ho pensato di utilizzare il datareport e collegarlo ad un database che contiene il percorso dello immagini..

I problemi avuti sono molti:

1)non rieco a visualizzare le immagini e non so come fare per collegare le immagini al database... ho provato a far così ma non vunziona...

Public Sub Stampa()
If Rs.RecordCount <> 0 Then
Set DataReport1.DataSource = Rs
'Rs.MoveFirst

With DataReport1.Sections.Item("Section1").Controls.Item("Image1")
Do While NOT Rs.EOF 

    .Top = 0
    .Height = 0
    .Width = 10375
    .Height = 15420
    .PictureAlignment = rptPACenter
    .SizeMode = 2
    Set .Picture = LoadPicture(Rs!Percorso)
    rs.movenext
loop
    DataReport1.Show
End With
End If
End Sub

Dove sbaglio?? sbaglio completamente metodo??

2) Come faccio per fare uno stretch dell'immagine??

3) Mi conviene utilizzare il Printer?? ma come faccio a fare un'anteprima?? (mai utilizzato il printer)

GRAZIE MILLE A TUTTI!!!!!

P.S: Mai utilizzato il Printer, ho usato poche volte il
datareport con buon soccesso ma mai in un caso come questo
dove nella section1 devo inserire delle immagini da cui
carico il percorso da un database o in alternativa da un'array.....

P.P.S: Mi da inoltre un'errore di lunghezza o larghezza del report... ma che campo di lavoro ho?? mah

[binbum]

Ciao!
Posso aiutarti sulla stampa...esiste un OCX chiamato Roboprint6 che ti permette di gestire l'anteprima,la stampa..ha tutte le funzionalità possibili e richieste!

[Fado84]

ho trovato una versione trial.... volevo chiederti se serve liceza per questo componente o è freeware...
grazie!

p.s: dove trovo la versione completa?

GRAZIE

[Fado84]

uhm... qualcosa di meglio?? magari un aiuto sul mio codice...