index1.txt

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

<END>    
21,如何打印浏览器内容 
如 何 在 VB编 制 浏 览 器 时 ， 编 制 打 印 按 钮 ， 以 及 删 除 网 页 历 史 文 件 ? 
<END>     
22,如何打印多行的文本框 
我 用 了 一 个 允 许 多 行 的 TEXTBOX， 里 面 的 文 字 每 一 行 都 很 长 ， 它 可 以 自 动 换 行 。 但 当 我 用 Printer.print将 它 的 内 容 打 印 出 来 时 ， 却 无 法 自 动 换 行 ， 而 是 一 行 很 长 ， 自 然 ， 超 出 纸 张 宽 度 的 部 分 就 被 “ 吃 掉 ” 了 。 请 问 ， 有 什 么 方 法 将 TEXTBOX中 的 文 字 按 纸 张 宽 度 打 印 出 来 ？ 就 象 是 在 NotePad中 ， 虽 然 一 行 很 长 ， 但 打 印 时 肯 定 是 自 动 分 行 了 。 
<END>
23,DataReport将贷款金额按年限的大小放在各自列中  
我 想 做 一 份 报 表 DataReport,其 中 包 含 "贷 款 金 额 "和 "年 限 "两 个 字 段 ,表 的 样 式 按 照 年 限 5年 以 下 、 5-10年 、 5-20年 、 20-30年 ,分 成 四 列 ,而 贷 款 金 额 按 年 限 的 大 小 放 在 各 自 列 中 。 
    我 以 试 过 用 SQL 
    select 贷 款 类 型 ,贷 款 金 额 
    from 用 户 
    where 年 限 between 5 and 10 
    但 所 得 到 只 是 5-10年 1列 ,想 将 所 有 SQL合 并 成 几 列 就 不 可 能 。 后 来 也 试 过 用 
    TRANSFORM Sum(用 户 .贷 款 金 额 ) 
    SELECT 开 户 所 社 ,贷 款 类 型 
    FROM 用 户 ,地 产 商 
    WHERE 年 限 BETWEEN 5 and 10 and 地 产 商 .编 号 =用 户 .编 号 GROUP BY 贷 款 类 型 ,开 户 所 社 PIVOT 年 限 
    得 到 只 是 个 合 计 数 ,并 没 有 明 细 ,希 望 帮 我 解 决 这 个 问 题 ,非 常 感 谢 ! 
<END>    
24,用基于excel的报表打印程序，问能否实现打印暂停的功能 
我 用 vb编 写 的 基 于 excel的 报 表 打 印 程 序 ， 问 能 否 实 现 打 印 暂 停 的 功 能 ? 
<END>    
25,Printer对象可否调整字间距 
Printer对 象 可 否 调 整 字 间 距 ？ 
<END>     
26,如何在VC6.0中旋转文字 
请 问 如 何 在 VC6.0中 旋 转 文 字 ？ 有 没 有 现 成 的 免 费 的 旋 转 标 签 ActiveX控 件 ？ 多 谢 。 
<END>
27,在水晶报表设计器中能否进行字符串的截取 
我 在 水 晶 球 报 表 设 计 器 中 遇 到 这 样 一 个 问 题 ： 在 这 个 报 表 设 计 器 中 能 否 进 行 字 符 串 的 截 取 ， 怎 样 处 理 ？ 
<END>
28,如何在打印纸上定位呢 
打 印 PICTURE BOX中 显 示 的 东 西 ， 诸 如 一 些 拟 合 曲 线 ， 数 字 ， 一 些 型 等 Printer.PaintPicture Picture1.Image, 0, 0 可 以 解 决 问 题 ， 但 是 ， 还 要 加 上 一 些 Printer.Print 等 。 如 何 在 打 印 纸 上 定 位 呢 ？ 
<END>
29,用PrintForm打印FORM中的图形，打印结果无法调大 
请 教 ： 我 用 VB的 打 印 命 令 (PrintForm) 打 印 FORM中 的 图 形 ， 打 印 结 果 无 法 调 大 ， 有 一 个 ZOOM的 命 令 不 知 是 否 可 用 ， 怎 么 用 ？ 请 指 点 。 
<END>
30,如何在VB的打印控件中实现分两栏打印 
如 何 在 VB的 打 印 控 件 中 实 现 分 两 栏 打 印 ？ 或 者 介 绍 一 个 有 分 栏 打 印 功 能 的 ActiveX控 件 也 可 以 。 
<END>    
31,用 VBA调 用 WORD来 实 现 打 印 ， 会 简 单 许 多 。 
如 何 在 报 表 中 动 态 添 加 图 像 ， datareport 中 的 image控 件 不 好 用 ， 最 好 能 跟 数 据 库 绑 定 ， 我 想 打 印 学 生 档 案 中 的 学 生 照 片 ！ 
<END>     
32,win2000在打印机上打印出的文本是透明的，但在win98下不透明 
win2000在 打 印 机 上 打 印 出 的 文 本 是 透 明 的 ， 但 在 win98下 不 透 明 ， 如 何 解 决 ？ 
<END>        
33,推荐一些好的数据库表格打印控件 
能 否 推 荐 一 些 好 的 数 据 库 表 格 打 印 控 件 ？ 最 好 能 同 时 推 荐 一 些 打 印 预 览 控 件 ， 尤 其 是 带 预 览 功 能 的 数 据 库 表 格 打 印 控 件 。 不 胜 感 谢 。 
<END>     
34,进行分组报表时，该页的最后一行不合适， 
在 使 用 Crystal Report 控 件 进 行 分 组 报 表 时 ， 当 有 多 页 时 ， 各 页 底 部 有 竖 线 ， 也 就 是 说 该 页 的 最 后 一 行 不 合 适 ， 请 问 怎 样 解 决 ？ 
<END>    
35,如何检查打印队列中是否还有打印的任务 
在 向 打 印 机 发 送 打 印 命 令 前 ， 我 想 检 查 一 下 打 印 队 列 中 是 否 还 有 打 印 的 任 务 ， 如 有 则 稍 后 再 发 ， 以 免 打 印 队 列 内 的 打 印 任 务 越 来 越 多 导 致 系 统 的 崩 溃 ， 如 何 实 现 ？ 
<END>    
36,解决报表的打印输出问题的方案 
在VB编制数据运用程序的过程中，无法找到一种较好的方法来解决报表的打印输出问题，具体要求如下： 
     1 能地设计时设置报表的表式。 
     2 能完成复杂的中国式报表。 
     3 速度快，最好是进程内调用。 
    请各位高手指点迷津。 
<END>
37,VB6打印报表，如何实现本页小计 
我 用 vb6,sp3打 印 报 表 ， 需 要 用 本 页 小 计 （ 本 页 数 据 中 的 数 据 合 计 ） ， 小 计 平 均 （ 根 据 小 计 的 数 量 金 额 求 平 均 ） ， 本 页 合 计 （ 已 经 打 印 的 数 据 合 计 ） ， 本 页 合 计 平 均 （ 根 据 合 计 的 数 量 金 额 求 平 均 ） ,本 页 小 计 容 易 实 现 ， 其 他 的 运 算 应 该 怎 么 办 ？ 
<END>    
38,VB中使用CRYSTAL REPORT中CONNECT的用法 
希 望 了 解 VB中 使 用 CRYSTAL REPORT中 CONNECT的 用 法 : 
    例 如 : 
    report.connect="provider=sqloledb.1;database=test;uid=sa;pwd=provider=sqloledb.1;database=test;uid=sa;pwd=" 
    这 样 连 接 是 否 正 确 ？ (ADO中 是 这 样 连 的 ) 
    当 我 在 本 机 建 立 了 的 数 据 库 和 RPT文 件 后 测 试 通 过 。 但 是 当 我 把 数 据 库 建 立 在 远 程 服 务 器 上 ， 再 在 本 机 上 运 行 程 序 打 印 时 出 错 ， 并 报 告 “ can not find SQL SERVER"。 我 个 人 认 为 是 设 计 的 RPT报 表 中 SQL SEVER（ 当 初 是 本 机 的 ） 路 径 也 需 要 改 在 远 程 服 务 器 上 然 后 再 重 新 连 接 一 次 。 同 时 我 也 认 为 应 该 在 程 序 中 可 以 修 改 这 一 点 但 是 应 该 怎 么 改 呢 ？ 因 此 特 向 高 手 请 教 ！ 用 RPT.CONNECT可 以 做 到 这 一 点 吗 ? 
<END>    
39,能否直接打开打印机属性对话框 
在 打 印 的 标 准 对 话 框 中 有 个 属 性 按 钮 ， 单 击 它 可 以 打 开 打 印 机 属 性 对 话 框 ， 能 不 能 在 程 序 中 直 接 打 开 该 对 话 框 ? 
<END>
40,Crystal Report如何打印加密的数据库 
我 用 Crystal Report 生 成 了 一 个 报 表 ， 数 据 库 是 Access， 当 我 把 数 据 库 加 上 一 个 密 码 后 ， 在 vb里 用 Crystal Report 控 件 调 用 这 个 报 表 ,不 能 打 开 报 表 ， 应 该 是 在 控 件 上 加 入 這 个 数 据 库 的 密 码 才 行 ， 哪 位 高 手 指 点 一 下 小 弟 怎 么 写 這 个 Connect 
<END>
41,如何动态修改已生成的reports文件 
在 crystal reports中 我 不 知 如 何 动 态 的 修 改 已 生 成 的 reports文 件 （ 比 如 我 增 加 记 录 时 ， 如 何 在 打 印 时 也 增 加 ？ ） 
<END>     
42,能否利用Crystal Reports打印Data控件的Recordset对象的虚拟表 
在VB 5.0中，能否利用VB所附带的报表生成器Crystal Reports将Data控件的Recordset对象的虚拟表打印出来？怎样通过Recordset对象的虚拟表制作出美观的报表？ 
<END>
43,如何从vb6.0菜单中的外接程序上调出报表设计器 
如 何 从 vb6.0菜 单 中 的 外 接 程 序 上 调 出 报 表 设 计 器 ？ 
<END>    
44,如何打印彩色字 
用 vb6.0编 打 印 程 序 时 ， 我 用 ： 
    printer.print "string" 
    可 以 在 打 印 机 得 到 输 出 ， 字 为 黑 色 ， 但 我 想 打 印 彩 色 字 ， 不 知 道 如 何 做 ， 请 专 家 帮 忙 ！ ！ ！ 
<END>    
45,打印RichtextBox控件中的内容时只能打印一定长度的内容 
打 印 RichtextBox控 件 中 的 内 容 时 ,只 能 打 印 一 定 长 度 的 内 容 ,不 知 为 什 么 ,请 赐 教 。 
<END>
46,用DataReport生成的运行时错误713定义的应用程序或对象错误 
我 编 写 了 一 个 通 用 工 资 程 序 ,用 package & deployment 生 成 安 装 盘 ,然 后 在 一 台 新 机 器 (未 安 装 vb6)上 安 装 此 程 序 ,当 程 序 运 行 到 用 datareport生 成 报 表 时 报 如 下 错 误 :(运 行 时 错 误 '713':定 义 的 应 用 程 序 或 对 象 错 误 )。 后 经 检 查 ,出 错 语 句 为 源 程 序 的 这 一 句 : 
    gzb.sections(5).controls1).caption=t_sys("jg_c_name") 
    (gzb为 datareport对 象 t_sys为 表 名 "jg_c_name"字 段 为 使 用 单 位 名 称 ) 
    经 检 查 data report和 data environment 的 动 态 连 接 库 msde.dll和 dsdbrpt.dll未 加 入 到 安 装 盘 中 ,重 新 制 作 安 装 盘 ,手 工 加 入 msde.dll 和 dsdbrpt.dll,重 新 安 装 ,但 错 误 依 旧 。 如 在 此 新 机 器 上 安 装 VB6,则 程 序 运 行 一 切 正 常 。 请 问 我 应 该 如 何 解 决 这 一 问 题 ? 
<END>
47,DataReport中加入报表日期、时间以及报表页码 
在 用 VB6.0的 报 表 控 件 DataReport编 报 表 时 ,如 何 加 入 报 表 日 期 (yyyy-mm-dd)和 时 间 (hh:mm:ss)以 及 报 表 页 码 (第 几 页 共 几 页 )?
<END>
48,如何在报表设计器中进行字符型日期运算 
我 现 在 在 使 用 vb6的 报 表 设 计 器 做 报 表 ， 调 用 的 数 据 源 是 NT4.0(pack5)下 的 SQL6.5。 因 为 在 设 计 数 据 库 的 字 段 时 为 了 方 便 DELPHI的 调 用 ， 日 期 这 个 字 段 选 择 了 字 符 型 （ STRING） 。 现 在 我 在 计 算 日 期 差 时 无 法 计 算 ， 因 为 报 表 设 计 器 里 无 法 进 行 字 符 型 相 加 减 。 请 帮 我 解 决 这 个 问 题 。 
<END>
49,CrystalReport是否只能输出事先制作好的报表文件 
CrystalReport是 否 只 能 输 出 事 先 制 作 好 的 rpt报 表 文 件 到 打 印 机 ?可 否 通 过 编 程 来 实 现 报 表 设 计 器 所 做 的 全 部 功 能 来 取 代 事 先 做 好 的 rpt文 件 ? 
<END>
50,如何设定打印机 
在 下 有 一 个 问 题 想 请 教 你 ， 我 现 在 计 算 机 上 安 装 了 两 台 打 印 机 ， 一 台 是 EPSON LQ1600K（ 默 认 打 印 机 ） ， 另 一 台 是 PIC-PRINTER， （ PIC PRINTER其 实 是 一 台 传 真 机 ， 在 系 统 里 它 是 默 认 为 是 打 印 机 ） 现 在 我 想 这 么 做 ， 在 一 个 应 用 程 序 里 （ 用 VB编 写 的 ） ， 不 要 用 户 自 已 去 切 换 默 认 打 印 机 ， 用 程 序 来 自 已 切 换 ， 即 有 的 时 候 要 发 传 真 了 ， 就 将 PIC-PRINTER设 置 为 默 认 打 印 机 ， 要 打 印 了 ， 就 将 EPSON LQ1600K设 置 为 默 认 打 印 机 ， 我 看 了 VB中 有 关 Printer.Port中 的 帮 助 后 ， 按 它 的 说 明 去 做 了 ， 但 不 能 切 换 过 来 ， 请 你 帮 我 想 想 有 没 有 更 好 一 点 的 方 法 ， 谢 谢 ！ 
<END>
51,使用ActiveReports控件打印后，在更新数据源后，无法更新数据 
我 在 使 用 ActiveReports控 件 使 用 ， 使 用 ACTIVEREPORTS1.PrintReport True打 印 后 ， 在 更 新 数 据 源 后 ， 再 次 掉 用 它 时 ， 发 现 无 法 更 新 它 的 数 据 ， 它 打 印 的 仍 是 打 印 第 一 张 时 的 数 据 。 我 绞 尽 脑 汁 使 用 了 各 种 方 法 ， 无 法 更 新 它 的 数 据 ， 谢 谢 你 能 快 速 解 答 我 。 
<END>
52,如何设计发票这样的表格 
我 想 用 Ｖ Ｂ ６ 。 ０ 的 报 表 设 计 器 设 计 发 票 这 样 的 表 格 。 表 格 里 的 数 据 是 根 据 动 态 的 查 询 语 句 从 数 据 表 中 检 索 出 来 。 一 张 发 票 可 能 对 应 多 种 货 物 。 象 这 样 的 表 格 ， 可 以 用 报 表 设 计 器 来 设 计 吗 ？ 我 很 着 急 ， 不 知 道 怎 么 办 ,请 您 帮 帮 我 ！ 如 果 有 例 子 就 更 好 了 。 能 尽 快 地 得 到 您 的 答 复 吗 ？
<END>
53,用PrintForm进行窗体打印，在不同分辨率的电脑打印出来的效果是否一样 
用 form.printform进 行 窗 体 打 印 在 800*600及 640*480分 辩 率 的 两 台 电 脑 ,打 印 出 来 的 效 果 是 否 一 样 （ 大 小 ， 在 纸 上 的 位 置 ） ,假 如 不 一 样 应 如 何 调 整 程 序 。 form.printform进 行 打 印 ， 打 印 效 果 会 不 会 受 某 些 因 素 的 影 响 ， 比 如 以 上 所 写 的 ， 如 果 有 ， 能 否 指 点 一 下 ， 谢 谢 ！ ！ ！ 
<END>
54,怎样使 DataReport直接发给打印机去打印 
怎 样 使 DataReport 不 将 数 据 显 示 到 窗 口 ， 而 是 直 接 发 给 打 印 机 去 打 印 ？ 
<END>
55,Crystal Reports 7.0系统所依赖的文件找不到 
1.制 作 安 装 程 式 时 ,系 统 所 依 赖 的 文 件 找 不 到 ,有 : Crystal,u25store.dll,u25total.dll 
    我 的 Hard Disk 上 根 本 没 有 这 些 files! Crystal 文 件 为 crystal 类 型 ,不 知 道 是 何 意 ? 
    2.系 统 打 包 后 ,安 装 时 出 现 crystal.ocx 和 craxdrt.dll 两 文 件 不 能 注 册 ! 
<END>
56,当预览报表后关闭报表，再次调用出现错误3705：目标已创建 
使 用 DATAREPORT作 报 表 时 ， 数 据 环 境 用 带 参 数 的 COMMAND， 参 数 的 值 使 用 窗 体 的 一 个 控 件 的 TEXT的 值 ， 调 用 报 表 时 ， CONNECTION.COMMAND FORM.TXT.TEXT