[已解决]求打印代码

gylilan

自己做了一个表格模板，内容由公式取数生成，有很多页，但l因为每次只能显示一页，所以无法一次将所有页都打印出来，希望老师帮忙写一个代码能一次性将所有页全部打印完成，具体内容见附件。非常感谢。 额度到账通知书（求助）.zip (7.88 KB, 下载次数: 27)

2013-1-8 16:13 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-1-8 16:41

已经帮你改了，

1. Sub 批量打印()
   
2.     Dim i As Byte
   
3.     For i = 1 To [j2]
   
4.         Range("j2") = i
   
5.         ActiveSheet.PrintOut
   
6.     Next
   
7. End Sub

复制代码

这样就得保证在打印前J2是最大页数。

跳转到最佳答案楼层

hwc2ycy

打印时你可以选的吧。

hwc2ycy

1. Sub 批量打印()
   
2.     Dim i As Byte
   
3.     For i = 1 To 13
   
4.         Range("j2") = i
   
5.         ActiveSheet.PrintOut
   
6.     Next
   
7. End Sub
   

复制代码

gylilan

hwc2ycy 发表于 2013-1-8 16:27
打印时你可以选的吧。

选这个没有用，因为表格内容是根据J2单元格的不同序号显示不同内容。如果j2单元格有100个序号，那我就要选择不同的序号打印100次，太不人性化了，所以希望有代码可以一次打印所有页。

hwc2ycy

已经帮你改了，

1. Sub 批量打印()
   
2.     Dim i As Byte
   
3.     For i = 1 To [j2]
   
4.         Range("j2") = i
   
5.         ActiveSheet.PrintOut
   
6.     Next
   
7. End Sub

复制代码

这样就得保证在打印前J2是最大页数。

gylilan

hwc2ycy 发表于 2013-1-8 16:41
已经帮你改了，这样就得保证在打印前J2是最大页数。

太棒了，用此代码一次打印完了13页，非常感谢。不过还想知道能不能做到可以选择打印起始页和结束页的效果。因为实际的页数很多，有上百页。有时候只需要打印其中的几十页。

hwc2ycy

这也是可以的。

1. Sub 批量打印()
   
2.    
   
3.     Dim i&, j As Boolean
   
4.     Dim errmsg$
   
5.     Dim iStart&, iEnd&
   
6.     iStart = Application.InputBox("请输入要打印的起始页码:", "打印信息", , , , , , 1)
   
7.     iEnd = Application.InputBox("请输入要打印的结束页码:", "打印信息", , , , , , 1)
   
8.     If iStart <= 0 Or iEnd <= 0 Or iStart >= iEnd Then MsgBox "输入的页码无效": Exit Sub
   
9.     If MsgBox("要打印的页码范围 从 " & iStart & "到 " & iEnd & "页" & vbCr & _
   
10.             "确认打印？", vbOKCancel + vbInformation) = vbCancel Then
    
11.             Exit Sub
    
12.     End If
    
13.     On Error Resume Next
    
14.     For i = iStart To iEnd
    
15.         Range("j2") = i
    
16.         j = False
    
17.         j = ActiveSheet.PrintOut
    
18.         If Not j Then errmsg = errmsg & "第 " & i & " 页打印失败" & vbCr
    
19.     Next
    
20.     MsgBox "打印完成" & vbCr & errmsg
    
21. End Sub
    

复制代码

gylilan

hwc2ycy 发表于 2013-1-8 17:54
这也是可以的。

太完美了，正是我需要的，非常感谢。

gylilan

gylilan 发表于 2013-1-8 20:30
太完美了，正是我需要的，非常感谢。

又碰到新问题了。

gylilan

hwc2ycy 发表于 2013-1-8 17:54
这也是可以的。

你好，还想请教一个问题，我有一个文件，是银行帐户余额调节表，也是用这种方法做的，但因为不是每个月都需要调节，所以有的月分有，有的月分没有，就导致不连号。我用你之前写的代码就会打出空表。请问有办法解决吗？非常感谢。 2012年余额调节表.zip (27.45 KB, 下载次数: 3)

2013-1-11 15:49 上传

点击文件名下载附件