使用 VBA 在 Excel 中确定页面大小和所需列宽度

WordHerd | 2017年4月4日 | 2分钟阅读
分享这篇文章

由于 Excel 主要是一款用于知识评估的软件,因此其显示工具通常会受到比较的影响。例如,您的数据通常包含各种大小的文本,可能超过打印机的打印范围。

本文将介绍如何计算正确的列宽,以确保文本内容在页面中保持一致。通常情况下,列数通常为 2 列,而第三列则显示评论:


标题、日期、备注

虽然 Excel 有一些可用的工具,例如自动调整功能,但没有什么能比得上亲自负责自己的软件,才能得到自己想要的最终结果。

我们将编写一些代码来计算可打印纸张的宽度,这样就可以决定列宽,以确保环保打印。

计算网页上的打印区域

其中一个问题是,网页测量、边距和列的测量方法不一致,我们需要在确定正确的列宽度之前标准化这些方法。

一种更先进的技术是将所有模型转换为因子,而不是英寸或厘米。网页的宽度最初以英寸表示,然后转换成因子,而左边和右边的边距则已经以因子表示了。


pgWid = Utility.InchesToPoints(ActiveSheet.PageSetup.PaperSize)
leftMargin = ActiveSheet.PageSetup.LeftMargin
rightMargin = ActiveSheet.PageSetup.RightMargin

随后,简单的数学运算就能得出打印机的尺寸,而我们需要将第三列的数据与此相匹配。


content material = pgWid - leftMargin - rightMargin
col3=content-columns(1).Width - columns(2).Width

现在我们在因子中已经有了第三列所需的宽度了,这真是太棒了,此外,第三列的宽度也是 没有 在 Excel 中,这些值以因子表示,但它们以字体大小为基础,基于个人单位计算。因此,我们将创建一个元素,根据单元格 1 中的测量值来转换宽度。


'因素中的宽度——仅供学习之用。
pts = 列(1).宽度
'Excel 中的测量单位是“宽度”
wd = Columns(1).ColumnWidth
问题 = 点数 / 价值
col3 = col3 /issue

最后,我们还需要考虑第三列的宽度,并在以下代码中使用 wrap 属性来设置宽度。 真的 并且行峰值会自动匹配。


列(第三列)。列宽 = col3
第(3)行,wrapText=true
行(3)。整行自动调整

摘要

虽然计算网页尺寸和列的计算通常比较复杂,但值得坚持下去。对电子表格中不同组件的计算方式的深入了解有助于更轻松地准备打印数据。

准备好迁移您的网站了吗?

首先进行免费的无义务网站评估。我们将对您的项目进行评估,推荐合适的平台,并为您提供明确的报价。

保证零数据丢失
完整 SEO 保留与重定向映射
准时且按预算交付
专业化的平台专家,而非泛泛的专家

请告诉我们您的网站信息

"*"*” 表示必填字段

此字段用于验证目的,不应更改。
姓名*