社区
多媒体
帖子详情
VB6报表打印问题。。。
openhart
2000-10-05 12:38:00
我想在预览报表(DataReport)时程序自动选用打印机型号,纸张大小,纵、横印,能给出源代码吗?
...全文
119
1
打赏
收藏
VB6报表打印问题。。。
我想在预览报表(DataReport)时程序自动选用打印机型号,纸张大小,纵、横印,能给出源代码吗?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
playyuer
2000-10-05
打赏
举报
回复
关于纸张方向:
相关页面:
http://microinfo.top263.net/
http://simideal.top263.net/
http://simideal.top263.net/MyAQ_1.htm
http://www4.netease.com/~askpro/msg21/qa85.htm
《报表打印时,程序显示Orientation为只读属性不能修改》
回答:
方 法 一 :用 一 个 CommonDialog:
Private Sub Command1_Click()
CommonDialog1.Flags = cdlPDPrintSetup
CommonDialog1.CancelError = True
On Error GoTo ErrorHandle:
CommonDialog1.ShowPrinter '必 须 Show出 来 且 "确 定 "才 能 修 改 纸 方 向
'Me.Refresh
'Command1.Refresh
On Error GoTo 0
DataReport1.Show vbModal
ErrorHandle:
End Sub
下 载 例 程 rptdemo.zip。
方 法 二 :引 用 PageSet.Dll(参 考 :微 软 的 Knowledge Base的 文 章:“Q198901 Sample PageSet_exe Programmatically Changes Default Printer Orientation” 并 下 载 PageSet.exe,或 orientation.zip。
但 有 时 报 出 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 。 (参 考 :微 软 的 Knowledge Base的 文 章:“Q197915 PRB Report Width is Larger than the Paper Width” (我 认 为 没 什 么 用 ,不 知 所 云 ))
该 方 法 并 未 真 正 将 Printer改 方 向 (即 :Printer.Width与 Printer.Height并 未 交 换 ),因 此 我 建 议 :
Private Sub DataReport_Initialize()
Const ErrX = 0 '误 差 经 验 值
Dim adoRecordset As New ADODB.Recordset
adoRecordset.Fields.Append "Fld1", adVariant, , adFldIsNullable + adFldMayBeNull
adoRecordset.Open
Set Me.DataSource = adoRecordset
'下 一 句 非 常 关 键 重 要 ,可 以 极 大 地 减 少 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 !
'当 Form1.Option1.Value为 真 时 "横 打 ",否 则 "纵 打 "
Me.ReportWidth = IIf(Form1.Option1.Value, MyMax(Printer.Width, Printer.Height),
MyMin(Printer.Width, Printer.Height)) - Me.LeftMargin - Me.RightMargin-ErrX
End Sub
Private Function MyMax(a As Long, b As Long) As Long
MyMax = IIf(a > b, a, b)
End Function
Private Function MyMin(a As Long, b As Long) As Long
MyMin = IIf(a < b, a, b)
End Function
这 样 就 可 以 极 大 地 减 少 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 !
注 :"横 打 "即 :打 印 以 纸 的 宽 边 作 顶 部 。 "纵 打 "即 :打 印 以 纸 的 窄 边 作 顶 部 。
此问题由于溪玥回答。
VB数据库
报表
打印
功能案例
在VB 6.0(Visual Basic 6.0)中,数据库
报表
打印
功能是一项关键的开发任务,尤其对于处理大量数据并需要定期更新和呈现的系统。本案例着重讲解如何利用VB 6.0实现数据库数据的动态刷新,并生成
报表
进行
打印
。下面将...
VB
报表
打印
实例 VB
报表
打印
以上是VB
报表
打印
的基础知识,通过这些技术,开发者可以创建出满足各种需求的
报表
打印
解决方案。在实际应用中,可能还需要考虑更多的细节,例如错误处理、用户交互优化等,以提供更完善的
打印
体验。
VB6
-功能强大的
报表
设计软件.rar_VB
报表
设计 软件_readh6x_
vb6
报表
制作_
vb6
报表
设计器_
报表
功能
10. **PrintPreview.dll**:
打印
预览动态链接库,这是
报表
设计软件中必不可少的部分,它提供了查看
报表
打印
效果的功能,用户可以在
打印
前检查
报表
的布局和格式。
VB6
报表
设计器通过这些组件和控件,能够帮助开发者...
VB程序设计
报表
打印
在VB(Visual Basic)程序设计中,
报表
打印
是一项重要的功能,尤其在开发企业管理软件或数据分析应用时不可或缺。VB提供了一套完整的
打印
支持机制,使得开发者能够轻松地将数据以可视化的形式输出到
打印
机上。本知识...
VB
报表
打印
ReportPrint
ReportPrint,vb
报表
,
打印
,vb
打印
, ReportPrint,vb
报表
,
打印
,vb
打印
ReportPrint,vb
报表
,
打印
,vb
打印
ReportPrint,vb
报表
,
打印
,vb
打印
ReportPrint,vb
报表
,
打印
,vb
打印
多媒体
808
社区成员
8,274
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章