实现可以打印任意查询出的recordset.txt

VB技巧问答10000例 VB技巧问答10000例

设 置 Crystal Reports控 件 的 DataSource属 性 为 Data控 件 (如 Data1)， 再 设 置 ReportSource属 性 为 3。 若 ReportSource属 性 为 0， 表 示 使 用 报 表 文 件 ， 若 为 3表 示 数 据 控 件 。 在 运 行 时 ， 调 用 CrystalReport1.Action = 1就 可 以 输 出 报 表 。 与 此 相 关 的 属 性 还 有 BoundReportFooter和 BoundReportHeading， 它 们 决 定 是 否 打 印 页 眉 和 页 脚 。 这 种 输 出 不 需 要 事 先 制 作 .rpt文 件 ， 当 然 ， 采 用 这 种 形 式 输 出 的 报 表 绝 对 称 不 上 美 观 。 我 在 “能否利用Crystal Reports打印Data控件的Recordset对象的虚拟表”有 更 进 一 步 的 说 明 。 
    你 提 出 的 打 印 任 意 查 询 出 的 recordset， 这 实 际 上 是 无 法 保 证 打 出 来 的 东 西 是 美 观 和 令 人 满 意 的 。 程 序 的 通 用 性 越 好 ， 它 的 功 能 就 越 弱 。 
<END>