crystaldecision.net网上有个例子。不过要求crystal reports for .net版本。

解决方案 »

  1.   

    可以说说方案吗?还有的是:在打印的时候
        oRpt.SetDataSource(myDS)
            oRpt.PrintOptions.PrinterName = "\\GATE\Canon BJC-2100SP"
            oRpt.PrintToPrinter(1, False, 0, 0)
    怎样把printername选中为默认的打印机或怎样把以经增加到本地计算子的打印机名字列出来绑定到Dropdownlist在给用户自已选择打印机打印。请大虾再帮忙回信息,好吗?
      

  2.   

    crystal report 中的打印功能好象只能指定服务器端的打印机名称,不能是客户端的打印机,因为Crystal report是运行在服务器端的。
      

  3.   

    Dim crReport As New CrystalReport1()
            Dim crFormulas As FormulaFieldDefinitions
            Dim crFormulaTextField1 As FormulaFieldDefinition
            Dim crFormulaTextField2 As FormulaFieldDefinition
            Dim crFormulaTextField3 As FormulaFieldDefinition        Dim crFormulaDBField1 As FormulaFieldDefinition
            Dim crformulaDBField2 As FormulaFieldDefinition        Dim crFormulaGroup1 As FormulaFieldDefinition
            crFormulas = crReport.DataDefinition.FormulaFields        crFormulaTextField1 = crFormulas.Item(0)
            crFormulaTextField2 = crFormulas.Item(1)
            crFormulaTextField3 = crFormulas.Item(2)
            crFormulaDBField1 = crFormulas.Item(3)
            crformulaDBField2 = crFormulas.Item(4)
            crFormulaGroup1 = crFormulas.Item(5)
            crFormulaTextField1.Text = Chr(34) & field1 & Chr(34)
            crFormulaTextField2.Text = Chr(34) & field2 & Chr(34)
            crFormulaTextField3.Text = Chr(34) & group1 & Chr(34)        crFormulaDBField1.Text = "{Customer." & field1 & "}"
            crformulaDBField2.Text = "{Customer." & field2 & "}"
            crFormulaGroup1.Text = "{Customer." & group1 & "}"
            CrystalReportViewer1.ReportSource = crReport
            CrystalReportViewer1.DataBind()
    其中的Customer為數據表名字,
    在Vs.net中建立報表時必須定義Formula Fields
    到www.crystalDecisions.com有一個簡單的例子
      

  4.   

    在補充一下
    在www.crystalDecisions.com 搜索
    vbnet_win_dynamic_report_formula.exe