如何设计发票这样的表格.txt

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

用 ActiveReport可 以 很 容 易 地 做 出 发 票 样 式 的 报 表 ， 连 发 票 中 的 空 白 项 都 能 做 出 来 。 
    首 先 在 ReportStart事 件 中 设 置 数 据 源 ， 建 立 含 有 发 票 数 据 的 单 一 记 录 集 ， 发 票 上 的 每 种 商 品 （ 明 细 ） 均 为 一 条 记 录 ， 各 种 抬 头 信 息 （ 如 发 票 号 ， 单 位 ， 税 号 等 ） 等 应 当 包 含 在 每 条 记 录 中 （ 这 种 重 复 信 息 在 报 表 中 便 于 分 组 ） ； 同 时 使 用 set me.printer.papersize设 置 好 纸 张 大 小 。 
    接 下 来 ， 在 设 计 器 中 建 立 一 个 分 组 （ Group1） ， 将 分 组 字 段 设 为 发 票 号 ， 并 在 分 组 中 放 置 抬 头 字 段 ， 画 好 抬 头 部 分 的 表 格 线 ， 然 后 在 该 分 组 中 再 插 入 一 个 分 组 （ Group2） ， 在 其 中 画 出 固 定 空 栏 （ 用 于 填 写 商 品 明 细 ， 具 体 行 数 自 已 定 ） 的 表 格 线 。 然 后 在 明 细 段 （ detail） 中 放 置 商 品 明 细 字 段 ， 不 画 表 格 线 。 
    接 下 来 关 键 的 一 步 是 ： 设 置 Group2的 UnderlayNext属 性 为 True， 它 表 示 下 一 报 表 段 （ detail） 将 从 本 报 表 段 （ Group2） 的 起 始 位 置 开 始 输 出 ； 同 时 设 置 detail的 backstyle属 性 为 Transparent（ 透 明 ） 。 
    运 行 报 表 ， 可 能 发 现 商 品 明 细 显 示 的 位 置 不 太 准 确 ， 这 时 可 以 通 过 调 节 各 报 表 段 的 尾 部 大 小 来 调 整 ， 而 且 还 可 以 调 节 明 细 显 示 的 最 大 行 数 ， 超 过 可 以 自 动 生 成 第 二 张 发 票 ， 当 然 必 须 设 置 group1和 group2的 repeat属 性 为 OnPage（ 即 每 页 都 显 示 ） 。 
<END>