设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1238|回复: 9
打印 上一主题 下一主题

[报表] Access报表的打印格式如何控制,保持横打!

[复制链接]
跳转到指定楼层
1#
发表于 2002-9-10 23:35:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我做的报表都是设置好横打的。可是放在不同的机器上执行,打印格式变了,变成竖打了。而我的机器上没事。不知道该做些什么设置,保持报表的打印格式。
急!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2002-9-11 00:18:00 | 只看该作者
我也想知道?
3#
 楼主| 发表于 2002-9-11 00:36:00 | 只看该作者
我更想知道,急死了
4#
发表于 2002-9-11 01:04:00 | 只看该作者
高手欄,有大把的關於這方面的討論,為什麼自憶不動手去查一下。
5#
 楼主| 发表于 2002-9-11 02:04:00 | 只看该作者
我查过。没找到相关的。你知道吗?
6#
发表于 2002-9-11 03:03:00 | 只看该作者
Private Sub com_rpt_hue_exist_qry_cust_Click()
On Error GoTo Err_com_rpt_hue_exist_qry_cust_Click

'    Dim stdocname As String
'    Dim prt As Printer
'    Set prt = Application.Printers(0)
'    prt.PaperSize = acPRPSA4
'    prt.Orientation = acPRORLandscape
'
'    stdocname = "hue_exist_mount_qry_cust"
'    DoCmd.OpenReport stdocname, acPreview
'    Reports(stdocname).Printer = prt

Exit_com_rpt_hue_exist_qry_cust_Click:
    Exit Sub
Err_com_rpt_hue_exist_qry_cust_Click:
    MsgBox Err.Description
    Resume Exit_com_rpt_hue_exist_qry_cust_Click
   
End Sub
7#
发表于 2002-9-11 06:05:00 | 只看该作者
我做照MS做过一个例子,其他的例子有很多,找一下有N个。
8#
 楼主| 发表于 2002-9-11 20:48:00 | 只看该作者
还是不会,不好意思。Dim prt As Printer.没有这个对象
9#
发表于 2002-9-11 21:40:00 | 只看该作者
這個是XP版中,新增的,2000中沒有。
10#
 楼主| 发表于 2002-9-11 22:24:00 | 只看该作者
谢谢!我知道了
我用的是2000
应该最后用XP的,可是手头没有。只有这么开发了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-26 01:30 , Processed in 0.102265 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表