فرستادن خروجی data grid بر روی چاپگر

[pesare_matin2005]

من توسط جستجو خروجی بر روی data grid به دست اوردهم حالا چطوری می تونم اون خروجی چاپ کنم ( در ضمن Data Envernoment هم در پروژه دارم ) :(





با تشکر

[مطهر]

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

Dim strsql As String

strsql = "SELECT * FROM tbl_id WHERE item_id>2"





If DataEnvironment1.rsCommand1.State = adStateOpen Then

      DataEnvironment1.rsCommand1.Close

  End If

     DataEnvironment1.rsCommand1.Open strsql

     DataEnvironment1.rsCommand1.Requery

     DataReport1.Show

[pesare_matin2005]

مرسی از کد ولی من این کد را کجا بنویسم ؟ :?:

[مطهر]

هر جا که می خواهی چنین اتقفاقی بیفته (مثلا در یه Button