大侠们帮忙看下这个打印页的问题

代码小菜鸟

工作簿1.zip (131.81 KB, 下载次数: 0)

2023-5-20 14:05 上传

点击文件名下载附件


大侠帮忙看一下附件中表格和下面代码，是打印成PDF，但是这个页行数不好掌控，现在设置的是60行，随着数据的多少，总会出现最后一页空白页，是什么原因，该怎么修改，意思就是我打印的数据命名只要5页就好，却产生了6页最后一页没数据空白页。

Sub 打印单据()
PT = "C:\Users\dell\Desktop\今日工作\"

    Application.DisplayAlerts = False
    print_1 = ActiveSheet.PageSetup.PrintArea
    r1 = Range(ActiveSheet.PageSetup.PrintArea).Rows.Count / ActiveSheet.PageSetup.Pages.Count
    r = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row
    C = Application.WorksheetFunction.RoundUp(r / r1, 0)
    ActiveSheet.PageSetup.PrintArea = "$A$1" & ":" & "$I$" & C * 60
    ActiveSheet.PrintOut PrintToFile:=True, PrToFileName:=PT & Sheets("采购销售合同").Range("B2").Value & Sheets("采购销售合同").Range("A1").Value & ".PDF"

    ActiveSheet.PageSetup.PrintArea = print_1
    Application.DisplayAlerts = False
End Sub

砂海

印象中 打印比例100% 的情况下,
行高 30 ( 忘了 , 可可能是 15 或者60 ) 时,
实际高度 与理论高度 才能一致 ,
否则会有一个 小的误差, 累积下来, 会导致分页偏差

代码小菜鸟

砂海 发表于 2023-5-20 14:57
印象中 打印比例100% 的情况下,
行高 30 ( 忘了 , 可可能是 15 或者60 ) 时,
实际高度 与理论高度 才能一 ...

大侠分析的正确，现在就是出现这个问题，有时候三页四页刚好，有时候到5页可能就会多出一页空白实际出来6页了这样子