★设置整页打印区域★

LangQueS · 发表于 2010-11-3 21:17

设置整页打印区域.rar (17.07 KB, 下载次数: 561)

[ 本帖最后由 LangQueS 于 2010-11-3 21:18 编辑 ]

wgwwonvie · 发表于 2011-10-13 09:44

看不懂啊！

byhyxb · 发表于 2011-10-31 23:56

学习学习......

kokococo · 发表于 2012-6-19 10:24

一点都不懂哦

海-宁 · 发表于 2012-6-13 13:47

新人报到。先看看，不懂会继续咨询

ChemiExcelH · 发表于 2012-9-16 10:41

但是如果用VBS编程复制已有Sheet，在新生成的sheet中设置的打印区域无效了

富戈 · 发表于 2012-10-29 09:11

Sub 设置整页打印区域() '假设每行的高度一致
i = [a65536].End(xlUp).Row 'a列最后行号
a = 53 '每页打印总行数 53
b = 4 '其中表头行数 4，
c = 2 '其中顶端标题行数 2
d = Application.WorksheetFunction.RoundUp((i - c) / (a - c), 0) '向上取整，计算有多少页
e = d * (a - c) + b - c '计算整页打印共有多少行，包括最后一页没有数据的空行，第一页要包括表头，
'另外，由于第一页的 “顶端标题”不是另外添加的两行，而是数据表中真实的两行数据，故需要减去 2
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & e '设置打印区域为A:E列,长度为整页
Range("$A$" & b + c + 1 & ":$E$10000").Borders.LineStyle = 0 '取消边框线
Range("$A$1:$E$" & e).Borders.LineStyle = 1 '添加边框线
'设置顶端标题行为5:6行
With ActiveSheet.PageSetup
.PrintTitleRows = "$" & b + 1 & ":$" & b + c '设置表头行
End With
End Sub

复制代码

富戈 · 发表于 2012-10-29 09:13

这是学习版主的帖子后，对代码的理解。希望其他人能看明白。

同心自相知 · 发表于 2012-12-18 20:19

把打印表格的表单连续打印在像纸样一的中间，纸样一是连续的，撕开后像表二，打印完撕开后表单要打印在中间，打印机用的是得实2250高速打印机，第张纸可以打印EXCEL18行的内容。用打印表里的宏，每次打印，打印每张表单后都会往下移一点点，多打几张就会打在连续的纸中间，撕开后一张表单就被分开在不同的张上。有什么好办法可以解决这个问题

zxy1969 · 发表于 2013-1-24 09:44

新人报道，学习了

		自动登录	找回密码
密码			免费注册

[VBA程序开发] ★设置整页打印区域★