在DataReport中生成报表时,怎样将纸张设置为横放? 打印或预览前设置打印机的纸张方向就OK啦! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 《在VB的DataReport中能让它横打吗?》http://www.csdn.net/expert/Topic/53302.shtm方 法 1: 装VB6SP4,DataReport新添了Orientation属性http://www4.netease.com/~askpro/msg21/qa85.htm方 法 2: 用 一 个 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。 方 法 3: 引 用 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 这 样 就 可 以 极 大 地 减 少 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 ! 注 :"横 打 "即 :打 印 以 纸 的 宽 边 作 顶 部 。 "纵 打 "即 :打 印 以 纸 的 窄 边 作 顶 部 。 这里没有人气了 【问】如何把程序快捷方式建到XP的固定菜单区? 超级菜鸟问题 打包!~~~ 请问:现有不能注册的一个dll文件,怎样在VB中引用? 关于SQL数据库打包问题,请指教 关于ado联接数据库的问题 如何使用系统钩子? 在vb中有条件编译吗? 各位大虾,vb中是否有定义矩阵的控件?还要实现矩阵的到置,矩阵相乘,把矩阵中单个元素赋予变量,谢谢*999次 一个 picture box 的问题。 ACCESS数据库问题
http://www.csdn.net/expert/Topic/53302.shtm方 法 1: 装VB6SP4,DataReport新添了Orientation属性
http://www4.netease.com/~askpro/msg21/qa85.htm
方 法 2:
用 一 个 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。
方 法 3: 引 用 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
这 样 就 可 以 极 大 地 减 少 "报 表 宽 度 大 于 纸 的 宽 度 "的 错 误 !
注 :"横 打 "即 :打 印 以 纸 的 宽 边 作 顶 部 。 "纵 打 "即 :打 印 以 纸 的 窄 边 作 顶 部 。