Foxtable(狐表) → 用户栏目 → 专家坐堂 → VBA 打印


  共有2829人关注过本帖树形打印复制链接

主题：VBA 打印
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/8 11:36:00 [显示全部帖子]

代码改成这样

 

    For i As Integer = FirstRow To EndRow         '
        If ws.cells(i-1,1).text Like "收货人*" Then
            Ws.Rows(i).PageBreak = MSExcel.XlPageBreak.xlPageBreakManual
        End If
    Next
   
    With Ws.PageSetup
        .PrintArea =  "A" & FirstRow - 3 & ":h" & Endrow  '打印工作表的指定区域
        '设置页面
        .LeftMargin = 5 '页面左边距
        .RightMargin = 5'页面右边距
        .TopMargin = 5  '页面顶部边距
        .BottomMargin = 5   '页面底部边距
        .CenterHorizontally = True   '页面水平居中
        .CenterVertically = True '页面垂直居中
        '设置页
        .Orientation = MSExcel.xlPageOrientation.xlPortrait
        '.Orientation = MSExcel.xlPageOrientation.xlLandscape
        ''缩放打印
        '.Zoom = True '以下设置将缩印在一页内
        '.FitToPagesWide = 1  '按照1页的宽度打印
        '.FitToPagesTall = 1  '按照1页的高度打印
    End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/8 23:28:00 [显示全部帖子]

空行问题，是你模板 1、2 行 以及 最后一行 导致的吧？把空行删除后测试。

 

如果确实要删除空行，请从后面开始删

 

    For i As Integer = EndRow To FirstRow Step -1

        If ws.Rows(i).EntireRow.hidden = True Then
            ws.Rows(i).EntireRow.delete
        End If
    Next i
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/9 8:45:00 [显示全部帖子]

隐藏即可，不要删除，如模板

  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:订单表.xls
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 6 次数据查询