vb批量打印数据库中的照片

Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then

  
    Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
    MsgBox "Picture2中没有图片可打印！"
End If
Printer.EndDoc
Adodc1.Recordset.MoveNext
Next i

ABC:
Exit Sub
End Sub