我要打印一个reciept，但我面对的一个问题

在这个项目中，我使用的数据报表打印的收据和数据环境。

请检查下面的代码

Private Sub cmdprint_Click()

    'Set rpt = New ADODB.Recordset

    'rpt.Open "select * from reception_detail where ID=" & Val(txtid.Text), Con, adOpenStatic, adLockOptimistic, adCmdText



    DataEnvironment1.Commands(1).CommandText = "select ID,patient_name,patient_age,referedby,test,amount from reception_detail where ID=" & Val(txtid.Text)

    rptreciept.PrintReport

    rptreciept.Show

End Sub