دستور مستقیم پرینت در active report

سلام.چطور میشه دستور مستقیم پرینت رو در اکتیو ریپورت داد.
مثلا واسه دیتا ریپورت این کد رو میزنیم

Private Sub Command1_Click()

DataReport1.PrintReport

End Sub

Private Sub ActiveReport_KeyDown(KeyCode As Integer, ByVal Shift As Integer)

    Select Case KeyCode

        Case Is = 13: Me.PrintReport True

    End Select

End Sub

ممنون از راهنماییت.ولی من منظورم ارسال دستور پرینت بدون باز کردن فرم active report بود.یعنی از فرم دیگه دستور ارسال بشه.

Private Sub Command1_Click()

  ActiveReport1.PrintReport True

End Sub

نقل قول:

---

نوشته شده توسط hrj1981

Private Sub Command1_Click()

  ActiveReport1.PrintReport True

End Sub

---

باسلام از این کد من استفاده کردم ولی اکتیو ریپورت باز شده وجدول اتخاب چاپگر نیز باز میشود

چگونه می شود بدون باز شدن اکتیوریپورت وفرم انتخاب چاپگر بمحض کلیک کردن چاپگر شروع به کار کند ؟؟؟؟