index1.txt

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

97,能否打印完后，不用换页 
在 Win95 下，只有在使用EndDoc 或 NewPage时，打印机才开始打印，而且每次都要换页。怎样才能在打印完后，不用换页？ 
<END>
98,使用水晶报表时，如何设置横向页面 
我 在 使 用 水 晶 报 表 时 由 于 所 要 显 示 的 内 容 大 大 长 于 设 计 时 的 竖 向 空 间 ， 需 要 横 向 设 计 才 能 完 全 显 示 。 在 预 览 时 也 要 求 横 向 显 示 。 应 怎 么 实 现 呢 ？ ？ 
<END>
99,哪有较好的打印dll 
哪 有 较 好 的 打 印 dll? 
<END>
100,在Crystal Reports中如何加入VB中变量 
在 Crystal Reports中 想 加 入 VB中 变 量 ， 如 时 间 等 。 我 先 在 加 一 formula,再 在 vb中 用 report1.formulas(0)=Format(Time, "hh:mm:ss")在 preview 和 打 印 中 一 片 空 白 。 
<END>   
101,如何实现对不同文件的打印功能 
如 何 Ｖ Ｂ 的 CommonDialog .TexBox控 件 及 各 种 打 印 方 法 ， 以 实 现 对 不 同 文 件 的 打 印 功 能 ？ 
<END>
102,如何动态设置报表路径 
在 做 新 的 .rpt文 件 时 ,如 果 数 据 来 源 是 个 database,则 .rpt和 相 关 数 据 库 关 联 。 我 在 集 成 环 境 中 的 程 序 是 这 样 的 : 
    moudle.bas: 
     public dbPath as string 
     public rptPath as string 
     
    sub frm_load() 
     dbPath=app.path & "\date\" 
     rptPath=app.path & "\report\" 
    end sub 
    我 在 "d:\book\date\"里 存 储 的 是 数 据 库 文 件 ,在 "d:\book\report\"力 存 放 的 是 报 表 文 件 。 在 用 crystals report制 作 报 表 时 ,数 据 库 来 源 指 向 "d:\book\date\report.mdb"这 样 ,在 编 译 打 包 后 ,安 装 在 c:\book\下 ,于 是 ,在 打 印 报 表 时 ,就 出 现 "unable open database"的 错 误 。 请 问 ,如 何 将 .rpt文 件 的 关 联 路 径 动 态 改 变 ? 
<END>
103,水晶报表的datasource属性可以不用data控件吗 
水 晶 报 表 的 datasource属 性 可 以 不 用 data控 件 吗 ？ 现 在 我 需 要 打 印 我 用 RDO方 式 得 到 了 的 远 程 数 据 ， 该 怎 样 设 置 报 表 的 属 性 ？ 
<END>
104,后台监测打印端口并返回打印的张数 
有 没 有 能 够 监 听 打 印 端 口 的 例 程 或 函 数 ?? 我 希 望 能 后 台 监 测 打 印 端 口 ,并 返 回 打 印 的 张 数 。 请 帮 助 。 
<END>
105,打印出的新文件不能覆盖原来的文件 
我 在 写 打 印 代 码 时 遇 到 这 样 一 个 问 题 ： 当 选 择 打 印 一 个 报 表 到 文 件 （ 文 本 文 件 ） 时 ， 例 如 是 ptofile.txt,但 是 如 果 已 存 在 这 个 文 件 ， 那 么 打 印 出 的 新 文 件 不 能 覆 盖 原 来 的 文 件 。 我 是 使 用 showsave来 选 择 文 件 名 的 。 是 不 是 这 样 的 操 作 还 需 要 注 意 哪 个 地 方 呢 ？ 还 是 要 加 入 哪 些 代 码 ， 如 何 加 ， 请 多 多 指 教 ！ 
<END>
106,CommonDialog打开打印机对话框时，页码选择项为灰色 
    我 在 使 用 VB的 Common Dialog打 开 打 印 机 对 话 框 时 ， 其 上 边 的 页 码 选 择 项 为 灰 色 ， 不 知 到 为 什 么 ? 
<END>
107,实现可以打印任意查询出的recordset 
我 在 程 序 中 想 实 现 可 以 打 印 任 意 查 询 出 的 recordset,而 不 是 用 crystal report预 先 做 好 的 .rpt。 就 是 说 ,要 打 印 的 文 件 是 事 先 未 定 义 的 。 请 问 采 取 何 种 方 法 可 以 实 现 这 样 一 个 通 用 打 印 模 块 ? 
<END>     
108,显示动态曲线并且实时，连续输出到打印机上 
我的工作是计算机接受实时数据，显示动态曲线并且实时，连续输出到打印机上。工作平台是在WINNT4/WIN98下用VB/VC编程。由于WINDOWS不能实现实时连续打印，我用VB编写一个程序直接控制打印机。这程序可以接受位图并且把位图连续输出。但是我不知道如何实现屏幕的滑动，如何把滑动出显示平面的信息转换成位图输出给打印机，由于打印机只能接受连续数据，不能重画。不知道你有这方面的经验吗？谢谢。 
<END>
109,如何在CRYSTAL REPORT4.6中显示总页数 
如 何 在 vb6自 带 的 CRYSTAL REPORT4.6中 显 示 总 页 数 ？ 例 ： 我 可 以 用 菜 单 "Insert","Special Field","Page Number Field"取 得 当 前 页 ， 但 我 如 何 取 得 总 页 数 呢 ？ 
<END>
110,如何在ActiveReport中进行累计 
请 问 如 何 使 用 ActiveReport设 计 一 个 报 表 ， 内 有 每 页 的 各 项 本 页 总 计 和 本 页 累 计 （ 累 计 到 该 页 止 的 所 有 记 录 的 总 计 ） ， 最 后 一 页 在 本 页 总 计 和 本 页 累 计 再 来 一 个 各 项 总 计 ? 
<END>
111,ActiveReport设计报表时，如何实现对表中某一字段的排序 
在 用 ActiveReport控 件 设 计 报 表 时 ， 如 何 实 现 对 表 中 某 一 字 段 （ 如 ： ID） 的 排 序 ? 
<END>     
112,如何编写打印机驱动程序 
如 何 编 写 打 印 机 驱 动 程 序 ？ 使 用 VC或 VB。 
<END>     
113,ActiveReports能横向预览吗 
ActiveReports能 横 向 预 览 吗 ？ 
<END>
114,Crystal Reports 能否通过程序设定，让用户自己控制打印 
在 VB中 用 Crystal Reports 所 设 计 的 报 表 模 板 进 行 打 印 时 ， 能 否 通 过 程 序 设 定 ， 让 用 户 自 己 控 制 打 印 （ 如 ： 暂 停 、 取 消 等 ） 。 
<END>
115,如何使报表的上下左右均能够变化 
如 何 在 vb6.0中 实 现 活 动 报 表 （ 即 报 表 的 上 下 左 右 均 能 够 变 化 ） ， 最 好 采 用 vb6.0自 带 的 报 表 生 成 器 。 
<END>
116,如何使用Crystal Reports进行每页的累计 
请 问 如 何 使 用 crystal reports设 计 一 个 报 表 ， 内 有 每 页 的 各 项 本 页 总 计 和 本 页 累 计 （ 累 计 到 该 页 止 的 所 有 记 录 的 总 计 ） 。 谢 谢 ！ ！ ！ 
<END>     
117,在程序运行过程中并不打印，非要到程序结束后才打印 
我 在 程 序 中 使 用 Printer.print让 打 印 机 打 印 时 ， 在 程 序 运 行 过 程 中 并 不 打 印 ， 非 要 到 程 序 结 束 后 才 打 印 ， 不 知 有 何 办 法 可 以 解 决 这 个 问 题 。 
<END>     
118,如何在VB中用程序写分页打印预览 
如 何 在 VB中 用 程 序 (用 图 片 框 )写 分 页 打 印 预 览 ， （ 当 打 印 预 览 中 页 数 超 过 一 页 时 ， 如 何 前 翻 页 和 后 翻 页 ， 如 何 在 当 打 印 内 容 宽 度 超 过 页 面 的 宽 度 ， 如 何 进 行 分 页 ） ？ 
<END>
119,实现整个窗体的打印 
VB 5.0下 开 发 的 应 用 程 序 ， 如 何 实 现 整 个 窗 体 的 打 印 （ 包 括 标 题 、 菜 单 、 边 框 ） ? 
<END>
120,如何打印True Dbgrid6.0a里面的数据 
请 问 如 何 打 印 True Dbgrid6.0a里 面 的 数 据 ?我 现 在 只 想 把 一 个 数 据 表 格 打 印 出 来 ,听 说 这 控 件 能 够 打 印 我 弄 了 一 个 是 6.0 for vb6 的 ,可 是 我 太 笨 弄 了 半 天 也 没 有 弄 明 白 这 东 西 怎 么 用 ;( 
<END>     
121,TrueDbgrid6.0a运行时出现实时错误Printer Error 
我 在 使 用 True Dbgrid6.0a for vb6.0 使 用 如 下 语 句 :TDbgrid1.PrintInfo.PrintData， 但 运 行 时 出 现 实 时 错 误 :"Printer Error"。 用 "PrintPriview"方 法 打 印 也 有 同 样 问 题 。 但 我 的 打 印 机 及 驱 动 程 序 的 安 装 没 有 任 何 问 题 。 用 其 它 程 序 打 印 时 也 一 切 正 常 .(打 印 机 型 号 :Epson LQ-1600k)， 之 后 我 又 安 装 了 True DBGrid 6.0a的 Patch,问 题 依 然 存 在 。 请 问 是 否 有 办 法 解 决 ? 
<END>     
122,Crystal Reports出现错误Error in saved records 
我 用 Crystal ActiveX控 件 制 作 报 表 ， 部 分 属 性 和 代 码 如 下 ： 
     reportsource 0 
     reportfilename c:\test.rpt 
     windowstate 2 
    private sub command1_click() 
     dim R% 
     t=inputbox("","") 
     crystalreport1.groupselectionformula="{dm.id}='" & t & "'" 
     R%=crystalreport1.printreport 
    end sub 
    执 行 后 屏 幕 出 现 ： 
    error in saved records 
    random access to unknown record 
    为 什 么 不 能 打 印 出 我 所 要 的 记 录 ？ 
<END>
123,Crystal Reports中如何得到中文星期 
在 Crystal Reports设 计 报 表 时 ， 想 在 右 上 角 设 一 当 前 日 期 和 当 前 星 期 我 用 dateofweek(date())得 到 当 前 星 期 为 4（ 或 5,6..)， 为 阿 拉 伯 数 字 。 怎 么 样 得 到 星 期 四 （ 或 五 ， 六 ...)的 文 字 格 式 ？ 
<END>     
124,ActiveReports不能自动换行 
在 使 用 时 却 发 现 ActiveReports在 一 个 FIELD打 印 绑 定 的 字 段 值 时 ((我 使 用 RDO,参 考 AP的 UNBIND例 子 ) 如 果 字 段 的 值 为 STRING *30,而 FIELD的 宽 度 只 有 *16,高 度 够 打 三 行 ,却 不 可 自 动 换 行 ,尝 试 改 变 FIELD的 属 性 如 CanGrow,CanShrink,却 未 能 解 决 ! 
<END>     
125,CrystalReport控件发生错误：DataSource属性未设置 
我 在 Form_Load中 加 入 以 下 语 句 ： 
    Data1.RecordSource="select * from 商 品 档 案 " 
    CrystalReport1.Action = 1 
    按 F5运 行 
    出 错 ： 
    实 时 错 误 ： 20537 
    DataSource属 性 未 设 置 
    而 我 对 CrystalReport控 件 的 该 属 性 设 置 为 Data1。 为 什 么 ？ 
<END>
126,有选择地打印Crystal Reports 
本 人 在 开 发 中 遇 到 一 个 比 较 困 难 的 问 题 ,即 如 何 在 程 序 中 使 用 水 晶 报 表 控 件 控 制 由 水 晶 报 表 工 具 生 成 的 .rpt文 件 ,使 之 能 够 有 选 择 的 进 行 打 印 。 不 是 在 报 表 工 具 中 打 印 。 如 我 想 选 择 98-10-1到 98-11-1之 间 的 记 录 (即 以 时 间 为 参 考 打 印 的 数 据 )。 请 问 如 何 写 这 段 程 序 ? 
<END>     
127,如何实现文字的特殊排版效果打印 
如 何 实 现 文 字 的 特 殊 效 果 打 印 ， 例 如 ： 文 字 的 竖 排 、 环 绕 等 。 并 能 用 打 印 机 打 印 输 出 。 
<END>     
128,使用Print #1“LPT1”语句打印的时候，不能打印中文 
现 有 一 问 题 请 教 ： 当 我 用 Print #1 “ LPT1” 语 句 打 印 的 时 候 ， 不 能 打 印 中 文 。 
<END>
129,ActiveReports总页数打印错误 
使 用 ActiveReports ActiveX Control 1.0设 计 报 表 时 ,在 页 脚 加 入 一 个 field,其 SummaryType属 性 设 置 为 4-PageCount,用 来 计 算 显 示 总 页 数 ,但 是 实 际 运 行 时 ,该 值 总 是 少 计 算 一 页 .如 何 正 确 设 置 ? 
<END>     
130,VB打印时出现错误提示信息：“ Application-defined or object-defined error” 
我 是 一 位 业 余 编 程 爱 好 者 。 最 近 我 用 中 文 VB 4.0专 业 版 为 单 位 编 写 一 个 报 表 打 印 程 序 时 ， 遇 到 了 一 个 奇 怪 的 问 题 ： 当 我 在 简 体 中 文 Windows 3.2下 执 行 打 印 语 句 Printer.print "Hello!"时 ， 程 序 运 行 正 常 ； 但 是 在 简 体 中 文 Win 95下 执 行 同 样 语 句 时 ， 却 出 现 了 错 误 提 示 信 息 ： “ Run-time error '482': Application-defined or object-defined error” 。 VB的 帮 助 文 档 对 解 决 该 问 题 没 有 任 何 有 益 的 提 示 。 请 问 这 是 怎 么 一 回 事 ？ （ 我 用 的 打 印 机 是 LEXMARK Color Jetprinter 1020。 ） 
<END>