voici le code, qui ne fonctionne pas
 
Private Sub Command1_Click()
    Dim image As PictureBox
    Printer.Orientation = 2
   ' frm_recherche_secteur.PrintForm
    image.Picture = DataGrid1.CaptureImage
    Printer.PaintPicture image.Picture, 0, 0
    Printer.EndDoc
End Sub
 
Auriez-vous une idée ?
 
Merci d'avance