怎样把查询出符合条件的记录打印出来呀,有多条或一条,我在是datagrid控件中显示记录的!急,我不会水晶报表呀,请各位老大指教?谢谢

解决方案 »

  1.   

    打印DATAGRID里的内容:
    Printer.PaintPicture DataGrid1.CaptureImage(), 200, 200
    Printer.EndDoc
      

  2.   


    '******打印函数Prnt1的参数说明*****
    ' X      字体位置的横坐标。       *
    ' Y      字体位置纵坐标。         *
    ' font   打印字体的大小。         *
    ' txt    打印的文本。             *
    ' color  字体的颜色。             *
    '**********************************
    Function prnt1(X As Integer, Y As Integer, font As Single, txt As String, color As String)
        Printer.CurrentX = X
        Printer.CurrentY = Y
        Printer.FontBold = False
        Printer.fontsize = font
        Printer.ForeColor = color
        On Error Resume Next
        Printer.Print txt
    End Function例如:DD = prnt1(x, y, 8, "" & res(0) & "", vbBlack)
    就是XY坐标麻烦点,但是算好了比水晶报表好用.
      

  3.   

    beijingkuandai(星空) 的方法可以,推荐,我本人也差不多是这样用的。
      

  4.   

    http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195586
      

  5.   

    请参考此贴:http://community.csdn.net/Expert/topic/3181/3181353.xml?temp=.8806726