社区
多媒体
帖子详情
VB6报表打印问题。。。
openhart
2000-10-05 12:38:00
我想在预览报表(DataReport)时程序自动选用打印机型号,纸张大小,纵、横印,能给出源代码吗?
...全文
115
1
打赏
收藏
VB6报表打印问题。。。
我想在预览报表(DataReport)时程序自动选用打印机型号,纸张大小,纵、横印,能给出源代码吗?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
报表
打印
+VB
VB数据库
报表
打印
功能案例
VB 6.0 数据库按时间刷新采样 最后形成
报表
打印
样例
用
VB6
+GDI+开发交互式CAD系统
本课程用
VB6
(Visual Basic)结合GDI+,从无到有开发一个功能较完整的小型交互式CAD系统。作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。课程先讲准备知识,然后讲整个系统的开发思路和主要技术,最后将整个系统分成8个版本,从最简单的绘图开始,逐步添加功能,循序渐进地进行讲解。知识点讲解细致,系统。课程的核心在于源代码,学习每章内容之前,请先下载本章源码。建议先自行对源码进行阅读分析,然后带着
问题
去听课,这样学习效率比较高,效果比较好一些。课程最终提供的内容和服务:PPT+源码+视频讲解+持续升级/****课程第一节课为免费课,演示了系统的主要功能。可以用手机或电脑观看。如果无法观看,请私信我。谢谢!*****/友情提醒:凭订单信息可找平台客服开具发票。购买系列课程提供打包价,购买讲师卡更划算。
VB
报表
打印
实例 VB
报表
打印
VB
报表
打印
实例
VB
报表
打印
ReportPrint
ReportPrint,vb
报表
,
打印
,vb
打印
, ReportPrint,vb
报表
,
打印
,vb
打印
ReportPrint,vb
报表
,
打印
,vb
打印
ReportPrint,vb
报表
,
打印
,vb
打印
ReportPrint,vb
报表
,
打印
,vb
打印
多媒体
809
社区成员
8,275
社区内容
发帖
与我相关
我的任务
多媒体
VB 多媒体
复制链接
扫一扫
分享
社区描述
VB 多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章