怎样打印查询结果?help me?

Question

http://microinfo.top263.net 提供
Microsoft Visual Basic 6.0 之 
Data Report Designer 的 
ActiveX Dll 打印全面解决方案：
http://microinfo.top263.net/DownLoad.htm
《VB6 之数据报表使用技巧》:
http://media.ccidnet.com/ciw/871/b1301.htm

Answer 1

Private Sub Form_Load()
  If DataEnvironment1.Connection1.State <> adStateOpen Then
    DataEnvironment1.Connection1.Open "provider=microsoft.jet.oledb.3.51;data source=" & App.Path & "\wei1.mdb"
  End If
  
  Set cmd.ActiveConnection = DataEnvironment1.Connection1
  ssql = "select * from order1 order by style_no"  cmd.CommandType = adCmdText
  cmd.CommandText = ssql  DataEnvironment1.Connection1.CursorLocation = adUseClient
  Set rs = cmd.Execute
  Set Text1.DataSource = rs
  Text1.DataField = rs.Fields(0).Name
  Set Text2.DataSource = rs
  Text2.DataField = rs.Fields(1).Name
  Set DataGrid1.DataSource = rs
End Sub
Private Sub Command1_Click()
Set DataReport1.DataSource = rs
DataReport1.Sections("section1").Controls.Item("text1").DataField = "factory"
DataReport1.Sections("section1").Controls.Item("text2").DataField = "order_no"
DataReport1.Sections("section1").Controls.Item("text3").DataField = "order_date"
DataReport1.Sections("section1").Controls.Item("text4").DataField = "style_no"
DataReport1.Sections("section1").Controls.Item("text5").DataField = "cloth"
DataReport1.Sections("section1").Controls.Item("text6").DataField = "complete_date"
DataReport1.Sections("section1").Controls.Item("text7").DataField = "total"
DataReport1.WindowState = vbMaximized
DataReport1.Show
End Sub

Answer 2

Option Explicit
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim ssql As StringPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
  If DataEnvironment1.Connection1.State <> adStateOpen Then
    DataEnvironment1.Connection1.Open "provider=microsoft.jet.oledb.3.51;data source=" & App.Path & "\wei1.mdb"
  End If
  
  Set cmd.ActiveConnection = DataEnvironment1.Connection1
  ssql = "select * from order1 order by style_no"  cmd.CommandType = adCmdText
  cmd.CommandText = ssql  DataEnvironment1.Connection1.CursorLocation = adUseClient
  Set rs = cmd.Execute
  Set Text1.DataSource = rs
  Text1.DataField = rs.Fields(0).Name
  Set Text2.DataSource = rs
  Text2.DataField = rs.Fields(1).Name
  Set DataGrid1.DataSource = rs
End Sub
Private Sub Command1_Click()
Set DataReport1.DataSource = rs
'datareport1.se
DataReport1.Sections("section1").Controls.Item("text1").DataField = "factory"
DataReport1.Sections("section1").Controls.Item("text2").DataField = "order_no"
DataReport1.Sections("section1").Controls.Item("text3").DataField = "order_date"
DataReport1.Sections("section1").Controls.Item("text4").DataField = "style_no"
DataReport1.Sections("section1").Controls.Item("text5").DataField = "cloth"
DataReport1.Sections("section1").Controls.Item("text6").DataField = "complete_date"
DataReport1.Sections("section1").Controls.Item("text7").DataField = "total"
DataReport1.WindowState = vbMaximized
DataReport1.Show
End Sub

Answer 3

Option Explicit
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim ssql As StringPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Form_Load()
  If DataEnvironment1.Connection1.State <> adStateOpen Then
    DataEnvironment1.Connection1.Open "provider=microsoft.jet.oledb.3.51;data source=" & App.Path & "\wei1.mdb"
  End If
  
  Set cmd.ActiveConnection = DataEnvironment1.Connection1
  ssql = "select * from order1 order by style_no"  cmd.CommandType = adCmdText
  cmd.CommandText = ssql  DataEnvironment1.Connection1.CursorLocation = adUseClient
  Set rs = cmd.Execute
  Set Text1.DataSource = rs
  Text1.DataField = rs.Fields(0).Name
  Set Text2.DataSource = rs
  Text2.DataField = rs.Fields(1).Name
  Set DataGrid1.DataSource = rs
End Sub
Private Sub Command1_Click()
Set DataReport1.DataSource = rs
'datareport1.se
DataReport1.Sections("section1").Controls.Item("text1").DataField = "factory"
DataReport1.Sections("section1").Controls.Item("text2").DataField = "order_no"
DataReport1.Sections("section1").Controls.Item("text3").DataField = "order_date"
DataReport1.Sections("section1").Controls.Item("text4").DataField = "style_no"
DataReport1.Sections("section1").Controls.Item("text5").DataField = "cloth"
DataReport1.Sections("section1").Controls.Item("text6").DataField = "complete_date"
DataReport1.Sections("section1").Controls.Item("text7").DataField = "total"
DataReport1.WindowState = vbMaximized
DataReport1.Show
End Sub