[VB6] Testo con formattazione RTF in DataReport

[LMondi]

Intanto ho eseguito qualche modifica/integrazione al codice per rendere la pic temporanea:

    Dim picTmp As PictureBox
    Set picTmp = Me.Controls.Add("VB.PictureBox", "tmp")
    picTmp.AutoRedraw = True
    
    picTmp.Width = Picture1.Width
    picTmp.Height = Picture1.Height
    
    RTB(0).SelPrint (picTmp.hDC)
    SavePicture picTmp.Image, App.Path & "\Prova.bmp"
    
    Me.Controls.Remove ("tmp")
    Set picTmp = Nothing

Chissà se qualche anima pia ci dà una mano con i margini della pic ?!!