MSG_RBB.Row = 0
MSG_RBB.Col = 0
Do While (Trim(MSG_RBB.Text) <> "")
PUByiliaoRS.AddNew
For Y1 = 0 To MSG_RBB.Cols - 2
MSG_RBB.Col = Y1
PUByiliaoRS.Fields(Y1) = Trim(MSG_RBB.Text)
Next Y1
PUByiliaoRS.Update
If MSG_RBB.Row < MSG_RBB.Rows - 1 Then
MSG_RBB.Row = MSG_RBB.Row + 1
MSG_RBB.Col = 0
Else
Exit Do
End If
Loop
ianswer = MsgBox("确认打印!", vbQuestion + vbYesNo, "系统提示")
If ianswer = vbYes Then
PUBmdb.Close
Set PUByiliaoRS = Nothing
On Error GoTo Prnerr:
CRptAcc.Action = 1
Exit Sub
Prnerr:
MsgBox "打印机错误"
Else
Set PUByiliaoRS = Nothing
PUBmdb.Close
End If