excel如何自动依次打印
发布网友
发布时间：2022-04-23 07:53
共2个回答
热心网友
时间：2022-06-17 23:41
第二个工作薄最好要有明确的路径，否则，打印之前你必须同时打开这个文件。追问已有明确路径
追答是什么？
假设你的文件已经打开
在需要打印的工作表中创建一个按钮，代码如下：
Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AH$14"
Dim arr()
Dim sh As Worksheet
Set sh = Workbooks("管桩工作量统计表.xls").Sheets("sheet1")
For i = 4 To sh.[c4].End(4).Row
ReDim Preserve arr(i - 4)
arr(i - 4) = sh.Cells(i, 3)
Next
For i = 0 To UBound(arr)
[n4] = arr(i)
ActiveSheet.PrintOut
Next
End Sub
－－－－－－－－－
如果不需要打开文件：
Private Sub CommandButton2_Click()
Dim n, i
With GetObject("C:\Documents and Settings\Administrator\桌面\" & "管桩工作量统计表.xls")
n = .Sheets(1).[c4].End(4).Row
For i = 4 To n
[n4] = Sheets(1).Cells(i, 3)
ActiveSheet.PrintOut
Next
End With
End Sub
热心网友
时间：2022-06-17 23:42
把你的文件发我吧，这样我就不用自己造数据进行测试了追问好的 ，留个联系方式吧 我发给你
