VB6报表打印问题。。。

2000-10-05 12:38:00 148 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

2024年全国大学生信息安全竞赛安徽省赛网络系统建设与运维赛项-网络构建真题该网络工程方案主要包含基础配置、有线网络、无线网络、出口网络、运维配置和SDN网络六个部分。基础配置包括设备接口设置、SSH服务开启和SNMP功能配置。有线网络部分重点部署VLAN、MSTP、VRRP和OSPF协议，实现网络冗余和负载均衡。无线网络规划了AP点位、信号覆盖和用户接入策略，包括SSID配置、频段优化和安全认证。出口网络配置了NAT转换、VPN隧道和流量审计功能。运维方面搭建了监控平台实时监测设备状态。SDN网络部分通过控制器实现流量管控。整个方案实现了多业务隔离、高可用性网络架构和阅读详情

我想在预览报表（DataReport)时程序自动选用打印机型号，纸张大小，纵、横印，能给出源代码吗？

...全文

FreeModbus V1.6主机模式实战：如何在STM32上实现Modbus RTU主从一体通信本文详细介绍了如何在STM32平台上利用FreeModbus V1.6开源协议栈实现Modbus RTU主从一体通信。文章深入剖析了V1.6版本主机模式的架构设计，提供了从硬件配置、串口与定时器移植到FreeRTOS操作系统适配的完整实战指南，并分享了数据缓冲区管理、多线程协同及高级调试技巧，为构建稳定可靠的工业通信网关提供了系统化解决方案。阅读详情

openhart

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

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
这样就可以极大地减少 "报表宽度大于纸的宽度 "的错误 !
注 :"横打 "即 :打印以纸的宽边作顶部。 "纵打 "即 :打印以纸的窄边作顶部。

此问题由于溪玥回答。

VB6报表打印问题。。。

相关推荐