Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

[5分]想让报表打在一页纸上怎么设置

刘哲  发表于:2014-01-26 14:50:50  
复制

我有一个报表,打印6个以下字段就纵向,6个以上字段就横向。现在我的横向打印是在一张纸上,为什么纵向打印就二张纸,一张有数,一张空白。怎么设置才能无论纵向还是横向都在一张纸上。点击下载此附件 谢谢


 

Top
宏鹏 发表于:2014-01-26 15:13:38
解决报表打印预览时第二页出现空白页的方法http://www.accessoft.com/bbs/showtopic.asp?id=20729


zhaoyoulong 发表于:2014-01-26 16:09:51

控件的位置大于报表的宽度会出现如此情况

试着调整一下控件的位置宽度或左边距

我看过了,你的问题就是以上原因造成的

在你的Sub sameformat()过程中加入

   MyRep.主体.Height = Zheight的后面加入:
    Select Case MyRep.Printer.Orientation
    Case 1
        Reports(MyRepName).Width = 21 * 567 - 800   'A4纸张纵向宽减去适当值
    Case 2
        Reports(MyRepName).Width = 29 * 567 - 800   'A4纸张横向宽减去适当值
    End Select
就行了



zhaoyoulong 发表于:2014-01-26 17:36:51
总记录:3篇  页次:1/1 9 1 :