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

[adib202]

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

Private Sub Command1_Click()

DataReport1.PrintReport

End Sub

[hrj1981]

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

    Select Case KeyCode

        Case Is = 13: Me.PrintReport True

    End Select

End Sub

[adib202]

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

[hrj1981]

Private Sub Command1_Click()

  ActiveReport1.PrintReport True

End Sub

[moghadam1372]

Private Sub Command1_Click()

  ActiveReport1.PrintReport True

End Sub

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

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