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