دستور مستقیم پرینت در 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

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

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