excel - Excel VBA设置默认打印时不将图像一分为二

Question

我正在使用 VBA 开发一个项目，该项目从我们的在线系统中获取大量数据，进行大量格式化，然后将其呈现为准备好打印的表格，这些表格必须符合全新工作簿中的 SOP 模板。因此，每行数据的底部都必须有一张图片（注意这不是页脚）。

不幸的是，在打印时，如果图片最终插入到分页符附近，则图像会一分为二。有谁知道任何 vba cde 或教程可以帮助我告诉 Excel 将图像移动到下一页而不是将其一分为二？我已经对打印机设置和页面设置进行了探索，但到目前为止还没有看到任何合适的东西。

我目前的代码是：

For each xWorksheet in ActiveWorkbooks.Worksheets
    lastrow = xWorksheet.Cells(Rows.Count, 1).End(xlUp).row
    Range("A" & lastrow + 3).Select 
    xWorksheet.Pictures.Insert("filepath\file name.jpg").Select
Next xWorksheet

标签： excelvbaimageprinting

Answer 1

您将需要打印区域（可在此处找到：在 Excel VBA 中确定打印页面的大小）并检查每个图像尺寸是否在该区域的倍数范围内。