VBA打印设置问题

别烦我123456

Sub test()
        With Worksheets("基础知识").PageSetup
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
            Worksheets("基础知识").PrintOut
        End With
End Sub
这段代码的意思不是将”基础知识“sheet页缩放到一张A4纸中打印吗？为什么打印出来的还是因为文字过长而打印在两页A4纸中，需要怎样修改代码？求解答，万分感谢！

看见星光

文件选项里检查下打印纸张是否为A4，或者增加一下代码：
.PaperSize = xlPaperA4

hzruziniu

Sub 方法一把打印区域缩小一定的比例()
    With ActiveSheet.PageSetup
        .Zoom = 80                        '缩小为80%打印
        Range("b1:i37").PrintPreview      '打印预览
    End With
End Sub

Sub 方法二把打印区域缩放在一页范围内()
    With ActiveSheet.PageSetup
        .Zoom = False        '不设置页面缩放固定比例
        .FitToPagesWide = 1  '页面缩放，调整为一页高
        .FitToPagesTall = 1  '页面缩放，调整为一页宽
        Range("b1:i37").PrintPreview   '打印预览
    End With
End Sub

别烦我123456

hzruziniu 发表于 2018-1-23 22:42
Sub 方法一把打印区域缩小一定的比例()
    With ActiveSheet.PageSetup
        .Zoom = 80             ...

首先先谢谢，我写了一串代码，准备循环文件夹下的所有工作簿打印，所以单元格区域打印不太靠谱，因为每个工作簿的区域不相同。所以想问问有没有什么代码可以循环设置。不要一句话截成两页打印。

别烦我123456

看见星光 发表于 2018-1-23 21:31
文件选项里检查下打印纸张是否为A4，或者增加一下代码：
.PaperSize = xlPaperA4

首先先谢谢，我写了一串代码，准备循环文件夹下的所有工作簿打印，设成A4并不起作用。像附件那样会将一句话截成两页打印

别烦我123456

看见星光 发表于 2018-1-23 21:31
文件选项里检查下打印纸张是否为A4，或者增加一下代码：
.PaperSize = xlPaperA4

重新试了一下自己的那个代码，其他工作簿都可以实现，就附件的工作簿不能实现.....。还是很感谢

别烦我123456

hzruziniu 发表于 2018-1-23 22:42
Sub 方法一把打印区域缩小一定的比例()
    With ActiveSheet.PageSetup
        .Zoom = 80             ...

重新试了一下自己的那个代码，其他工作簿都可以实现，就附件的工作簿不能实现.....。还是很感谢

别烦我123456

hzruziniu 发表于 2018-1-23 22:42
Sub 方法一把打印区域缩小一定的比例()
    With ActiveSheet.PageSetup
        .Zoom = 80             ...

重新试了一下自己的那个代码，其他工作簿都可以实现，就附件的工作簿不能实现.....。还是很感谢

hzruziniu

别烦我123456 发表于 2018-1-24 20:02
重新试了一下自己的那个代码，其他工作簿都可以实现，就附件的工作簿不能实现.....。还是很感谢

你试试下面代码

1. Sub 多表循环缩放为一页打印()
   
2.     Dim sht As Worksheet
   
3.     For Each sht In Sheets
   
4.         If sht.Name <> "打印表" Then
   
5.             sht.Select
   
6.             With ActiveSheet.PageSetup
   
7.                 .Zoom = False        '不设置页面缩放固定比例
   
8.                 .FitToPagesWide = 1  '页面缩放，调整为一页高
   
9.                 .FitToPagesTall = 1  '页面缩放，调整为一页宽
   
10.                 ActiveSheet.PrintPreview   '打印预览
    
11.             End With
    
12.         End If
    
13.     Next
    
14. End Sub

复制代码

hzruziniu

多表缩放一页打印.rar (9.27 KB, 下载次数: 20)

2018-1-25 11:32 上传

点击文件名下载附件

请看附件，因为是打印其他表，所以先应激活该表。